查人人中国名人网1979年贵州茅台酒:vb编程建表
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 06:36:11
VB编程创建表的话，用ADOX实现吧，使用前需引用ADOX对象库。
下面的代码演示如何创建新表。
Sub CreateTable()
Dim tbl As New Table
Dim cat As New ADOX.Catalog
'Open the catalog.
' Open the Catalog.
cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
End Sub