梵高画展广州:datagrid连接Access数据库的问题,各位高手救命啊!!!

来源:百度文库 编辑:神马品牌网 时间:2024/05/05 08:08:49
cnn1.CursorLocation = adUseClient
rstStu.Open "select * from weixiu", cnn1, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rstStu '这条语句有问题,怎么修改

什么问题?
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"

cn.CursorLocation = adUseClient

rs.Open "select * from employees", cn, adOpenDynamic, adLockPessimistic

Set DataGrid1.DataSource = rs

End Sub

这个是我刚刚在VB6中试过可以的,你可以参考一下