您所在位置：主题：[讨论]请问在ACCESS数据库中怎样创建数据表.
等闲茶居
[专家分：0] 发布于 2009-04-06 21:04:00
我想在ACCESS数据库中创建数据表,请问该怎样创建.
创建的数据表的名字由用户输入(用TEXT1存放数据表名),字段是固定.如字段名为ab,类行为:字符.
下列是创建的数据库的代码.
Private Sub NEW_Click()
On Error GoTo ext
CommonDialog1.CancelError = True '开启取消错误开关
CommonDialog1.Filter = "Access数据库(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
Text5 = CommonDialog1.FileName
Dim DB As Database
Set DB = CreateDatabase(CommonDialog1.FileName, dbLangGeneral, dbVersion30)
MsgBox "数据库创建成功！", 64, "系统提示"
Exit Sub
ext:
End Sub
创建的数据表的名字由用户输入(用TEXT1存放数据表名),字段是固定.如字段名为ab,类行为:字符.
下列是创建的数据库的代码.
Private Sub NEW_Click()
On Error GoTo ext
CommonDialog1.CancelError = True '开启取消错误开关
CommonDialog1.Filter = "Access数据库(*.mdb)|*.mdb"
CommonDialog1.ShowOpen
Text5 = CommonDialog1.FileName
Dim DB As Database
Set DB = CreateDatabase(CommonDialog1.FileName, dbLangGeneral, dbVersion30)
MsgBox "数据库创建成功！", 64, "系统提示"
Exit Sub
ext:
End Sub