在VB中用DAO实现数据库编程

DAO(数据访问对象)又称数据访问对象，是数据库编程的重要方法之一。面向对象接口DAO的特点是它不是一个可视化的对象，所有的使用都依赖于编码。DAO是设计关系数据库系统结构的对象类的集合。它提供了完成管理此类系统所需的所有操作的属性和方法，包括创建数据库、定义表、字段和索引、建立表之间的关系、定位和查询数据库等工具。由于ADO (ActiveX数据对象)的出现，大大减少了DAO的使用，但是不需要使用ODBC(开放式数据库连接)就可以连接各种数据源，所以我们还是经常使用经典的DAO。我将向您详细展示如何用DAO编程。

必须引用DAO才能使用。方法打开VB6.0，从VB的“项目”菜单中选择“引用”。出现“引用”对话框，从库列表中选择“微软DAO 3.51对象库”，点击“确定”。现在您可以使用DAO对象库提供的所有对象进行编程。

首先，创建一个数据库:

在DAO中，可以使用CreatDataBase方法根据用户的需要动态创建数据库。这在程序中非常有用。用户可以根据需要实时建立数据库。建立过程如下:

私有Sub Com_creat_Click()

出错时转到错误100

Creatdb "数据库名称。mdb "，dbLangGeneral

Msgbox“数据库已建立”

出口接头

错误100:

MsgBox "无法建立数据库！"& vbCrLf & vbCrLf &呃。描述，VB信息

末端接头

这样，数据库就建立在当前的默认路径下。

其次，创建表和字段:

数据库建立后，需要在数据库中建立表，这就需要TableDef对象。首先定义一个TableDef类型的对象，然后用TableDef集合中的Append方法将其追加到数据库中。同时定义一个Field对象，用CreatFiele方法创建一个Field对象，将字段添加到表中。例如:

私有Sub Com_table_Click()

出错时转到错误100

Dim Defdb作为数据库

Dim NewTable As TableDef

将NewField作为字段变暗

Setdefdb = workspaces (0)。open database(app . path & " \ database name . MDB MDB "，0，False)

set table = def database . create tabledef("表名")

Set field = deftable.createfield("字段名"，dbText，6)'创建一个长度为6个字符的字符字段。

字段DefTableFields。“追加新字段”被追加。

追加定义。TABLEDEFs。“追加新表”表

Msgbox“表已建立”

出口接头

错误100:

MsgBox "抱歉，无法创建表格。请先建立数据库，然后再建立表？”，VB临界

末端接头

一个数据库可能有十几个甚至几十个字段。一个表中有多少个字段，应该创建多少次并追加到表中？在建立每个字段之后，需要一个字段追加命令，但是在建立所有字段之后，只需要一个命令就可以完成表追加。

第三，打开数据库:

在VB中，对象变量在被引用之前必须被解释。道也是如此。您必须首先声明数据库变量，例如Dim dbase As Database。数据库对象变量建立后，我们就可以打开数据库了。一般来说，我们只访问一个数据库。当我们打开数据库时，我们会对数据库中的每一条记录进行操作，这就需要Recordset对象建立一个记录集。例如:

private Sub Command _ open database _ Click()

Dim dbase作为数据库

将rs作为记录集变暗

set dbase = open database(app . path & " \ database name . MDB ")

RS = dbase . open recordset(" select * from table name ")

末端接头

通过这种方式，数据库中的记录被放入记录集中，该记录集可以被跟踪。

四。使用数据库:

当您打开数据库并设置记录集时，您可以浏览、删除、添加和查找数据库中的内容。