6.2.1  建立Access 数据库

启动Access，建立一个空的数据库man.mdb，如图6-8所示。

图6-8  建立数据库man.mdb

使用程序设计器建立系统需要的表格如下。

employee表，如图6-9所示。

checkin表，如图6-10所示。

                图6-9  employee表                           图6-10  checkin表

title表，如图6-11所示。

department表，如图6-12所示。

                 图6-11  title表                          图6-12  department表

duty表，如图6-13所示。

sysuser表，如图6-14所示。

                图6-13  duty表                             图6-14  sysuser表

6.2.2  连接数据

在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.1 Library”，然后单击“确定”按钮，如图6-15所示。

图6-15  引用ADO连接数据库

在程序设计的公共模块中，先定义ADO连接对象。语句如下：

Public conn As New ADODB.Connection      ' 标记连接对象

然后在子程序中，用如下的语句即可打开数据库：

Dim connectionstring As String

connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_

"data source=man.mdb"

conn.Open connectionstring

6.2.3  设置ODBC

VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。

打开控制面板中的“管理工具”→“数据源”(ODBC)，出现如图6-16所示的对话框。

图6-16  ODBC对话框

单击“添加”按钮，出现“创建新数据源”对话框，如图6-17所示。

图6-17  “创建新数据源”对话框

选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图6-18所示对话框。

在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。

图6-18  设置连接数据源