VBScriptはこんな感じにもかけるPart2

ここで書いた書き方だけど、プロパティの値の代入がわかんなくて、今日会社でかなりはまっていたんだけど、家に帰ってきてからやっと書き方がわかった。

Class_Initializeというのを書いて、そこでm_strプロパティにDBの値（以下はMySQLのurlmapというテーブルのurlフィールドの値をセット）を代入してあげるように書くことで、text メソッドでそのプロパティの値が取得できた。

Class CString
	Private m_str
	'    初期化
	Private Sub Class_Initialize()
		set db = WScript.CreateObject("ADODB.Connection")
		strConnection="File name=connect.udl"
		db.open strConnection
		db.CursorLocation = 3
		Set rs= WScript.CreateObject("ADODB.RecordSet")
		strSQL="SELECT * FROM urlmap"
		rs.open strSQL,db,1,1
		m_str = rs.Fields("url").value
	End Sub
	Public Property Let text(str)		
		m_str = str
	End Property
	Public Sub SetString(str)
		m_str = str
	End sub
	Public Property Get Length()
		Length = Len(m_str)
	End Property
	Public Property Get text()
		Text = m_str
	End Property
	Public Property Let Str(StrText)
		m_str = StrText
	End Property
End Class


Dim ObjStr
Set ObjStr = New CString
Wscript.Echo ObjStr.Text
ObjStr.Text = "これはてすとでーーーーす"
Wscript.Echo ObjStr.Text