3.0引用ADO连接数据库
在程序设计的公共模块中，先定义ADO连接对象。语句如下: Public conn As New ADODB.Connection ' 标记连接对象然后在子程序中，用如下的语句即可打开数据库: Dim connectionstring As String
connectionstring = \\conn.Open connectionstring 4.0 设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图所示的对话框。
15
图
17 ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。
5.0创建新数据源”对话框
选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19所示对话框。
16
设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。
2.4． MDB数据流程图以及数据表
1.基本表：[书籍 ] book
字段 管理人员
类型 文本 字段大小 50 17
必填字段 否 允许空字符串 是
图书编号 图书名称 作者 出版社 库存量 入库时间 文本 文本 文本 文本 数字 日期/时间 12 16 8 20 小数 自动 是 否 否 否 是 否 否 是 是 是 是 无 2.基本表：[用户表 ] user_table
字段 登录名 密码 身份 权限 类型 文本 文本 文本 数字 字段大小 16 16 50 1 必填字段 否 否 否 否 允许空字符串 是 是 是 是 3.基本表：[读者表]
字段 读者姓名 读者编号 性别 读者类别 工作单位 家庭地址 电话号码 登记日期 已借书数量 类型 文本 数字 文本 文本 文本 文本 文本 日期/时间 数字 字段大小 8 50 2 50 50 50 50 自动 自动 必填字段 是 是 否 否 否 否 自动 自动 自动 允许空字符串 主键 否 是 是 是 否 自动 自动 自动 4.基本表：[职工信息] worker
字段 管理人员 工号 姓名 性别 电话 住址 类型 文本 数字 文本 文本 数字 字段大小 50 50 8 2 13 必填字段 否 是 否 否 否 允许空字符串 是 否 是 是 是 5.基本表：[借阅信息] reader
字段 序号 工号 图书编号 类型 自动编号（长整型） 文本 文本 字段大小 250 250 必填字段 允许空字符串 主键 18
借阅时间 日期/时间 长日期 ADO中的数据对象通常保存的是查询结果。Record Set是ADO中最复杂的对象，有许多属性和方法。Record Set保存的是一行行的记录，并标有一个当前记录。以下是创建方法：
可以直接利用DATA控件直接绑定，在DATA控件的属性中的RECORDSOURCE对数据表进行连接。
Set Record Set=DB.Openrecordset(sqtStr)
这条语句创建并打开了对象Record Set，其中db是先前创建的链接对象，sqtStr是一个字串，代表一条标准的SQL语句。例如： sqlStr=“SELECT * FROM table1”Set Record Set=DB.Openrecordset(sqtStr)，执行后，对象Record Set中就保存了表table1中的所有记录。
19