如何将一个现有的记录集(RecordSet)动态绑定到数据网格(DataGrid)!

[东方小女人]

同题!

[lihonggen0]

Set DataGrid1.DataSource = nothing


Set DataGrid1.DataSource = Rs

[lihonggen0]

Dim CN As New adodb.Connection '定义数据库的连接存放数据和代码
Dim Rs As New adodb.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic

Set DataGrid1.DataSource = Rs

[东方小女人]

报错:行集合不能作为标签!

[东方小女人]

问题已解决,最关键的是:Rs.CursorLocation = adUseClient