如何使用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来进行操作，谢谢各位 --------------------编程问答-------------------- VB提供了一个数据库维护工具，叫visdata。可以创建和维护数据库。 --------------------编程问答-------------------- 完整的源代码在 MSDN安装盘的 SAMPLES\VB98\VISDATA --------------------编程问答-------------------- 谢谢你的回答！
不过我想动态建立数据库并维护，希望可以帮我解答 --------------------编程问答--------------------
是啊。Visdata包括了如何创建和维护一个数据库的代码。 --------------------编程问答-------------------- 哦，好的，谢谢，我看看
--------------------编程问答--------------------
你好！Visdata旁边有使用SQL代码的框
但是并没有给出对应的SQL代码哦
不好意思，我是做项目急着用的，所以是现学现用，很多不懂，希望你见谅
补充：VB , 数据库(包含打印，安装，报表)
