当前位置:主页 >雷竞技下载官方版

雷竞技下载官方版:在VB中用DAO实现数据库编程

发布时间:02月07日 阅读:676



DAO(Data Access Object)全称为数据造访工具,它是数据库编程的紧张措施之一。DAO的一种面向工具的界面接口,特色为它不是可视化的工具,应用它整个都要靠编码来完成,DAO是设计关系型数据库系统布局的工具类的聚拢。它供给了完成治理这样一个系统所需的整个操作的属性和措施,包括创建数据库,定义表、字段和索引,建立表间的关系,定位和查询数据库等对象。因为ADO(ActiveX Data Object ActiveX 数据工具)的呈现,DAO的应用已大年夜大年夜削减,但它无须应用ODBC(开放数据库连接)便可连接各个数据源,因而雷竞技下载官方版我们仍常常用经典的DAO。下面我向大年夜家具体先容若何应用DAO编程。

DAO应用之前必须先引用。措施为打开VB6.0 , 从VB的"工程"菜单中,选择"引用"项,当"引用"对话框呈现后,从库的列表中,选择"Microsoft DAO 3.51 Object Library",单击"确定"。现在便可以应用DAO工具库供给的所有工具进行编程了。

一、 创建数据库:

在DAO顶用CreatDataBase措施可以根据用户需求动态的创建数据库。这一点在法度榜样中是异常有用的。用户可以根据要求实时建立数据库。建立历程如下:

Private Sub Com_creat_Click()

On Error GoTo Err100

CreatDataBase "数据库名称.mdb" ,dbLangGeneral

Msgbox "数据库建立完毕"

Exit Sub

Err100:

MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation

End Sub

这样,数据库便在当前默认的路径下建立了。

二、 创建表与字段:

建立数据库后,则必要在该数据库中建立表,这要用到TableDef 工具。先定义一个TableDef类型的工具,然后用TableDef聚拢中Append措施将之追加到数据库傍边去。并且同时定义一个Field工具,用CreatFiele的措施创建一个Field工具,向表中添加字段。例如:

Private Sub Com_table_Click()

On Error GoTo Err10雷竞技下载官方版0

Dim Defdb As DataBase

Dim NewTable As TableD雷竞技下载官方版ef

Dim NewField As Field

Set Defdb = Workspaces(0).OpenDatabase (App.path & "\数据库名称.mdb" ,0, False)

Set NewTable = DefDataBase.CreateTableDef("表名")

Set NewField =雷竞技下载官方版 DefTable.CreateField( "字段名" , dbText ,6) ′创建一个字符型的字段,长度为6个字符

DefTableFields.Append NewField ′字段追加

DefDatabase.TableDefs.Append NewTable ′表追加

Msgbox " 表建立完毕 "

Exit Sub

Err100:

MsgBox "雷竞技下载官方版对不起,不能建立表。请先再建表前建立数据库?", vbCritical

End Sub

一个数据库可能有十几个以致几十个字段,一个表中有若干个字段,则要创建若干次并要追加到表中。每建立一个字段后都要用到字段追加敕令,然则表追加只需在所有字段建立完成后用一条敕令即可完成。



上一篇:雷竞技下载官方版:一棵小草的坚守新闻频道中国青年网
下一篇:电竞下载app送彩金:《环球时报》社评:向李文亮医生致以敬意