使用ADO控件可以方便的在VB6中访问ODBC数据库，但是通过直接放置ADODS控件来获得ADO的数据连接比较麻烦，我们可以在VB工程中创建一个公共数据模块，将ADO控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ADO连接。
一次完整的ADO调用操作分为如下几个步骤：
1.打开ADO到数据库的连接，初始化ADO RECORDSET集。
2.通过写入SQL语句执行查询并返回查询结果RECORDSET集；或者可以通过写入SQL语句执行相应数据库操作。
3.释放RECORDSET集，关闭数据库连接。
需要注意的是，每个动态创建的ADO同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ADO。
下面是相关的代码：

'-----------------------------------------------------------------
'如下代码保存在名为my.bas的工程模块中
Public CONN As Adodb.Connection        '定义ADO CONNECTION对象
Public RS As Adodb.Recordset           '定义ADO RECORDSET对象
'****************************
'打开数据库连接
'****************************
Function ConnOpen()                   
  Dim ASTR As String
  Set CONN = New Adodb.Connection
  ASTR = GetDatabasePath  'MDB文件数据库路径
  CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ASTR & ";Persist Security Info=False"
  '本例的ODBC连接为JET4.0的直接到MDB文件的连接，如果使用ODBC数据源可以使用如下CONNECTION串：
  'Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=数据源名称;Initial Catalog=数据表库名称
  CONN.Open
  Set RS = New Adodb.Recordset
  With RS Do
    ActiveConnection = CONN
    CursorType = adOpenDynamic
    LockType = adLockOptimistic
  End With
End Function
'****************************
'关闭数据库
'****************************
Function ConnClose()                       
   Set RS = Nothing
   CONN.Close
   Set CONN = Nothing
End Function

'**********************************************************
'        获得数据库路径
'  本例数据库保存在程序目录下的DBS子目录中，名为db1.mdb
'**********************************************************
Public Function GetDatabasePath() As String
    Dim sPath As String
    If Right$(App.Path, 1) = "\" Then
        sPath = App.Path + "dbs\"
    Else
        sPath = App.Path + "\dbs\"
    End If
   
    GetDatabasePath = sPath + "db1.mdb"
End Function
'End of my.bas
'-----------------------------------------------------------------

如下示例代码为my.bas的使用方法：
'-----------------------------------------------------------------
'使用RS对象执行SELECT语句
'TableName和FieldName分别为表名和字段名
'查询结果保存在数组s中
Private Sub RunSelectCommand()
    Dim s(99) as String
    Dim i as Integer
    i=0
    Call my.ConnOpen
        my.RS.Open "SELECT * FROM TableName"
        While Not RS.EOF
            i=i+1
            If Not isNull(my.RS!FieldName) Then s(i)=Cstr(my.RS!FieldName)
            RS.MoveNext
        Wend
    Call my.ConnClose
End Sub
'使用CONN对象执行UPDATE/DELETE/INSERT语句
'SQL语句放在变量sSQL中
Private Sub RunSqlCommand()
    Dim sSQL as String
    Call my.ConnOpen
        my.CONN.Execute sSQL
    Call my.ConnClose
End sub
'对于DATAGRID和DATAREPORT这些需要DATASOURCE的控件可以做如下操作
'使用SELECT语句打开RS的数据集
Set OBJ.Datasource=my.RS
'---------------------------------------------------------------------
这个方法对于开发简单小型的MIS系统很实用，也可以在报表和数据表中使用，缺点是在多表操作和函数嵌套调用时，一个动态ADO对象不能同时执行两个工作，后一个写入的SQL语句会覆盖先写入的SQL语句，当在回到前一个过程时，会因为字段找不到而出错。因此如果可能需要进行多表操作，可以尝试多定义几个CONN 和RS对象。

>> 将文本赋值给MsFlexGrid的单元格
MsFlexGrid.TextMatrix(3,1)=”Hello”

>> 在MsFlexGrid控件单元格中插入背景图形
Set MsFlexGrid.CellPicture=LoadPicture(“C:\temp\1.bmp”)

>>选中某个单元
MsFlexGrid.Row=1
MsFlexGrid.Col=1

>>用粗体格式化当前选中单元
MsFlexGrid.CellFontBold=True

>> 添加新的一行
使用AddItem方法,用Tab字符分开不同单元格的内容
dim row as string
row=”AAA”&vbtab&”bbb”
MsFlexFrid1.addItem row

>>怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?
    Dim i As Integer
    With MSFlexGrid1
         .AllowBigSelection = True    ’ 设置网格样式
         .FillStyle = flexFillRepeat
         For i = 0 To .Rows - 1
             .Row = i: .Col = .FixedCols
             .ColSel = .Cols() - .FixedCols - 1
             If i Mod 2 = 0 Then
                .CellBackColor = &HC0C0C0    ’ 浅灰
             Else
                .CellBackColor = vbBlue ’ 兰色
             End If
         Next i
     End With

>> MSFlexGrid控件如何移到最后一行
MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1

>>如何判断msflexgrid有无滚动条
Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long

Public Const SB_HORZ = &H0
Public Const SB_VERT = &H1

Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean           ’判断水平滚动条的可见性
Dim i As Long
VsScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then VsScroll = True
End Function

Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean           ’判断垂直滚动条的可见性
Dim i As Long
HeScroll = False
i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
If lpMaxPos <> lpMinPos Then HeScroll = True
End Function

>>程序运行时，想动态增加MSFlexgrid的列数
在第2列后插入一列：
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub

Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub

>> MSFlexGrid中的对齐功能的使用
设置MSFlexGrid1.ColAlignment(index)=n

>>得到MSFlexGrid控件中当前选中的一行
msflexgrid1.rowsel就是当前选中行

>> 如何通过代码调节列宽度
msflexgrid1.colwidth(i)=4000
增加 MsFlexGrid 的编辑功能

概述
MsFlexGrid 控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能。

在按下一个键后， 就把TextBox 移动到当前的位置， 并激活。 在键入回车或移动到其他网格时， 就把TextBox 中的内容放到网格中。

实现步骤
1 打开 VB5， 开启一个新的工程。

2 在菜单“工程” 中选择 “部件”， 在列表中选中 “Microsoft FlexGrid Control ..”

3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。 修改MsFlexGrid 控件的名称为 Grid1， 设置Grid1 的行，列 为 4， 固定行，列为 0。 设置 Text1 的 Visiable 为 False， BorderStyle 为 None(0)。

4 在Form1 的代码中增加声明：

Const ASC_ENTER = 13 '回车
Dim gRow As Integer
Dim gCol As Integer

5 增加代码到 Grid_KeyPress 过程：

Private Sub Grid1_KeyPress(KeyAscii As Integer)
' Move the text box to the current grid cell:
Text1.Top = Grid1.CellTop + Grid1.Top
Text1.Left = Grid1.CellLeft + Grid1.Left
' Save the position of the grids Row and Col for later:
gRow = Grid1.Row
gCol = Grid1.Col
' Make text box same size as current grid cell:
Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
' Transfer the grid cell text:
Text1.Text = Grid1.Text
' Show the text box:
Text1.Visible = True
Text1.ZOrder 0 ' 把 Text1 放到最前面！
Text1.SetFocus
' Redirect this KeyPress event to the text box:
If KeyAscii <> ASC_ENTER Then
SendKeys Chr$(KeyAscii)
End If
End Sub

6 增加代码到 Text1_KeyPress 过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = ASC_ENTER Then
Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
KeyAscii = 0 ' Ignore this KeyPress.
End If
End Sub

7 增加代码到 Text1_LostFocus 过程：

Private Sub Text1_LostFocus()
Dim tmpRow As Integer
Dim tmpCol As Integer
' Save current settings of Grid Row and col. This is needed only if
' the focus is set somewhere else in the Grid.
tmpRow = Grid1.Row
tmpCol = Grid1.Col
' Set Row and Col back to what they were before Text1_LostFocus:
Grid1.Row = gRow
Grid1.Col = gCol
Grid1.Text = Text1.Text ' Transfer text back to grid.
Text1.SelStart = 0 ' Return caret to beginning.
Text1.Visible = False ' Disable text box.
' Return row and Col contents:
Grid1.Row = tmpRow
Grid1.Col = tmpCol
End Sub

DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了DataGrid 控件的 DataSource 属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。
　　　　在运行时，可以在程序中切换 DataSource 来察看不同的表，或者可以修改当前数据库的查询，以返回一个不同的记录集合。
　　　　注意 DataGrid 控件与 Visual Basic 5.0中的 DBGrid 是代码兼容的，除了一个例外：DataGrid 控件不支持 DBGrid 的“解除绑定模式”概念。DBGrid 控件包括在 Visual Basic 的 Tools 目录中。
　　　　可能的用法
　　　　查看和编辑在远程或本地数据库中的数据。
　　　　与另一个数据绑定的控件（诸如 DataList 控件）联合使用，使用 DataGrid控件来显示一个表的记录，这个表通过一个公共字段链接到由第二个数据绑定控件所显示的表。
　　　　使用 DataGrid 控件的设计时特性
　　　　可以不编写任何代码，只通过使用 DataGrid 控件的设计时特性来创建一个数据库应用程序。下面的说明概要地说明了在实现 DataGrid 控件的典型应用时的一般步骤。完整的循序渐进的指示，请参阅主题“DataGrid 方案1: 使用 DataGrid 控件创建一个简单数据库应用程序”。
要在设计时实现一个 DataGrid 控件
　　　　1. 为要访问的数据库创建一个 Microsoft 数据链接 (.MDL) 文件。请参阅“创建 Northwind OLE DB 数据链接”主题，以获得一个示例。
　　　　2. 在窗体上放置一个 ADO Data 控件，并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。
　　　　3. 在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记
录集的 SQL 语句。例如，Select * From MyTableName Where CustID = 12
　　　　4. 在窗体上放置一个 DataGrid 控件，并将其 DataSource 属性设置为这个 ADO Data 控件。
　　　　5. 右键单击该 DataGrid 控件，然后单击“检索字段”。
　　　　6. 右键单击该 DataGrid 控件，然后单击“编辑”。
　　　　7. 重新设置该网格的大小、删除或添加网格的列。
　　　　8. 右键单击该 DataGrid 控件，然后单击“属性”。
　　　　9. 使用“属性页”对话框来设置该控件的适当的属性，将该网格配置为所需的外观和行为。
　　　　在运行时更改显示的数据
　　　　在创建了一个使用设计时特性的网格后，也可以在运行时动态地更改该网格的数据源。下面介绍实现这一功能的通常方法。
　　　　更改 DataSource 的RecordSource
　　　　更改所显示的数据的最通常方法是改变该 DataSource 的查询。例如，如果DataGrid 控件使用一个ADO Data控件作为其 DataSource，则重写RecordSource和刷新该ADO Data 控件都将改变所显示的数据。
　　　　' ADO Data 控件连接的是 Northwind 数据库的' Products 表。新查询查找所有
　　　　' SupplierID = 12 的记录。
　　　　Dim strQuery As String
　　　　strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"
　　　　Adodc1.RecordSource = strQuery
　　　　Adodc1.Refresh
　　　　更改 DataSource
　　　　在运行时，可以将 DataSource 属性重新设置为一个不同的数据源。例如，您可能具有若干个 ADO Data 控件，每个控件连接不同的数据库，或设置为不同的 RecordSource 属性。可以简单地将 DataSource 从一个 ADO Data控件重新设置为另一个 ADO Data 控件：
　　　　' 将 DataSource 重新设置为一个连接到 Pubs 数据库的、
　　　　' 使用 Authors 表的 ADO Data 控件。
　　　　Set DataGrid1.DataSource = adoPubsAuthors
　　　　重新绑定 DataSource
　　　　当将 DataGrid 控件用于一个远程数据库，诸如 SQLServer 时，可以改变表的结构。例如，可以给这个表添加一个字段。在这种情形下，可以调用Rebind 方法根据新的结构来重新创建该网格。注意，如果已经在设计时改变了这个列的布局，DataGrid 控件将会试图重新创建当前的布局，包括任何空的列。不过，通过首先调用 ClearFields 方法，可以强制该网格重新设置所有的列。
　　　　从 DataGrid 返回值
　　　　在 DataGrid 被连接到一个数据库后，可能想要监视用户单击了哪一个单元。可以使用 RowColChange 事件——而不是 Click 事件。如下所示：
　　　　Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
　　　　　　　' 显示用户所单击的单元的文字、行和列的信息。
　　　　　　　Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col
　　　　End Sub
　　　　使用 CellText 和 CellValue 方法
　　　　当一个列使用 NumberFormat 属性设置格式后，CellText 和 CellValue 属性是很有用的。NumberFormat 属性不必更改实际的数据格式就可以更改任何包含数字的列的格式。例如，给定一个网格，其中包含一个名为 ProductID的、包含整数的列。下面的代码将使 DataGrid 以"P-0000" 的格式来显示数据。换句话说，尽管在 ProductID 字段中所包含的实际数值为 "3"，但该网格所显示的值将是 "P-0003"。
　　　　　　Private Sub Form_Load()
　　　　　　　　DataGrid1.Columns("ProductID").NumberFormat = "P-0000"
　　　　　　End Sub
　　　　要返回数据库中所包含的实际值，应使用 CellValue 方法，如下所示：
　　　　　　Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
　　　　　　　　Debug.Print _
　　　　　　　　DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)
　　　　　　End Sub
　　　　注意 上面所用的 CellValue 和下面所用的 CellText 值，都需要将Bookmark 属性作为一个参数，功能才正确。
　　　　相反地，如果要返回该字段的格式化的值，应使用 CellText 方法：
　　　　　　Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
　　　　　　　　Debug.Print _
　　　　　　　　DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)
　　　　　　End Sub
　　　　注意 上面的 CellText 方法等价于使用 DataGrid 控件的 Text 属性。
　　　　下一步
　　　　要阅读关于使用该控件创建简单的应用程序的一个循序渐进的过程，请参阅“使用 DataGrid 控件创建简单的数据库应用程序”，或“创建一个连接DataList 控件的 DataGrid”。
　　　　要了解关于 Split 对象以及如何对其编程的详细信息，请参阅“操作DataGrid 视图”。
　　　　创建 Northwind 的OLE DB 数据链接
　　　　访问数据的一个重要步骤是为想要访问的每个数据库都创建一个 OLE DB数据源。下面的步骤为 Visual Basic 所提供的Nwind.mdb (Northwind) 数据库创建这样一个对象。这个数据源被用于 Visual Basic 文档所提供的一些示例过程。在一个计算机上只需要创建一次OLE DB数据源。
　　　　要创建 Northwind 的OLE DB 数据源
　　　　1. 打开 Windows Explorer或 Windows NT Explorer。
　　　　2. 打开您想要创建 OLE DB 数据源的目录。在该示例中，打开 ProgramFiles、Microsoft Visual Studio和VB98。
　　　　3. 右键单击 Explorer 的右边窗格，然后单击上下文菜单上的“新建”。从文件类型列表中单击“Microsoft 数据链接”。
　　　　4. 重命名新文件 Northwind.MDL。
　　　　5. 右键单击文件并单击上下文菜单上的“属性”，以显示“Northwind.MDLProperties”对话框。
　　　　6. 单击“连接”选项卡。
　　　　7. 单击“提供方”框并选择“Microsoft Jet 3.51 OLE DB Provider”。
　　　　8. 在Data Source 框中输入nwind.mdb文件的路径。
　　　　9. 单击“测试连接”，检测连接。
　　　　10. 如果连接通过，单击“确定”。
　　　　注意 也可以通过在“控制面板”中单击“数据链接”图标创建一个 OLE DB数据源。在“管理数据链接文件”对话框中，单击“新建”创建一个新的数据源。
　　　　使用 DataGrid 和 ADO Data控件创建一个简单的数据库应用程序
　　　　只使用一个 DataGrid 和一个 ADO Data 控件，可以创建一个允许最终用户阅读和写入记录集的数据库应用程序。
　　　　要使用 ADO 数据控件来创建一个简单的数据库应用程序
　　　　1. 为 Northwind 数据库创建一个OLE DB 数据源。如果还没有创建数据源，请按照“创建 Northwind 的OLE DB Data Link”中的步骤操作。
　　　　2. 在Visual Basic 中创建一个新的标准的 EXE 工程。如果 DataGrid 控件不在“工具箱”中，则用右键单击“工具箱”，然后使用“部件”对话框来添加控件。同时也载入 ADO 控件。
　　　　3. 在空窗体上各放置控件的一个实例。
　　　　4. 将 ADO 控件的ConnectionString 属性设置为 Northwind 的数据源。单击并选定该 ADO Data 控件，并按 F4 键出现“属性”窗口。单击“ConnectionString”，然后单击 OLE DB File。单击 Northwind 的数据源。
　　　　5. 设置 ADO 控件的 RecordSource 属性。在“属性”窗口中，单击“记录源”并输入一条 SQL 语句来填充 DataGrid
控件。在本例中，输入“Select * From Products”。
　　　　6. 将 DataGrid 控件的 DataSource 属性设置为这个 ADO Data 控件。单击并选定该 DataGrid 控件。在其“属性”窗口中，单击“数据源”将出现一个包含所有数据控件的下拉列表——在本例中只有 ADO Data 控件。单击这个控件。
　　　　7. 按 F5 键运行这个工程。
　　　　创建一个连接 DataList 控件的 DataGridData
　　　　Grid 的通常用法是显示数据库的一个表所提供的“详细内容”。例如，Northwind (Nwind.mdb) 数据库包括两个表，一个名为 "Suppliers"，另一个名为 "Products"。在本例中，我们使用 DataList 控件来显示 "Suppliers" 表中的供应商的公司名称。当用户单击任意一个公司名称时，这个 DataList 控件将提供该公司的 SupplierID。使用这个标识符，就可以构造一个查询，在 "Products" 表中检索具有相匹配的 SupplierID 的所有记录。换句话说，当用户单击一个公司时（在 DataList 控件中），该公司生产的所有产品将出现在 DataGrid 控件中。
要使用一个指定供应商的产品填充一个 DataGrid 控件
　　　　1. 确认在机器上已为 Northwind 数据库建立了一个OLE DB 数据源；如果还没有创建这样的一个数据源，请按照“创建 Northwind 的OLE DBData连接”的步骤操作。
　　　　2. 在Visual Basic 中创建一个新的标准的 EXE 工程。
　　　　如果 DataGrid、DataList 和 ADO Data 控件不在“工具箱”中，则右键单击“工具箱”，然后单击“部件”。在“部件”对话框中双击“MicrosoftDataGrid Control”、“Microsoft DataList Controls”以及“Microsoft ADOControl”。
　　　　3. 在一个空窗体中各放置一个 DataGrid 和 DataList 控件的实例。将 DataList 控件放置在该窗体的左上角，然后将 DataGrid 控件放在它的下面的某处。
　　　　4. 在窗体放置两个 ADO Data 控件实例。选择第一个 ADO Data 控件，并按 F4 键来显示其“属性页”。将该控件的 Name 属性设置为 adoSuppliers。选择第二个 ADO Data 控件并将其 Name 属性设置为 adoProducts。将第一个控件直接放在 DataList 控件的下面，把第二个控件直接放在 DataGrid 控件的下面。
　　　　5. 将这两个 ADO Data 控件的 ConnectionString 属性设置为 Northwind的OLE DB 数据源。选择名为 adoSuppliers 的控件，然后将其ConnectionString 属性设置为Northwind 的OLE DB data source (Northwind.mdl)。选择名为 adoProducts的控件，并重复该操作。
　　　　6. 设置这两个 ADO Data 控件的 RecordSource 属性。选择 adoSuppliers 并在其“属性页”上单击“RecordSoure”。输入 Select* From Suppliers。这个查询将指示该 ADO Data 控件返回 Suppliers 表中的所有记录。选择 adoProducts，单击“RecordSoure”，并输入 Select *From Products。这个查询将返回在 Products 表中的所有记录。
　　　　7. 将 DataList 控件的 RowSource 属性设置为 adoSuppliers。
　　　　　RowSource 属性决定由哪一个数据源为 ListField 属性供应数据。
　　　　8. 将 DataList 控件的 ListField 属性设置为 CompanyName。
　　　　　ListField 属性被设置成名为 Suppliers 的表中的字段名称。在运行时，DataList 控件显示在这个属性中所指定的字段的值。在本例中，该属性将显示在 Suppliers 表中找到的一个公司名称。
　　　　9. 将 DataList 控件的 BoundColumn 属性设置为 SupplierID。
　　　　　BoundColumn 属性被设为 Suppliers 表中的第二个字段。在本例中，这个属性就被设为 SupplierID 字段。当单击 DataList 控件时，BoundText属性返回与在 DataList 控件中所显示的公司相关联的 SupplierID 字段的值。这个值将用于对 Products 表的查询，该查询为 DataGrid 控件提供数据。
　　　　10. 将 DataGrid 控件的 DataSource 属性设置为 adoProducts。
　　　　　DataSource 属性为该控件指定数据源。在本例中，该属性被设置为名为adoProducts 的 ADO Data 控件，这将返回 Products 表中的所有记录。
　　　　11. 在窗体的代码模块中，添加下述内容：
　　　　　　Private Sub Datalist1_Click()
　　　　　　' 声明一个用来包含新查询的字符串变量。这个新的
　　　　　　' 查询使用 DataList 控件的BoundText属性
　　　　　　' 来提供一个 SupplierID 值。新查询查找所有
　　　　　　' 具有相同的 SupplierID 的产品。这个查询被
　　　　　　' 指定给名为 adoProducts 的 ADO Data 控件
　　　　　　' 的 RecordSource 属性。在刷新控件后，DataGrid
　　　　　　' 将使用包含由同一个公司供应的所有产品的新
　　　　　　' 记录集来更新。
　　　　　　Dim strQuery As String
　　　　　　strQuery = "Select * FROM Products WHERE SupplierID = " & _
　　　　　　Datalist1.BoundText
　　　　　　With adoProducts
　　　　　　　　.RecordSource = strQuery
　　　　　　　　.Refresh
　　　　　　End With
　　　　　　With DataGrid1
　　　　　　　　.ClearFields
　　　　　　　　.ReBind
　　　　　　End With
　　　　　　End Sub
　　　　12. 运行该工程。
　　　　单击 DataList 控件中的任意公司名称，将自动用该公司所供应的产品更新 DataGrid 控件。

使用列
　　　　通过更改 DataSource 属性，可以动态地更改在 DataGrid 控件中显示的数据。例如，可以显示同一个数据库的不同表。如果这样做，则 DataGrid 控件将只根据默认的属性显示数据。
　　　　添加、删除或隐藏列
　　　　通过使用 Columns 集合和 Column 对象的属性和方法，可以在程序中添加、删除或隐藏列。
　　　　添加和删除一列
　　　　要在运行时添加一列，可以使用 Add 方法。如果首先声明一个变量，并将新对象赋给该变量，就可以用简明的代码设置各种属性。
　　　　Private Sub AddColumn()
　　　　　　' 在最右边的位置添加一列。然后设置其 Visible、Width、
　　　　　　' Caption以及 Alignment 属性。DataField 属性则指定
　　　　　　' 该列将绑定到哪一个字段。
　　　　　　Dim c As Column
　　　　　　Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)
　　　　　　With c
　　　　　　　.Visible = True
　　　　　　　.Width = 1000
　　　　　　　.Caption = "我的新列"
　　　　　　　.DataField = Adodc1.Recordset.Fields("ProductName").Name
　　　　　　　.Alignment = dbgRight
　　　　　　End With
　　　　End Sub
　　　　可以使用方法来删除任意一列。请确保使用 ColIndex 参数来指定要删除的列。下面的代码将删除被单击的列。
　　　　Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
　　　　　　　DataGrid1.Columns.Remove ColIndex
　　　　End Sub
　　　　隐藏一列
　　　　通过将 Visible 属性设置为 False，可以隐藏任意一列。当想要限制用户可以查看或编辑的列时这一功能特别有用。下面的示例在 Columns 集合中循环，隐藏除少数列之外的所有列。
　　　　Private Sub HideColumns()
　　　　　　' 使用 DataField 属性来判别正在测试的是哪一列。
　　　　　　' 只显示三列：ProductName、UnitPrice以及
　　　　　　' UnitsInStock。
　　　　　　Dim c As Column
　　　　　　For Each c In DataGrid1.Columns
　　　　　　　　　Select Case c.DataField
　　　　　　　　　Case "ProductName"
　　　　　　　　　　　c.Visible = True
　　　　　　　　　Case "UnitPrice"
　　　　　　　　　　　c.Visible = True
　　　　　　　　　Case "UnitsInStock"
　　　　　　　　　　　c.Visible = True
　　　　　　　　　　　c.Caption = "In Stock" 　　　' 更改这个列的标头。
　　　　　　　　　Case Else　　　　　　　　　　　　 ' 隐藏其它所有的列。
　　　　　　　　　　　c.Visible = False
　　　　　　　　　End Select
　　　　　　Next c
　　　　End Sub
　　　　操作 DataGrid 视图
　　　　一个“拆分”的网格使最终用户对相同的数据可以拥有多个视图。例如，假设有一个由十个字段组成的大表。在这种情况下，在控件中察看的记录集将有十列宽，除非窗体非常宽，否则用户将无法同时看见所有列的内容。，而且，假设用户只对第一列和最后一列感兴趣（例如，第一列是名字，最后一列是电话号码）。为了能同时看到在两端的列（不重新安排列的顺序），可以对网格进行拆分。
　　　　创建一个 Split 对象
　　　　在设计时，可以创建一个拆分，具体步骤是：右键单击网格，单击“编辑”，再单击右键，然后单击“拆分”。通过右键单击该控件，并单击“属性”来显示“属性页”对话框，可以编辑这个拆分。可以使用“拆分”选项卡来自定义拆分。要删除一个拆分，右键单击该拆分，并单击“删除”。
　　　　在运行时，最终用户也可以通过单击位于这个网格控件的左下边的右边的选项卡，以手工方式来拆分该网格（除非不允许这个操作），如下图所示：
 
默认情况下，DataGrid 控件包含一个 Split 对象。防止最终用户添加拆分的代码为：
　　　　DataGrid1.Splits(0).AllowSizing = False
　　　　在程序中添加和删除拆分
　　　　DataGrid 控件包含一个 Split 对象的集合。要在程序中添加拆分，可以使用 Add 方法，如下所示：
　　　　DataGrid1.Splits.Add 1
　　　　注意 Add 方法需要新的拆分索引作为其参数。要添加一个拆分，应将这个索引参数设置为 Splits 集合的 Count 属性值。
　　　　使用 Split 集合的 Add 方法，可以在程序中按照实际需要添加拆分。由于添加多于两个以上的拆分将使网格很难使用，可以使用该集合的 Count 属性来限制拆分的数目。
　　　　If DataGrid1.Splits.Count < 3 Then ' 添加一个拆分。
　　　　　　　DataGrid1.Splits.Add DataGrid1.Splits.Count
　　　　End If
　　　　使拆分同步
　　　　当拆分多于一个时，可能希望控制这些拆分如何滚动。例如，在一个具有三个拆分的网格中，可以决定只让第一个和第三个拆分同步，而让中间的拆分独立地滚动。要同步任何两个（或多个）拆分，只需将每个 Split 对象的 ScrollGroup 属性设置为同一个值。
　　　　' 使第一个和第三个 Split 对象同步。
　　　　With DataGrid1
　　　　　　.Splits(0)
　　　　.ScrollGroup = 1
　　　　.Splits(1).ScrollGroup = 2
　　　　.Splits(2).ScrollGroup = 1
　　　　End With
　　　　通过设置 Scrollbars 属性，使同步的拆分组只显示一个滚卷条，从而进一步自定义拆分的外观。
　　　　控制 Tab 键和箭头键的行为
　　　　使用 WrapCellPointer、TabAcrossSplits以及 TabAction 属性，可以决定当最终用户按下 tab 键或箭头键时网格的行为。
　　　　在这三个属性中，TabAction 属性级别最高，它决定 WrapCellPointer 和TabAcrossSplits 这两个属性是否能生效。TabAction 有三个设置值： ControlNavigation、Column Navigation 和 Grid Navigation。当该属性设置为 ControlNavigation 时，按 Tab 键根据 TabIndex 将焦点切换到下一个控件。这一设置优先于 WrapCellPointer 和 TabAcrossSplits。
　　　　WrapCellPointer 属性决定在任何单个的拆分中 tab 键和箭头键的行为。如果该属性设置为 True，且当前单元位于最后一列，这时最终用户按 tab 键则使第一列的下一行变成当前的单元。不过，如果当前单元位于最后一行的最后一列时，这时就没有地方可以“换行”。
　　　　TabAcrossSplits 属性决定当网格中存在两个或多个拆分时 tab 和箭头键的行为。如果该属性设置为 True，且当前单元位于任何一个拆分的最后一列，则按Tab或箭头键将使当前单元“跳” 到下一个拆分的第一列。当前单元仍保持相同的行位置。
　　　　注意 如果 WrapCellPointer 和 TabAcrossSplits 属性都设置为 True，则只有当前单元位于最后一个拆分的最后一列时才会换行。这时当前单元将换到第一个拆分的第一列中的下一行。
　　　　自定义列集合
　　　　每一个 Split 对象都有一个 Columns 属性，允许用户来操作一个 Column对象的集合。通过这样做，可以更改每个 Split 对象的外观。例如，可以用一个拆分包含显示姓氏字段和名字字段的两个列，而第二个拆分则显示电话字段和地址字段。要实现这一目标，需要将其它的每一列的 Visible 属性设置为 False，如下所示：
　　　　' 枚举 Columns 集合，对每一个 Column 对象的 DataField 属性
　　　　' 进行测试。如果测试失败，则隐藏这一列。
　　　　Dim i As Integer
　　　　' 隐藏除 ProductName 列之外的所有列。
　　　　For i = 0 To DataGrid1.Splits(0).Columns.Count - 1
　　　　　　If DataGrid1.Splits(0).Columns(i).DataField <> "ProductName" Then
　　　　　　　　　DataGrid1.Splits(0).Columns(i).Visible = False
　　　　　　End If
　　　　Next i
　　　　' 隐藏除 UnitPrice 列之外的所有列。
　　　　For i = 0 To DataGrid1.Splits(0).Columns.Count - 1
　　　　　　If DataGrid1.Splits(1).Columns(i).DataField <> "UnitPrice" Then
　　　　　　　　　DataGrid1.Splits(1).Columns(i).Visible = False
　　　　　　End If
　　　　Next I
　　　使用 Bookmarks 和 SelBookmarks 跟踪记录
　　　　Bookmarks 和 SelBookmarks 提供了标记记录的一种手段。当编写应用程序中的特定功能（诸如允许最终用户手工地选择多个不相邻的记录，进行所选记录的大批更新）时，这就很有必要。在这些情形中，需要标记哪些记录已被选择，因此可以使用 SelBookmarks 集合及其属性。
　　　　有两个函数，分别是 CellText 和 CellValue 方法，需要标记才能正确执行。
　　　　标记用户的选择
　　　　SelBookmarks 集合包含所有选定的记录的书签。当最终用户手工选择记录时（即在单击时按住 CTRL 键），每一个选定的记录的书签都会加入到该集合中。使用标准的循环，用户可以知道已经选定了什么，也可以保存书签（因为可能需要恢复某个值），以及执行操作：
　　　　Dim i as Integer ' 计数器
　　　　Dim intCount As Integer
　　　　intCount = DataGrid1.SelBookmarks.Count - 1
　　　　ReDim arrSelBK(intCount) ' 声明用于保存书签的数组。
　　　　For i = 0 To intCount
　　　　　　ArrSelBK(i) = DataGrid1.SelBookmarks(i)
　　　　　　' 在此处执行操作。如果该操作必须被
　　　　　　' 取消，则退出该循环，然后使用该数
　　　　　　' 组来取消这些更改。
　　　　Next i
　　　　通过在程序中添加到 SelBookmarks 集合来选择记录
　　　　通过将记录添加到这个集合，也可以在程序中选定记录。例如，可能有一个显示指定的客户所有订货的网格。如果要高亮显示该客户花费超过 $100的所有记录，则对记录进行过滤，并将结果书签添加到 SelBookmarks 集合。
　　　　Dim rs As Recordset
　　　　Set rs = Adodc1.Recordset
　　　　While Not rs.EOF
　　　　　　If rs!SupplierID = 12 Then
　　　　　　　　DataGrid1.SelBookmarks.Add rs.Bookmark
　　　　　　End If
　　　　　　rs.MoveNext
　　　　Wend
　　　　显示计算结果字段
　　　　假设在表中有一个名为 "Price" 的字段，并且想使用本地税率来计算表中每一项的税费。这就是一个计算结果字段，可以通过修改 DataSource 的查询来计算这个值，并把这个值返回给 DataGrid 控件。
　　　　要在 DataGrid 控件中创建一个计算结果字段
　　　　1. 确认在机器上已为 Northwind 数据库建立了一个OLE DB 数据源；如果还没有创建这样的一个数据源，请按照“创建 Northwind 的OLE DBData 连接”的步骤操作。
　　　　2. 在窗体上放置一个 ADO Data 控件和一个 DataGrid 控件。
　　　　3. 将 ADO Data 控件的ConnectionString 属性设置为 Northwind 的数据源。
　　　　4. 设置 ADO Data 控件的 RecordSource 属性。在“属性”窗口中，单击“记录源”并输入 Select ProductName, UnitPrice,(UnitPrice * .082) As Tax From Products。
　　　　5. 将 DataGrid 控件的 DataSource 属性设置为这个 ADO Data 控件。
　　　　6. 运行该工程。
　　　　与类模块一起使用 DataGrid 控件
　　　　如果想要访问以自定义格式或以 ODBC 驱动程序不直接支持的格式存放的数据，可以创建一个类来封装该数据。然后可以编写该类的自定义函数来检索这些数据。这样该类就变成了一种数据源，可以被任何数据使用者（如DataGrid 控件）使用。
　　　　在这个类模块的Initialize 事件中，首先通过声明一个作为 New　ADODB.Recordset的变量，来创建一个 ADODB recordset 对象。在创建了这个 recordset 对象后，再添加字段，每个数据源中的每个字段都要加入。然后使用合适的数据填充这个记录集。
　　　　注意 也可以使用 OLEDB 示例提供者来创建一个数据源。关于 OLEDB示例提供者的详细信息，请参阅“创建带有数据提供方的部件”。
　　　　类模块有一个 GetDataMember 事件，只要当数据使用者（诸如 DataGrid 控件）需要数据时就产生该事件。在这个事件中，Data 参数被设置为在Initialize 事件中所创建的 recordset 对象。
　　　　如果要使用这个类模块，应创建一个具有一个 DataGrid 控件的窗体。在该窗体的 Load 事件的代码中，将该控件的 DataSource 属性设置为这个类。
　　　　注意 数据类模块在设计时是不可用的。例如，如果使用 DataGrid 控件，则当用户在“属性”窗口中单击“数据源”时，所有可用的数据源都会出现在一个下拉列表中。但其中不会有这个数据类模块，它只能在代码中设置。
　　　　使用类模块创建一个数据源
　　　　下面的示例使用一个类模块来创建一个简单数据源。然后通过 DataSource属性将 DataGrid 控件绑定到该模块。
要创建一个用于DataGrid 的类
　　　　1. 创建一个新的标准 Exe 工程。
　　　　2. 给窗体添加一个 DataGrid 控件。如果DataGrid控件不在“工具箱”中，则在“工程”菜单中单击“部件”，
再单击“Microsoft DataGrid Control”，然后单击“确定”。
　　　　3. 在“工程”菜单中，单击“引用”。在“引用”对话框中，单击“MicrosoftActiveX Data Objects 2.0 Library”。
　　　　4. 在“工程”菜单中，单击“添加类模块”来给工程添加一个数据类模块。
　　　　5. 在“工程资源管理器”窗口中，单击并选定“类”图标，并按 F4 键显示“属性”窗口。
　　　　6. 在“属性”窗口中，将类的名称更改为NamesData。
　　　　7. 在“属性”窗口中，单击“DataSourceBehavior”并将该属性更改为vbDataSource。
　　　　8. 在该类模块的 Declarations 部分，创建一个 ADODB Recordset变量，如下所示：
　　　　Option Explicit
　　　　Private WithEvents rsNames As ADODB.RecordSet
　　　　使用 WithEvents 关键词来声明该变量，使用户可以对 RecordSet 对象的事件编程。
　　　　9. 在该类的 Initialize 事件中，添加下述代码：
　　　　Private Sub Class_Initialize()
　　　　　　' 将新的数据成员的名称添加到 DataMember 集合
　　　　　　' 这使其它对象可以看见这些可用的
　　　　　　DataMembersDataMembers.Add "Names"
　　　　　　Set rsNames = New ADODB.RecordSet　　　 ' 设置对象变量。
　　　　　　' 创建一个具有两个字段的 recordset，并打开该 recordset。
　　　　　　' 第一个记录具有一个整数的数据类型，第二个记录是一个最大可
　　　　　　' 达 256 个字符的字符串。CursorType 被设置为 OpenStatic
　　　　　　' —— 一个可更新的对一组记录的快照。LockType 被设置为
　　　　　　' LockOptimistic，以允许对该 recordset 进行更新。
　　　　　　With rsNames
　　　　　　　　.Fields.Append "ID", adInteger
　　　　　　　　.Fields.Append "Name", adBSTR, 255
　　　　　　　　.CursorType = adOpenStatic
　　　　　　　　.LockType = adLockOptimistic
　　　　　　　　.Open
　　　　　　End With
　　　　　　Dim i As Integer
　　　　　　For i = 1 to 10 　　' 添加十条记录。
　　　　　　　　rsNames.AddNew
　　　　　　　　rsNames!ID = i
　　　　　　　　rsNames!Name = "Name " & i
　　　　　　　　rsNames.Update
　　　　　　Next i
　　　　　　rsNames.MoveFirst ' 移到该记录集的开始。
　　　　End Sub
　　　　这部分代码首先创建 recordset 对象，然后给该对象添加两个字段。代码接着给 recordset 添加十条记录。
　　　　10. 在该类的 GetDataMember 事件中，添加下述代码 ：
　　　　Private Sub Class_GetDataMember(ByVal DataMember As String, _
　　　　Data As Object)
　　　　　　　Set Data = rsNames
　　　　End Sub
　　　　只要发生该事件——即当该类对象被绑定到一个数据使用者，如 DataGrid控件时，代码将返回该 recordset 对象。
　　　　11. 在 Form 对象的代码模块中，声明一个数据类的对象变量：
　　　　Option Explicit
　　　　Private datNames As NamesData ' 类变量
　　　　12. 在 Form 对象的 Load 事件的代码中，将 DataGrid 控件的 DataSource设置为该类对象。
　　　　　Private Sub Form_Load()
　　　　　　　' 创建一个新的 NamesData 对象
　　　　　　　Set datNames = New NamesData
　　　　　　　' 将这个 DataGrid 绑定到新的数据源 datNames
　　　　　　　Set DataGrid1.DataSource = datNames
　　　　　End Sub
　　　　13. 按 F5 键运行该工程。
　　　　RecordSet事件的编程
　　　　也可以对这个 Recordset 对象的事件进行编程。在该类模块中，单击“对象”框（在位于左上角），然后单击“rsNames”。在“过程/事件”框（在右上角）中，下拉列表将显示这个 Recordset 对象的所有事件。
　　　　给类添加一个属性
　　　　类模块也可以进行修改，来响应事件或函数调用。下面的代码演示了如何先给类添加属性。当从其它对象调用该对象时，这一属性将返回该类的RecordCount。
　　　　Public Property Get RecordCount() As Long
　　　　　　　RecordCount = rsNames.RecordCount
　　　　End Sub
　　　　使用 DataMember 属性
　　　　GetDataMember 事件也包括 DataMember 参数。使用这个参数，可以在类模块中包括多个记录集，并使用带 DataMember 参数的 Select Case 语句来返回相应的记录集：
　　　　Private Sub Class_GetDataMember(ByVal DataMember As String, Data As _
　　　　Object)
　　　　　　　Select Case DataMember
　　　　　　　Case "Names"
　　　　　　　　　Set Data = rsNames
　　　　　　　Case "Dates"
　　　　　　　　　Set Data = rsDates
　　　　　　　Case Else
　　　　　　　　　' 设置一个默认的数据成员
　　　　　　　　　Set Data = rsYears
　　　　　　　End Select
　　　　End Sub
　　　　如果要指定所需的 DataMember，请将数据使用者的 DataMember 属性设置为适当的字符串，然后如平常一样设置 DataSource。对于 DataGrid 控件，可以采用如下方法：
　　　　Private Sub Form_Load()
　　　　　　　' 创建一个新的 NamesData 对象
　　　　　　　Set datNames = New NamesData
　　　　　　　' 指定所需的 DataMember，然后设置 DataSource。
　　　　　　　DataGrid1.DataMember = "Names"
　　　　　　　Set DataGrid1.DataSource = datNames
　　　　End Sub

引言

　　作为微软旗下一款优秀的RAD工具，VB在数据库应用开发方面的能力十分强大。微软设计了多种数据库访问方法，下面通过对VB访问数据库的多种技术进行深入剖析，并总结出实际开发中的几点经验。希望能够对那VB的初学者有所帮助。（注意，文中所有的描述均在Windows 2000 professional和Visual Basic 6.0的环境下进行的）

一. DAO、RDO、ODBC和ADO

　　在VB的开发环境中，可以使用三种数据库访问方式，它们分别是：数据访问对象(DAO)、远程数据对象（RDO）和ADO对象模型。

　　DAO：

　　数据访问对象是用来显露了Microsoft Jet数据库引擎（最早是给Microsoft Access 所使用，现在已经支持其它数据库），并允许开发者通过ODBC直接连接到其他数据库一样，直接连接到 Access 表。DAO 最适用于单系统应用程序或在小范围本地分布使用。其内部已经对Jet数据库的访问进行了加速优化，而且其使用起来也是很方便的。所以如果数据库是Access数据库且是本地使用的话，建议使用这种访问方式。

　　VB已经把DAO模型封装成了Data控件，分别设置相应的DatabaseName属性和RecordSource属性就可以将Data控件与数据库中的记录源连接起来了。以后就可以使用Data控件来对数据库进行操作。

　　RDO

　　RDO（Remote Data Objects）远程数据对象是一个到ODBC的、面向对象的数据访问接口，它同易于使用的DAO style组合在一起，提供了一个接口，形式上展示出所有ODBC的底层功能和灵活性。尽管RDO在很好地访问Jet或ISAM数据库方面受到限制，而且它只能通过现存的ODBC驱动程序来访问关系数据库。但是，RDO已被证明是许多SQL Server、Oracle 以及其他大型关系数据库开发者经常选用的最佳接口。RDO提供了用来访问存储过程和复杂结果集的更多和更复杂的对象、属性，以及方法。

　　和DAO一样，在VB中也把其封装为RDO控件了，其使用方法与DAO控件的使用方法完全一样。

　　ODBC

　　ODBC(Open Database Connectivity，开放数据库互连)是微软公司开放服务结构(WOSA,Windows Open Services Architecture)中有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准API（应用程序编程接口）。这些API利用SQL来完成其大部分任务。ODBC本身也提供了对SQL语言的支持，用户可以直接将SQL语句送给ODBC。

　　一个基于ODBC的应用程序对数据库的操作不依赖任何DBMS，不直接与DBMS打交道，所有的数据库操作由对应的DBMS的ODBC驱动程序完成。也就是说，不论是FoxPro、Access还是Oracle数据库，均可用ODBC API进行访问。由此可见，ODBC的最大优点是能以统一的方式处理所有的数据库。

　　一个完整的ODBC由下列几个部件组成：
　　　
　　1. 应用程序(Application)

　　ODBC管理器(Administrator)。该程序位于Windows 95控制面板(Control Panel)的32位ODBC内，其主要任务是管理安装的ODBC驱动程序和管理数据源。

　　驱动程序管理器(Driver Manager)。驱动程序管理器包含在ODBC32.DLL中，对用户是透明的。其任务是管理ODBC驱动程序，是ODBC中最重要的部件。

　　2. ODBC API

　　ODBC 驱动程序。是一些DLL，提供了ODBC和数据库之间的接口。

　　数据源。数据源包含了数据库位置和数据库类型等信息，实际上是一种数据连接的抽象。

　　ODBC连接目前仅仅限于关系型数据库，对于其他数据源比如EXCEL、文本文件都不能进行访问，而且有很多DBMS（数据库管理系统）都不能充分的支持其所有的功能。相比之下，OLEDB可以存取任何形式的数据，所以其功能是相当的强大，它也指导了目前技术发展的方向。

　　ADO

　　ADO（ActiveX Data Object）是DAO/RDO的后继产物。ADO 2.0在功能上与RDO更相似，而且一般来说，在这两种模型之间有一种相似的映射关系。ADO"扩展"了DAO和 RDO 所使用的对象模型，这意味着它包含较少的对象、更多的属性、方法（和参数），以及事件。

　　作为最新的数据库访问模式，ADO的使用也是简单易用，所以微软已经明确表示今后把重点放在ADO上，对DAO/RDO不再作升级，所以ADO已经成为了当前数据库开发的主流。

　　ADO涉及的数据存储有DSN(数据源名称)、ODBC（开放式数据连接）以及OLE DB三种方式。后面的例程将详细讲解这三种方式的具体访问实现。

　　要使用ADO，必须清楚ADO的对象层次结构，其大体上分为以下7个对象层次：

　　1、 Command 对象：包含关于某个命令，例如查询字符串、参数定义等的信息。Command 对象在功能上和 RDO的rdoQuery 对象相似。

　　2、 Connection 对象：包含关于某个数据提供程序的信息。Connection 对象在功能上和 RDO 的 rdoConnection 对象是相似的，并且包含了关于结构描述的信息。它还包含某些 RDOEnvironment 对象的功能，例如transaction 控件。

　　3、 Error对象：包含数据提供程序出错时的扩展信息。Error 对象在功能上和 RDO 的rdoError 对象相似。

　　4、 Field 对象：包含记录集中数据的某单个列的信息。Field 对象在功能上和 RDO的rdoColumn 对象相似。

　　5、 Parameter 对象：包含参数化的Command对象的某单个参数的信息。该 Command对象有一个包含其所有Parameter 对象的 Parameters 集合。Parameter 对象在功能上和 RDO 的 rdoParameter 对象相似。

　　6、 Property对象：包含某个 ADO 对象的提供程序定义的特征。没有任何等同于该对象的RDO，但DAO有一个相似的对象。

　　7、Recordset对象：用来存储数据操作返回的记录集。此对象和Connection对象是所有对象最重要的两个对象。

　　当然，对于初级用户来说，我们只需要掌握其中的Connection对象和RecordSet对象就可以实现基本的数据库操作，在后面的经验介绍里面我将给出详细的介绍。

二. 开发经验小结：

　　前面总体上介绍了一下当前在VB平台下的数据库访问技术，这些技术也是当前数据库技术的主流。下面笔者结合近几年的开发经验，给出一些开发经验和小技巧，以供参考：

　　经验一：如果数据量不大，而且要求开发周期短的情况，建议使用DAO+Access虽然DAO功能并不强大，但是其对Jet引擎进行了加速优化处理，所以这种搭配应该是比较好的选择。

　　经验二：RDO当前已经用的很少了，一般用ADO来替代。

　　经验三：（本经验很重要）使用ADO开发时，连接数据库的方式有三种（前面已经叙述了），其中DSN需要用户首先使用要将所要操纵的数据库设置为数据库源并给其命名。方法是在控制面板－>管理工具－>数据源（ODBC）下面进行配置。比如设置的数据源名称为data,那么可以通过下面几行代码来连接数据库：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
注释：连接数据库
conn.Open "dsn=data"
注释：打开数据源（即选定操作的数据对象）
rs.Open SQL语句, conn  

　　但是如果是使用ODBC和OLEDB的方式进行连接，那么大家一定知道在连接字符串上那一长串的代码，不要说对于初学者，就是对于那些经验丰富的程序员来说，也很难记住这一串代码。那么如何可以记住这一串代码呢？其实，方法很简单，只要添加一个ADO Data控件，然后在其属性框中使用向导进行设置后，那么最后向导就会自动生成一段ConnectionString,只需要将这一行代码拷贝下来然后放到conn.open之后的连接字符串参数的位置上就可以了。这条经验希望读者能够记住，实际开发中很实用。

　　经验四：前面讲到手动设置ODBC数据源，这里可以通过程序来进行动态设置。首先要清楚的是ODBC的详细信息全部存放在注册表的下述键值内："HKEY_LOCAL_MACHINE\SOFTWARE\ODBC"，通过调用Win32函数WriteProfileString来对相应的键值进行修改即可达到目的。

　　经验五：通常将数据库的连接代码和资源释放代码放入各自特定的函数里面，因为一般大一点的程序里需要经常对这两个功能模块进行调用，这样做就可以提高效率，当然很多时候都需要写成连接池的形式。

　　经验六：使用VB在SQL中处理含单引号的字符串时，对字符串数据都用单引号引起来，如：

Select * from MyTable Where ID=注释：FirstID注释：

　　若其中的FirstID为First注释：ID，即中间多出一个单引号，则上述写法将导致错误，解决的办法是将字符串中的每一个单引号用两双引号替换，下面的函数StrToSQL完成该功能，并用单引号将处理后的字符串引起来：

　Private Function StrToSQL(ByVal strValue As String) As String
　　　　StrToSQL = "注释：" + Replace(strValue, "注释：", "注释：注释：") + "注释："
　End Function

　　在写SQL时如有字符串数据，不管其中有没有单引号，都可以这样使用：

　　　strValue="First注释：Id"
　　　strSQL="Select * from MyTable Where ID="+StrToSQL(strValue)
三. 实例解析

　　下面介绍一个实例，来消化以上的相关知识。这里我在一个程序界面下实现了DAO,ADO,ODBC,OLEDB四种数据库访问方式。

　　程序代码分析：

注释：整个程序功能是选择不同的连接方式来进行显示工作，三种方式显示效果完全相同
注释：下面是主程序过程
Private Sub Command1_Click()
　Dim selitem As Integer
　注释：判断连接数据库的方式
　If Option1.Value = True Then
　　selitem = 1
　Else
　　If Option2.Value = True Then
　　　selitem = 2
　　Else
　　　selitem = 3
　　End If
　End If

　注释：选取不同的数据库连接方式
　Select Case selitem
　Case 1:
　　注释：使用DAO的数据库连接方式
　　Call ShowByDAO
　Case 2:
　　注释：使用ADO的数据库连接方式
　　Call ShowByADO
　Case 3:
　　注释：使用ODBC的数据库连接方式
　　Call ShowByODBC
　Case 4:
　　注释：使用OLEDB的数据库连接方式
　　Call ShowByOLEDB
　End Select
End Sub

Private Sub ShowByDAO()
　注释：使用DAO的数据库连接方式
　Dim db As Database
　Dim rs As Recordset
　Dim sqlstr$ 注释：存放查询语句
　Set db = OpenDatabase(App.Path & "\db1.mdb")
　sqlstr = "select * from 成绩表"
　Set rs = db.OpenRecordset(sqlstr)
　注释：显示结果
　Call GridShow(rs)
End Sub

Sub ShowByADO()
　Dim conn As New ADODB.Connection
　Dim rs As New ADODB.Recordset
　注释：使用数据源来连接数据库
　conn.Open "dsn=data"
　rs.CursorType = adOpenKeyset
　rs.LockType = adLockOptimistic
　rs.Open "select * from 成绩表", conn
　Call GridShowOfADO(rs)
End Sub

Sub ShowByODBC()
　Dim conn As New ADODB.Connection
　Dim rs As New ADODB.Recordset
　注释：使用数据源来连接数据库
　conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=data"
　rs.Open "select * from 成绩表", conn
　注释：显示结果
　Call GridShowOfADO(rs)
End Sub

Sub ShowByOLEDB()
　Dim conn As New ADODB.Connection
　Dim rs As New ADODB.Recordset
　注释：使用数据源来连接数据库
　conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False"
　rs.Open "select * from 成绩表", conn

　注释：显示结果
　Call GridShowOfADO(rs)
End Sub

Sub GridShow(rs As Recordset)
　注释：对dao方式进行显示工作
　MSFlexGrid1.TextMatrix(0, 0) = "姓名"
　MSFlexGrid1.TextMatrix(0, 1) = "性别"
　MSFlexGrid1.TextMatrix(0, 2) = "语文"
　MSFlexGrid1.TextMatrix(0, 3) = "数学"
　MSFlexGrid1.TextMatrix(0, 4) = "英语"
　rs.MoveLast
　MSFlexGrid1.Rows = rs.RecordCount + 1
　MSFlexGrid1.Cols = rs.Fields.Count
　Dim i%
　i = 1
　rs.MoveFirst
　While (Not rs.EOF)

　　MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)
　　MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)
　　MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)
　　MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)
　　MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)
　　rs.MoveNext
　　i = i + 1
　　注释：If (rs.EOF = True) Then
　　注释： Exit For
　Wend
End Sub

Sub GridShowOfADO(rs As ADODB.Recordset)
　注释：对ado方式进行显示工作
　MSFlexGrid1.TextMatrix(0, 0) = "姓名"
　MSFlexGrid1.TextMatrix(0, 1) = "性别"
　MSFlexGrid1.TextMatrix(0, 2) = "语文"
　MSFlexGrid1.TextMatrix(0, 3) = "数学"
　MSFlexGrid1.TextMatrix(0, 4) = "英语"
　注释：注意recordcount属性必须在当前记录指针在最后一条记录时才会返回正确的值
　rs.MoveLast
　MSFlexGrid1.Rows = rs.RecordCount + 1
　MSFlexGrid1.Cols = rs.Fields.Count
　Dim i%
　i = 1
　rs.MoveFirst
　While (Not rs.EOF)
　　MSFlexGrid1.TextMatrix(i, 0) = rs.Fields(0)
　　MSFlexGrid1.TextMatrix(i, 1) = rs.Fields(1)
　　MSFlexGrid1.TextMatrix(i, 2) = rs.Fields(2)
　　MSFlexGrid1.TextMatrix(i, 3) = rs.Fields(3)
　　MSFlexGrid1.TextMatrix(i, 4) = rs.Fields(4)
　　rs.MoveNext
　　i = i + 1
　Wend
End Sub

Private Sub Command2_Click()
End
End Sub

　　上述代码已经在Windows 2000 professional和Visual Basic 6.0的环境下调试成功。

四.小结

　　本文通过对数据库访问相关技术的分析与总结，提出若干有价值的经验。借鉴这些经验，会给开发带来一定的便利。