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的绑定,以用来显示记录集中数据
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的绑定,以用来显示记录集中数据
Set DataGrid1.DataSource = rs
End Sub
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
是记录集
DataGrid1.refresh
这个最关键,
谢谢,解决了!谢谢大家,特别是 jian_aa(aa) ,