VB里面怎么利用代码来向access 数据库添加表格
Private Sub Command1_Click()
On Error GoTo err1:
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 '表的第三个字段
tb1.Columns.Append "出生年月", adDate '表的第四个字段
cat.Tables.Append tb1 '建立数据表
Text1.Text = "在数据库dat.mdb建立'学生信息'表成功~!"
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "'学生信息'表共有四个字段："
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "1.'姓名'字段,类型为adChar长度20"
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "2.'年龄'字段,类型为aadInteger"
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "3.'性别'字段,类型为adChar长度2"
Text1.Text = Text1.Text & Chr(13) & Chr(10) & "4.'出生年月'字段,类型为aadDate"
Exit Sub
err1:
Text1.Text = Text1.Text & Chr(13) & Chr(10) & Err.Description & " 不能重复建立~！"
End Sub
