ADOX與SQL兩種創(chuàng)建表格數(shù)據(jù)類(lèi)型比較與實(shí)例

tanhong

  數(shù)據(jù)類(lèi)型比較

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

   “ACCESS表字段”與“ADO數(shù)據(jù)類(lèi)型屬性常量”及“Microsoft Jet 數(shù)據(jù)庫(kù)引擎的 SQL 語(yǔ)法”對(duì)照表，便于我們?cè)谕ㄟ^(guò)“ADOX”即ADO擴(kuò)展庫(kù)創(chuàng)建表，或是通過(guò)SQL語(yǔ)句創(chuàng)建表時(shí)參考。
    下面就如何使用“ADOX”即ADO擴(kuò)展庫(kù)創(chuàng)建表及如何使用SQL語(yǔ)句創(chuàng)建表給出實(shí)例：

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

Sub Main()

On Error GoTo CreateTableError

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

' 打開(kāi)指定數(shù)據(jù)庫(kù)，確定當(dāng)前路徑中db1.mdb 數(shù)據(jù)庫(kù)存在，否則報(bào)錯(cuò)
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語(yǔ)句創(chuàng)建表，實(shí)例：

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

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







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

t小寶

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

wwwwa

learn,thanks

jpj123123

謝謝分享了 :lol

zxp

謝謝樓主

lyf430204

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

JosephTan

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

合乎要求嗎這樣

李力軍2

好的,學(xué)習(xí)

灰太郎

123123

灰太郎

123456