16,549
社区成员
发帖
与我相关
我的任务
分享
Dim dbEn As New dao.DBEngine
Dim dbT As dao.Database
Dim rsT As dao.Recordset
Dim lngDBIndex As Long
dbT = dbEn.OpenDatabase("c:\test.mdb")
rsT = dbT.OpenRecordset("select * from " & "Test")
lngDBIndex=1
rsT(modDatabase.conIndex).Value = lngDBIndex
rsT(modDatabase.conIndex).Value =1
rsT(modDatabase.conIndex).Value = lngDBIndex