vb編程建表

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

上一篇:怎樣將curses函數頭引進

下一篇:壹年級畫畫壹天做的事壹年級畫壹張寫作業的畫