Question

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

简单明了就行。

Answer 1

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

Answer 2

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
'刷新显示数据。

Answer 3

Set DataGrid1.DataSource = rs
DataGrid1.Refresh