VB如何在已有的Access数据库中创建数据表

来源：百度知道 编辑：UC知道 时间：2024/06/01 23:55:02
请问大家：我现在已经有一个Access数据库了，里面有好多数据表了。现在我想在添加用户的同时动态创建一个以这个用户命名的数据表，并且添加字段。如何写代码啊！求大家帮帮忙吧。谢谢了

'引用对象库“Microsoft ActiveX Data Objects 2.8 Library”
'引用对象库“Microsoft ADO Ext 2.8. For DDL Security”，简称为ADOX

path1 = Dir(App.Path & "\dat.mdb") '检测文件是否存在
If path1 = "" Then
Text1.Text = "数据库dat.mdb不存在，请先建立数据库~！"
Exit Sub
End If
Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以
Dim pstr As String
Dim tb1 As New Table
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = pstr & "Data Source=" & App.Path & "\dat.mdb"
pstr = pstr & ";Jet OLEDB:Database Password=123"
cat.ActiveConnection = pstr
tb1.Name = "学生信息" '表的名称
tb1.Columns.Append "姓名", adVarWChar, 20 '表的第一个字段
tb1.Columns.Append "年龄", adInteger '表的第二个字段
tb1.Columns.Append "性别", adVarWChar, 2 '表的第三个字段