|
#2
ZHRXJR2016-05-12 22:01
|
在已知access数据库中，建立新表，采用的是网上搜到的方法。引用对象库"Microsoft ActiveX Data Objects 2.7 Library"和"Microsoft ADO Ext 2.8. For DDL Security"
程序代码：Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim pstr As String
Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database2.mdb;Persist Security Info=False"
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
cat.Tables.Append tb1 '建立数据表 ‘ 这句提示有错？？？？错误提示：参数类型不正确，或不在可以接受的范围之内或与其他参数冲突
Dim tbl As New ADOX.Table
Dim pstr As String
Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database2.mdb;Persist Security Info=False"
cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
cat.Tables.Append tb1 '建立数据表 ‘ 这句提示有错？？？？错误提示：参数类型不正确，或不在可以接受的范围之内或与其他参数冲突
这个该如何解决呢！，
[此贴子已经被作者于2016-5-11 16:05编辑过]
