一汽联拓北京:刚才回答的那位高手,请详细说一下好吗,问题是:vb编程生成access表,

来源:百度文库 编辑:中科新闻网 时间:2024/05/11 01:20:37
比如说在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