我用data控件连接数据库
下面有错,请教一下,谢了.报错:实时错误'13'
类型不匹配代码:
Dim db As Database
Dim rst As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "roll.mdb")
Set rst = db.OpenRecordset("Roll_Bre") '此句报错. 数据库中的表,名为Roll_Bre
;
;
end sub
下面有错,请教一下,谢了.报错:实时错误'13'
类型不匹配代码:
Dim db As Database
Dim rst As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "roll.mdb")
Set rst = db.OpenRecordset("Roll_Bre") '此句报错. 数据库中的表,名为Roll_Bre
;
;
end sub
Dim rst As Recordset
Private Sub Form_Load()
Set db =dbengin.workspace(0).OpenDatabase(App.Path & "roll.mdb")
Set rst = db.OpenRecordset("Roll_Bre") '此句报错. 数据库中的表,名为Roll_Bre
;
;
end sub