如何在ACCESS中创建数据表？

[cg1976]

同上！

[dreammaker]

'引用Microsoft ActiveX Data Objects 2.7 Library
Dim conn As ADODB.Connection
Dim strConn As String, SQLCreate As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\abc.mdb;"
Set conn = New ADODB.Connection
conn.ConnectionString = strConn
conn.Open
SQLCreate = "create table tempTable" & _
"(H_ID identity(1 ,1), H_F1 char(10)," & _
"H_F2 char(10));"
conn.Execute SQLCreate, 1, adCmdText
conn.Close
Set conn = Nothing

[gpo2002]

如下代码演示如何创建新表。

Sub CreateTable()

Dim tbl As New Table
Dim cat As New ADOX.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

[gpo2002]

引用 Microsoft ADO Ext. 2.X for DDL and Security