查人人中国名人网我的世界小七真人照片:在VB用DAO对数据库操作编程,调试时会出现"要求对象"等错误信息.这是为什么呢?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 05:39:30
Private Sub Command1_Click()
rs.MovePrevious
If rs.BOF = True Then
rs.MoveLast
End If
Label1.Caption = rs.Fields1 & ""
End Sub
Private Sub Form_Load()
Dim dbase As Database
Dim rs As Recordset
Set dbase = OpenDatabase(App.Path & "\db1.mdb")
Set rs = dbase.OpenRecordset(" select * from 表1 ")
End Sub
这是程序,我是初学者请大家帮助
rs.MovePrevious
If rs.BOF = True Then
rs.MoveLast
End If
Label1.Caption = rs.Fields1 & ""
End Sub
Private Sub Form_Load()
Dim dbase As Database
Dim rs As Recordset
Set dbase = OpenDatabase(App.Path & "\db1.mdb")
Set rs = dbase.OpenRecordset(" select * from 表1 ")
End Sub
这是程序,我是初学者请大家帮助
Set dbase = OpenDatabase(App.Path & "\db1.mdb")
改为
Set dbase = DBEngine.OpenDatabase(App.Path & "\db1.mdb")
试试
rs现在是局部变量
把它定义成全局变量