对,建议不要采用控件操作,改为ADO对象比较好控制和调试 先在工程中引用Microsoft ActiveX Data Objects 2.5 Libary 然后 Option ExplicitPublic rs As New ADODB.Recordset Public conn As New ADODB.ConnectionPrivate Sub Form_Load() Dim strconn As String strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\InfoDb2000.mdb;Persist Security Info=False" conn.CursorLocation = adUseClient conn.Open strconn
If rs.State <> adStateClosed Then rs.Close rs.Open "Select * from sc", conn, adOpenStatic, adLockBatchOptimistic
ado控件莫名其妙的错误太多了
先在工程中引用Microsoft ActiveX Data Objects 2.5 Libary
然后
Option ExplicitPublic rs As New ADODB.Recordset
Public conn As New ADODB.ConnectionPrivate Sub Form_Load()
Dim strconn As String
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\InfoDb2000.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open strconn
If rs.State <> adStateClosed Then rs.Close
rs.Open "Select * from sc", conn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub
有安装msdn吗?