DAO连接数据库的几句代码?

Question

Dim sqlMdb As String
Dim DB As Database
Dim tb As RecordsetSet DB = OpenDatabase("f:\dvbbs6.mdb", False, False)Set tb = DB.OpenRecordset("user")MsgBox (tb.RecordCount)

Answer 1

Dim sqlMdb As String
Dim DB As Database
Dim tb As RecordsetSet DB = OpenDatabase(App.Path + "\TMPdata\Uprndata.mdb", False, False)Set tb = DB.OpenRecordset("tblprn")

Answer 2

Set bumony = DBEngine.OpenDatabase(App.Path & "\bumony.mdb")
Set datadd = bumony.OpenRecordset("datadd")

Answer 3

Dim DB As Database
Dim tb As RecordsetSet DB = OpenDatabase(App.Path + "\TMPdata\Uprndata.mdb", False, False)
Set tb = DB.OpenRecordset("select * from tblprn" )

Answer 4

Dim sqlMdb As String
Dim DB As Database
Dim tb As RecordsetSet DB = OpenDatabase(App.Path + "\TMPdata\Uprndata.mdb", False, False)
sqlMdb = "select * from tblprn"  //tblprn 是数据库Uprndata的一个表
Set tb = DB.OpenRecordset(sqlMdb)你加载数据库控件了吗？？？是dao还是ado阿？？？

Answer 5

lihonggen0:
您的回答仍然是同样的编译错误。
qiqif:
可以通过编译。
zhenxizhou:
您的回答仍然是同样的编译错误。
fhr2003:
您的回答仍然是同样的编译错误。
我加载了adodc组件。

Answer 6

Dim sqlMdb As String
Dim DB As ado.Database
Dim tb As ado.RecordsetSet DB = OpenDatabase(App.Path + "\TMPdata\Uprndata.mdb", False, False)
Set tb = DB.OpenRecordset("select * from tblprn"）
你再试试看