vb读取mysql多表,vb6在一个数据库(access)里创建多个表的问题，来人帮看看代码

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Private Sub Command2_Click()

Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim pstr As String '定义该变量是为了后面的书写方便

If Dir(App.Path & "WYDB.mdb") = "" Then

MsgBox "创建数据库！", vbInformation, "Test"

pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

"WYDB.mdb;Persist Security Info=False"

cat.Create pstr '创建数据库

Dim tbl As New Table

cat.ActiveConnection = pstr

tbl.Name = "User" '表的名称

tbl.Columns.Append "用户名", adVarWChar, 8 '表的第一个字段

tbl.Columns.Append "密码", adVarWChar, 16 '表的第二个字段

cat.Tables.Append tbl '建立数据表

conn.Open pstr

rs.CursorLocation = adUseClient

rs.Open "Y_User", conn, adOpenKeyset, adLockPessimistic

rs.AddNew '往表中添加新记录

rs.Fields(0).Value = "admin"

rs.Fields(1).Value = "admin123"

rs.Update

Dim tbl2 As New Table

cat.ActiveConnection = pstr

tbl2.Name = "Data" '数据表的名称

tbl2.Columns.Append "姓名", adVarChar, 8 '字段姓名

tbl2.Columns.Append "性别", adVarChar, 2 '字段性别

tbl2.Columns.Append "照片", adLongVarBinary '字段照片

tbl2.Columns.Append "电话", adVarChar, 20 '字段电话

tbl2.Columns.Append "备注", 203 '字段备注类型

cat.Tables.Append tbl2 '建立数据表

Else

MsgBox "数据库已存在！", vbInformation, "Test"

End If

End Sub