VB+数据库编程之+ADO+连接数据库实例.doc

VB 数据库编程之 ADO 连接数据库实例 "这里先说说ADO的ACCESS数据库连接吧，两种。 " "　　1.ADO控件连接 " "　　"工程"菜单 "部件..."：Microsoft ADO Data Control 6.0 (SP6) " "(OLEDB) " "并将Adodc数据控件绘入窗体。 " "右击Adodc数据控件 属性 使用连接字符串 生成 Microsoft Jet 4.0 OLE " "DB Provider 数据位置 找到要连接的ACCESS数据库文件…… " "　　Adodc数据控件的RecordSource属性为"2 - " "adcmdTable"和你要连接的表名。 " "控件的引用实例如下： " "'组合框（Combo）控件列表用某字段数据记录填充 范例 " "'在窗体Load事件或Combo的相关事件中写入 " "'循环1到记录总数 " "For i = 1 To Adodc1.Recordset.RecordCount " "　'如果不在记录集结尾则 " "　If Not Adodc1.Recordset.EOF Then " "　　'组合框增加一行 ### VB+数据库编程之ADO连接数据库实例 #### 一、ADO与Access数据库连接方式概述 在Visual Basic（简称VB）程序开发中，连接并操作Access数据库是非常常见的需求。本文将详细介绍如何通过ActiveX Data Objects（简称ADO）来实现对Access数据库的操作。主要分为两种连接方式：一种是利用ADO控件进行连接；另一种是通过编写ADO代码来实现连接。 #### 二、ADO控件连接 ##### 1. 添加ADO控件 在VB工程中，首先需要添加ADO控件。步骤如下： - 在“工程”菜单中选择“部件...”，然后勾选“Microsoft ADO Data Control 6.0 (SP6)”（这是一个OLEDB类型的控件），最后点击确定。 - 将Adodc数据控件绘制到窗体上。 ##### 2. 配置连接字符串 - 右键单击Adodc数据控件，在其属性中设置使用连接字符串。 - 选择“生成”Microsoft Jet 4.0 OLE DB Provider。 - 设置“数据位置”，指定要连接的Access数据库文件路径。 ##### 3. 设置RecordSource属性 - Adodc数据控件的RecordSource属性设置为“2 - adcmdTable”，并指定要连接的表名。 ##### 4. 示例代码 下面是一个使用Adodc数据控件填充组合框（Combo）控件列表的例子： ```vb ' 在窗体Load事件或Combo的相关事件中写入 For i = 1 To Adodc1.Recordset.RecordCount If Not Adodc1.Recordset.EOF Then ' 组合框增加一行：“姓名”字段的值 Combo1.AddItem Adodc1.Recordset.Fields("姓名").Value ' 记录指针向后移动 Adodc1.Recordset.MoveNext End If Next i ``` #### 三、ADO代码连接 ##### 1. 声明变量 在通用声明部分声明以下变量： - `cn`：一个新的ADODB.Connection对象。 - `rs`：一个新的ADODB.Recordset对象。 - `cmd`：一个新的ADODB.Command对象。 ##### 2. 示例代码 以下代码演示了如何在Form_Load事件中打开数据库，并使用Recordset对象读取数据： ```vb Private Sub Form_Load() ' 实例化Connection对象 Set cn = New ADODB.Connection ' 设置CursorLocation属性 cn.CursorLocation = adUseClient ' 打开数据库连接 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\personnel.mdb;" ' 实例化Recordset对象 Set rs = New ADODB.Recordset ' 打开Recordset rs.Open "职工信息", cn, adOpenDynamic, adLockOptimistic ' 循环遍历记录 For i = 1 To rs.RecordCount If Not rs.EOF Then ' 组合框增加一行：“姓名”字段的值 Combo1.AddItem rs.Fields("姓名").Value ' 移动到下一条记录 rs.MoveNext End If Next i End Sub ``` #### 四、总结 通过上述介绍，我们了解了如何使用ADO控件和ADO代码连接Access数据库。这两种方法各有优缺点：ADO控件连接简单直观，适合初学者；而ADO代码连接更加灵活，适用于需要更高级控制的场景。在实际应用中，可以根据项目需求和个人喜好选择合适的方法。