如何把定义的recordset变量绑定到datagrid,在线等待，谢谢

Question

如何把定义的recordset变量绑定到 datagrid
就像把adodc1绑定到datagrid一样另外请问，把adodc控件全部用rs变量代替，速度可以变快吗

Answer 1

Option ExplicitPublic rs As New ADODB.Recordset
Public conn As New ADODB.Connection
Private Sub Form_Load()
 Dim strconn As String
 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 conn.CursorLocation = adUseClient
 
 conn.Open strconn
 
 If rs.State = 1 Then rs.Close
 rs.Open "Select * from People", conn, adOpenKeyset, adLockPessimistic
 
 Set Me.DataGrid1.DataSource = rs
 
   
 End

Answer 2

另外请问，把adodc控件全部用rs变量代替，速度可以变快吗
/////
沒有多大區別的。rs隻是比較不受限制，自由

Answer 3

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    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, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 4

Set DataGrid1.DataSource = Rs(记录集)