如何使用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

工具/材料

Navicat

打开Navicat客户端，连接到本地数据库，右键点击本地节点，在d出的菜单上点击“New Database”，即新建数据库。

d出窗口，输入数据库的名称，其他字符集的设置按默认就行了。

按ok后，新的数据库就创建好了，在左边右键点击这个数据库，在菜单上点击“New Table”。

为这个数据库添加新的表，设置好表的字段，点击保存，输入表的名称，我们就可以为这个数据库添加上表了。

如果数据库不再需要了，可以删除掉，右键点击这个库，在菜单上点击“Delete Database"

d出确认窗口，点击ok后就可以删除掉了。

1、首先双击打开navicat这款软件，在菜单栏中选择文件-->新建连接-->MySQL；

2、在打开的新建连接对话框中输入连接名和密码，密码就是你配置MySQL数据库时设置的密码，其余项的值默认就行，然后点击确定；

3、然后就可以在连接列表中看到刚才创建的连接了。右击baidujingyan,也就是刚才创建的连接的名字，选择命令列界面，打开命令列界面；

4、就是在命令界面里输入命令来完成 *** 作的；首先创建数据库，假设名字为baidu，命令为：create database baidu；(注意最后以分号结束，输完命令后回车)；

5、然后右击baidujingyan，选择刷新，就可以看到刚刚创建的名字为baidu的数据库；

6、因为的数据库一般情况要存放中文数据，也就是汉字，以在进行建立表的 *** 作时，有必要先改一数据库的属性；右击baidu-->数据库属性；

7、在打开的数据库属性对话框中修改字符集码，改为utf-8形式，然后确定(提前修改了，避免以后出错，注意这一步，很重要，果不更改，在后面的输入中文时，就会出现乱码)；

8、接来建立表，因为要在baidu这个数据库建立表，以要先选择这个数据库；命令为：use baidu;

9、然后开始建立表，假设表的名字是urltable,作用是存放标题和链接的，并且标题为主键；标题长度为10个汉字，链接长度为80个字符，那么命令为：

10、mysql> create table urltable

11、 -> (title char(20) not null unique,

12、 -> url char(40));

13、这样刷新数据库就能看到新建的表了！

插入数据可以直接打开表后在字段下的空格中输入，如果知道“插入”语句，也可以使用。

至于提取数据，鼠标右击要提取数据的表，在快捷菜单中将鼠标移至“导出”，然后选择“excel”再保存到合适磁盘就可以随时调取并使用了。

word2003的，点击视图——工具栏，把需要的勾选上。

word2007的，点击word选项——自定义——不在功能区的命令——选择相应的命令，添加到右侧，点击确定，然后就会在word文档右上角开始的地方显示你勾选的功能项。

以上就是关于如何使用DAO在VB6.0中建立数据库，表，以及添加修改记录全部的内容，包括:如何使用DAO在VB6.0中建立数据库，表，以及添加修改记录、怎么新建数据库和删除数据库、如何使用命令在navicat中创建数据库及表等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！