＋设为首页 ＋添加到收藏夹
代码是这样的,但是在datagride1中没有数据显示,不知是为什么?
Private Sub Form_Load()
strConnectString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\zhcount.mdb;Mode=ReadWrite;Persist Security Info=False"
sql = "Select * from admin"
Set ado = CreateObject("adodb.recordset")
ado.Open sql, strConnectString, 3, 3
Set DataGrid1.DataSource = ado
End Sub
Dim Con1 As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim SqlStr As String
Con1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db2.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123"
Con1.Open
Rst.CursorLocation = adUseClient
SqlStr = "Select * From 人事 Where 学号 like 3% Order by 姓名"
Rst.Open SqlStr, Con1, adOpenDynamic, adLockOptimistic
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst
up
必须设置游标，将其定在客户端
