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

Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As String

If Dir("student.mdb") <> "" Then
   msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
   If msgans = vbYes Then
      Kill (App.Path + "student.mdb")
   Else
      Exit Sub
   End If
End If

Set dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)

Set db = OpenDatabase(App.Path + "\DB.mdb")

strsql = "CREATE TABLE student(Name char(5),Gender boolean, Age Integer)"
db.Execute (strsql)
//////////////////////////////////////////////////////////////
这样就提示没有with块变量

Private Sub Command1_Click()
Dim msgans As VbMsgBoxResult
Dim tdfNewTable As TableDef
Dim fldNewField As Field
Dim db As Database
Dim strsql As String

If Dir("student.mdb") <> "" Then
   msgans = MsgBox("student.mdb already exist", vbYesNo, "create database")
   If msgans = vbYes Then
      Kill (App.Path + "student.mdb")
   Else
      Exit Sub
   End If
End If

Set dbNewDB = CreateDatabase(App.Path + "student.mdb", dbLangGeneral)

Set tdfNewTable = dbNewDB.CreateTableDef("student")

With tdfNewTable
.Fields.Append .CreateField("Name", dbText, 32)
.Fields.Append .CreateField("Gender", dbBoolean)
.Fields.Append .CreateField("Age", dbInteger)
End With
/////////////////////////////////////
这样就没有问题，但是不知道如何添加记录

或者如果使用SQL来进行操作，谢谢各位

6 个解决方案

#1

VB提供了一个数据库维护工具，叫visdata。可以创建和维护数据库。

#2

完整的源代码在 MSDN安装盘的 SAMPLES\VB98\VISDATA

#3

谢谢你的回答！
不过我想动态建立数据库并维护，希望可以帮我解答

#4

引用 3 楼 junchan1985 的回复:

谢谢你的回答！
不过我想动态建立数据库并维护，希望可以帮我解答

是啊。Visdata包括了如何创建和维护一个数据库的代码。

#5

哦，好的，谢谢，我看看

#6

引用 4 楼 caozhy 的回复:

引用 3 楼 junchan1985 的回复:
谢谢你的回答！
不过我想动态建立数据库并维护，希望可以帮我解答

是啊。Visdata包括了如何创建和维护一个数据库的代码。

你好！Visdata旁边有使用SQL代码的框
但是并没有给出对应的SQL代码哦
不好意思，我是做项目急着用的，所以是现学现用，很多不懂，希望你见谅