黑暗之魂3绿化戒指2:刚才回答的那位高手,请详细说一下好吗,问题是:vb编程生成access表,

来源:百度文库 编辑:高校问答 时间:2024/05/07 19:58:38
比如说在access数据库aa中建立一个表名为bb,正在等候,请解答,非常感谢

Sub CreateTable()

Dim tbl As New Table
Dim cat As New ADOX.Catalog

cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=aa数据库的全路径;"

tbl.Name = "bb"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl

Set tbl =Nothing
Set cat=Nothing
End Sub