VB中如何ADODB 实现查询后显示在DATAGRID

VB中如何ADODB 实现查询后显示在DATAGRID

VB使用ADODB的Recordset 对象，将SQL查询字符串传递给 Recordset 对象的 Open 方法，来获取查询结果于记录集。使用Set 语句将查询的记录集赋给DataGrid控件的DataSource属性来实现显示于DataGrid控件中。

Recordset 对象 (ADO)，表示的是来自基本表或命令执行结果的记录全集。任何时候，Recordset 对象所指的当前记录均为集合内的单个记录。
在打开 Recordset 之前设置 CursorType 属性来选择游标类型，或使用 Open 方法传递
CursorType 参数。部分提供者不支持所有游标类型。请检查提供者的文档。如果没有指定游标类型，ADO 将默认打开仅向前游标。
Set 语句，将对象引用赋给变量或属性。
SQL， Structured Query
Language（结构化查询语言 (SQL)），一种数据查询和编程语言。
代码实例：
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection '定义数据库的连接
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from jishijilu" '
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End Sub

Dim con As New ADODB.Connection
Dim rs As ADODB.Rescordset
con.open "Privader=....."
rs.open "select * from table1",con '创建记录集实例，有字符串连接
Set Datagrid1.DataSource=rs
‘set使Datagrid1得数据源（Datasource）是rs这个记录集。
DataGrid1.Refresh
'刷新显示数据。

Set DataGrid1.DataSource = rs
DataGrid1.Refresh