新手求助。高手帮帮忙吧。
最近要做图书管理系统。。其他都正常。
做到信息查询的时候 老是提示 找不到方法或数据成员
代码如下。。
麻烦高手帮忙看下出错在哪里
'cmddel:
'MsgBox Err.Description
End Sub
Private Sub Form_Load()
Dim sql As String
Dim conn As New Connection
On Error GoTo loaderror
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
sql = "select * from 读者信息"
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
cmdupdate.Enabled = False
cmdcancel.Enabled = False
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_reader
Exit Sub
loaderror:
MsgBox Err.Description
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_reader.Close
End Sub
--------------------编程问答-------------------- 报错的时候,有个调试按钮,你可以先按一下,然后看看它会引去哪句,再把那一句列出来.
补充:VB , 基础类