'
工程-引用 Microsoft ActiveX Data Object2.8
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:aa.mdb "
rs.CursorLocation = adUseClient ' 本地游标,不加这一句后面的set DataGrid1.DataSource = rs不好用
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open " select * from 001 " , cn
Set DataGrid1.DataSource = rs
End Sub
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:aa.mdb "
rs.CursorLocation = adUseClient ' 本地游标,不加这一句后面的set DataGrid1.DataSource = rs不好用
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open " select * from 001 " , cn
Set DataGrid1.DataSource = rs
End Sub