VB6.0 数据库 编程 BOF、EOF不起作用是为什么?
VB6.0 数据库 编程 BOF、EOF不起作用是为什么?Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jsyxxgl.mdb" rs.Open "select * from Main_User", conn, 2, 2
程序代码:
Private Sub Command3_Click() If rs.EOF Then MsgBox "已到末记录", 48, "记录浏览" Else rs.MoveNext Call display End If End Sub
这个程序我是按照教程写的,问题就是会超出下边,出现3021实时错误,本人是新手,希望能有大神能解答这个问题,感激不尽~~~