如何使用DAO在VB6.0中建立数据库，表，以及添加修改记录

给你一个创建数据库的例子；

窗体上加3个按钮分别执行，创建数据库与表，添加记录，修改记录。

'首先通过菜单工程--引用，勾选 Microsoft DAO 36 Object Library

'其中版本号36，看你计算机具体情况而选择，当然版本越高越新。

Option Explicit

Private Sub Command1_Click()

Dim MyWs As Workspace '工作区

Dim MyDB As Database '数据库对象

Dim myTBL As TableDef '数据表对象

Dim MyFid(9) As Field '字段对象

Dim i As Integer

If Dir(AppPath & "\实验数据库mdb") <> "" Then Kill AppPath & "\实验数据库mdb"

'创建工作区

Set MyWs = DBEngineWorkspaces(0)

'创建数据库文件

'Set MyDB = MyWsWorkspaces(0)CreateDatabase(AppPath & "\F实验数据库mdb")

Set MyDB = MyWsCreateDatabase(AppPath & "\实验数据库mdb", dbLangGeneral, dbEncrypt)

'创建表

Set myTBL = MyDBCreateTableDef("学生数据表")

'创建字段

Set MyFid(1) = myTBLCreateField("学号", dbText, 4)

Set MyFid(2) = myTBLCreateField("姓名", dbText, 10)

Set MyFid(3) = myTBLCreateField("性别", dbText, 2)

Set MyFid(4) = myTBLCreateField("备注", dbText, 4)

Set MyFid(5) = myTBLCreateField("籍贯", dbText, 10)

Set MyFid(6) = myTBLCreateField("出生年月", dbDate, 8)

Set MyFid(7) = myTBLCreateField("家庭住址", dbText, 40)

Set MyFid(8) = myTBLCreateField("联系电话", dbText, 50)

Set MyFid(9) = myTBLCreateField("户籍地址", dbText, 40)

'将字段加入到Field集合

For i = 1 To 9

myTBLFieldsAppend MyFid(i)

Next i

'将表加入到数据库中

MyDBTableDefsAppend myTBL

End Sub

Private Sub Command2_Click()

Dim MyWs As Workspace '工作区

Dim MyDB As Database '数据库对象

Dim Rs As Recordset '记录集对象

'创建工作区

Set MyWs = DBEngineWorkspaces(0)

'创建数据库文件

'Set MyDB = MyWsWorkspaces(0)CreateDatabase(AppPath & "\F实验数据库mdb")

Set MyDB = MyWsOpenDatabase(AppPath & "\实验数据库mdb")

'返回记录集

Set Rs = MyDBOpenRecordset("Select From 学生数据表")

RsAddNew

RsFields("学号") = "101"

RsFields("姓名") = "张老三"

RsFields("性别") = "男"

RsFields("备注") = "在籍"

RsFields("籍贯") = "江苏"

RsFields("出生年月") = #11/16/1992#

RsFields("家庭住址") = "长江路1000号2001室"

RsFields("联系电话") = "12345678"

RsFields("户籍地址") = "长江路1000号2001室"

RsUpdate

End Sub

Private Sub Command3_Click()

Dim MyWs As Workspace '工作区

Dim MyDB As Database '数据库对象

Dim Rs As Recordset '记录集对象

'创建工作区

Set MyWs = DBEngineWorkspaces(0)

'创建数据库文件

'Set MyDB = MyWsWorkspaces(0)CreateDatabase(AppPath & "\F实验数据库mdb")

Set MyDB = MyWsOpenDatabase(AppPath & "\实验数据库mdb")

'返回记录集

Set Rs = MyDBOpenRecordset("Select From 学生数据表")

'定位到要修改的记录

RsFindFirst "学号='101'"

If RsNoMatch Then

'没有找到要找的记录

MsgBox ("不存在要找的记录：")

Else

'找到要找的记录，进行修改某一个或几个字段

RsEdit

RsFields("籍贯") = "浙江"

RsFields("出生年月") = #1/28/1991#

RsUpdate

MsgBox ("修改成功！")

End If

End Sub

DAO(Data Access Object) 数据访问对象是第一个面向对象的数据库接口，它显露了 Microsoft Jet 数据库引擎（由 Microsoft Access 所使用），并允许 Visual Basic 开发者通过 ODBC 像直接连接到其他数据库一样，直接连接到 Access 表。DAO 最适用于单系统应用程序或小范围本地分布使用。

详细介绍请参考百度百科：

>

有用spring的话，是要配置sessionfactory，数据源之类的，那事务是交给spring来处理的，getsession这个方法里面的session如果是session=sessionFactorygetCurrentSession();这样得来的那就是跟线程绑定；如果是自己控制事务，那肯定有地方写sessiongetTranslationbegin()、commit()、rallback()；之类

以上就是关于如何使用DAO在VB6.0中建立数据库，表，以及添加修改记录全部的内容，包括:如何使用DAO在VB6.0中建立数据库，表，以及添加修改记录、ACCESS数据库dao调用格式、Myeclipse 对数据库表进行逆向工程 自动生成Hibernate DAO为何没有关闭session的 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！