我使用的是Access2000,用ADO,使用的是DataGrid控件
我实现的操作是将数据库中表的内容通过DataGrid控件显示出来
代码如下:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Form_Load()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\系统管理.mdb;Persist Security Info=False"
conn.Open
sql = "select * from manger"
rs.Open sql, conn, adOpenKeyset, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub
但运行后控件中没有显示任何数据,问题出在那里?

解决方案 »

  1.   

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Private Sub Form_Load()conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\系统管理.mdb;Persist Security Info=False"
    conn.Open
    sql = "select * from manger"
    rs.cursorLocation = adUseClient
    rs.Open sql, conn, adOpenKeyset, adLockOptimisticSet DataGrid1.DataSource = rs
    End Sub
      

  2.   

    加上这句
    rs.cursorLocation = adUseClient
      

  3.   

    rs.cursorLocation = adUseClient
    这句什么意思啊?
      

  4.   

    回:可乐加冰
    rs.cursorlocation=aduseclient
    指的是游标位置为客户端类型