在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 ")
末端接头
通过这种方式,数据库中的记录被放入记录集中,该记录集可以被跟踪。
四。使用数据库:
当您打开数据库并设置记录集时,您可以浏览、删除、添加和查找数据库中的内容。
位律师回复
0条评论