ADOX與SQL兩種創(chuàng)建表格數據類型比較與實例

tanhong

  數據類型比較

ACCESS表字段	ADO 數據類型屬性常量	Microsoft Jet 數據庫引擎的 SQL 語法和同義詞
不支持	adBinary	BINARY（參見注意） （同義詞：VARBINARY）
是/否	adBoolean	BOOLEAN （同義詞：BIT、LOGICAL、LOGICAL1、YESNO）
數字 （字段大小 = 字節(jié)）	adUnsignedTinyInt	BYTE （同義詞：INTEGER1）
數字 （字段大小 =雙精度型）	adDouble	DOUBLE （同義詞：FLOAT、FLOAT8、IEEEDOUBLE、NUMBER、NUMERIC）
數字 （字段大小 =長整型）	adInteger	LONG（參見注意） （同義詞：INT、INTEGER、INTEGER4）
數字 （字段大小 =單精度型）	adSingle	SINGLE （同義詞：FLOAT4、IEEESINGLE、REAL）
數字 （字段大小 =整型）	adSmallInt	SHORT（參見注意） （同義詞：INTEGER2、SMALLINT）
文本	adVarWChar	TEXT （同義詞：ALPHANUMERIC、CHAR, CHARACTER、STRING、VARCHAR）
貨幣	adCurrency	CURRENCY （同義詞：MONEY）
自動編號 （字段大小= 長整型）	adGUID	GUID
日期/時間	adDate	DATETIME （同義詞：DATE、TIME、TIMESTAMP）
備注	adLongVarWChar	LONGTEXT （同義詞：LONGCHAR、MEMO、NOTE）
OLE 對象	adLongVarBinary	LONGBINARY （同義詞：GENERAL、OLEOBJECT）
超鏈接	adLongVarWChar	LONGTEXT （同義詞：LONGCHAR、MEMO、NOTE）
不支持	adVariant	VALUE（參見注意）

   “ACCESS表字段”與“ADO數據類型屬性常量”及“Microsoft Jet 數據庫引擎的 SQL 語法”對照表，便于我們在通過“ADOX”即ADO擴展庫創(chuàng)建表，或是通過SQL語句創(chuàng)建表時參考。
    下面就如何使用“ADOX”即ADO擴展庫創(chuàng)建表及如何使用SQL語句創(chuàng)建表給出實例：

1、ADOX創(chuàng)建表，注：需引用ADOX擴展庫msadox.dll

Sub Main()

On Error GoTo CreateTableError

Dim tbl As New Table
Dim cat As New ADOX.Catalog
Dim strpath As String

' 打開指定數據庫，確定當前路徑中db1.mdb 數據庫存在，否則報錯
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\db1.mdb;"


tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
   
'創(chuàng)建示范表
cat.Tables.Append tbl
Debug.Print "Table 'MyTable' is added."

'刪除示范表
cat.Tables.Delete tbl.Name
Debug.Print "Table 'MyTable' is deleted."
   
'清除
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set tbl = Nothing

Exit Sub
   
CreateTableError:
Set cat = Nothing
Set tbl = Nothing

If Err <> 0 Then
   MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub

2、SQL語句創(chuàng)建表，實例：

Sub CreateMyTable ()
'創(chuàng)建朋友表
SQL = "CREATE TABLE 朋友 ([朋友ID] COUNTER,[姓氏] text(20) not null,[名字] text,[出生日期] date ,[電話] text,[備注] memo, [是否] bit,[單價] currency,[照片] LONGBINARY,PRIMARY KEY ([朋友ID]));"

'運行SQL語句創(chuàng)建表
DoCmd.RunSQL SQL
Debug.print “朋友表創(chuàng)建成功”
End Sub







[ 本帖最后由 tanhong 于 2008-2-25 10:00 編輯 ]
(ADO_RDO-相關文章技巧鏈接)：
ADOX與SQL兩種創(chuàng)建表格數據類型比較與實例

t小寶

坐上沙發(fā)先
說明與實例俱全啊，好

wwwwa

learn,thanks

jpj123123

謝謝分享了 :lol

zxp

謝謝樓主

lyf430204

謝謝了，用第二種方法創(chuàng)建了表，但是怎么用變量命名這個表的名字呢？

JosephTan

lyf430204 發(fā)表于 2012-2-29 17:41
謝謝了，用第二種方法創(chuàng)建了表，但是怎么用變量命名這個表的名字呢？

合乎要求嗎這樣

李力軍2

好的,學習

灰太郎

123123

灰太郎

123456