洛阳城中村改造名单:刚才回答的那位高手,请详细说一下好吗,问题是:vb编程生成access表,
来源:百度文库 编辑:高考问答 时间:2024/06/01 12:57:59
比如说在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