Dim con As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Form_Load()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
con.Open
rs.Open "Titles", con
End SubPrivate Sub DataGrid1_Click()
Set DataGrid1.DataSource = con
End Sub'在win2000用vb创建ado的对象,连接也成功,怎么实现于DataGrid的绑定,以用来显示记录集中数据

解决方案 »

  1.   

    Set DataGrid1.DataSource =rs
      

  2.   

    Private Sub DataGrid1_Click()
    Set DataGrid1.DataSource = rs
    End Sub
      

  3.   

    Private Sub Form_Load()
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
    con.Open
    rs.CursorLocation = adUseClient
    rs.Open "Titles", con
    Set DataGrid1.DataSource = rs
    end sub
      

  4.   

    Set DataGrid1.DataSource = rs
    是记录集
      

  5.   

    Set DataGrid1.DataSource = rs
    DataGrid1.refresh
      

  6.   

    rs.CursorLocation = adUseClient
    这个最关键,
    谢谢,解决了!谢谢大家,特别是 jian_aa(aa) ,