各位大大~ ^_^
Private sub form_load()
Dim DBS As Object
Dim REC as object
Set DBS = CreateObject("ADODB.Connection")
Set REC = CreateObject("ADODB.Recordset")
DBS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./.mdb;Persist Security Info=False"
REC.Open "table", DBS
REC.MoveFirst
End sub
用如下語句讀取
Private sub command1_click()
Msgbox rec.fileds(0).value
End sub
Private sub command2_click()
dim strVal as string
strVal=string
rec.fileds(0).value=string
End sub
rec.fileds(0).value=string 這里出了問題，說不支持這種方式
請問我該怎么寫才合法呢？THX
Private sub form_load()
Dim DBS As Object
Dim REC as object
Set DBS = CreateObject("ADODB.Connection")
Set REC = CreateObject("ADODB.Recordset")
DBS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./.mdb;Persist Security Info=False"
REC.Open "table", DBS
REC.MoveFirst
End sub
用如下語句讀取
Private sub command1_click()
Msgbox rec.fileds(0).value
End sub
Private sub command2_click()
dim strVal as string
strVal=string
rec.fileds(0).value=string
End sub
rec.fileds(0).value=string 這里出了問題，說不支持這種方式
請問我該怎么寫才合法呢？THX
全站熱搜
留言列表
