下面的一段程序我实现了在程序中增加了一个access数据库,现在我想往tstmp.mdb中增加一张表,该如何实现?请详细写出步骤。
Dim db As New ADOX.Catalog
db.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pBackDir & "\tstmp\tstmp.mdb"
...全文
945打赏收藏
在程序中操作access数据库的高手请进,在线等待,谢谢!
下面的一段程序我实现了在程序中增加了一个access数据库,现在我想往tstmp.mdb中增加一张表,该如何实现?请详细写出步骤。 Dim db As New ADOX.Catalog db.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pBackDir & "\tstmp\tstmp.mdb"
'得到表的名称
Set rs = conn.OpenSchema(adSchemaTables)
Do While Not rs.EOF
msgbox "表的名称是:" & rs!TABLE_NAME
rs.MoveNext
Loop
'得到字段信息
rs .Open "select * from tablename",conn,adOpenDynamic
for i=0 to rs.fields.count-1
msgbox "字段名称:" & rs.fields(i).name
msgbox "字段类型:" & rs.fields(i).type
....
....
next i