ADOX與SQL兩種創(chuàng)建錶格數(shù)據(jù)類型比較與實(shí)例
- 2008-02-24 20:18:39
- tanhong-Office交流網(wǎng) 原創(chuàng)
- 8312
ACCESS錶字段 | ADO 數(shù)據(jù)類型屬性常量 | 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ù)類型屬性常量”及“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)建示範(fàn)錶
cat.Tables.Append tbl
Debug.Print "Table 'MyTable' is added."
'刪除示範(fàn)錶
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
完整的Access源碼示例下載: ADOX與SQL兩種創(chuàng)建錶格數(shù)據(jù)類型比較與實(shí)例 .rar
Access常用的數(shù)據(jù)類型
1. 字符類型:(VARCHAR、CHA)
用於存儲(chǔ)字符數(shù)據(jù),最大長(zhǎng)度爲(wèi)255,ACCESS中有兩箇字符數(shù)據(jù):VARCHAR和CHAR,前者用於存儲(chǔ)可變長(zhǎng)度字符串,後者用於存儲(chǔ)固定長(zhǎng)度字符串。固定長(zhǎng)度會(huì)用空格來(lái)填充不夠的位數(shù),併且檢索的時(shí)候要比可變的快。
2. 備註類型:(MEMO)長(zhǎng)度爲(wèi)64000箇字符,由於字符類型數(shù)據(jù)的最大長(zhǎng)度爲(wèi)255箇字節(jié),所以沒(méi)辦法存儲(chǔ)更長(zhǎng)的文字説明,備註類型數(shù)據(jù)就是爲(wèi)瞭解決這箇問(wèn)題的。
3. 數(shù)字類型:ACCESS中有6種數(shù)字類型:
Byte 字節(jié)型 整數(shù) 0-255
Smallint 整型 整數(shù) -32000-32000
Integer(number) 長(zhǎng)整型 整數(shù) -2000000000-2000000000:9箇0
Money(currency)貨幣性 整數(shù)和4位小數(shù) 正負(fù)900000000000000:14箇0
Real 單精度 浮點(diǎn)數(shù)字 14.E-45 – 3.4E+38
Float 雙精度浮點(diǎn)數(shù)字 4.9E-324 – 1.8E+308
4. 日期時(shí)間類型:(datetime)用於存儲(chǔ)日期值,時(shí)間值,日期時(shí)間混閤值:
常規(guī)日期
常日期
中日期
短日期
長(zhǎng)時(shí)間
中時(shí)間
短時(shí)間
5. 自動(dòng)編號(hào)類型:(counter)每增加一條記録就會(huì)自動(dòng)增加一箇編號(hào)。
6. 是否類型:(yesno)對(duì)一箇字段中包含的兩種不衕的可選值。
7. ole對(duì)象類型:允許單獨(dú)的鏈接或嵌入OLE對(duì)象。
t小寶
説明與實(shí)例俱全啊
JosephTan
做瞭箇示例: Database9.zip
閤乎要求嗎這樣
李力軍2
好的,學(xué)習(xí)
(錶設(shè)計(jì)-相關(guān)文章技巧鏈接):
代碼創(chuàng)建Access數(shù)據(jù)錶和字段的多種方式
- office課程播放地址及課程明細(xì)
- Excel Word PPT Access VBA等Office技巧學(xué)習(xí)平颱
- 將( .accdb) 文件格式數(shù)據(jù)庫(kù)轉(zhuǎn)換爲(wèi)早期版本(.mdb)的文件格式
- 將早期的數(shù)據(jù)庫(kù)文件格式(.mdb)轉(zhuǎn)換爲(wèi) (.accdb) 文件格式
- KB5002984:配置 Jet Red Database Engine 數(shù)據(jù)庫(kù)引擎和訪問(wèn)連接引擎以阻止對(duì)遠(yuǎn)程數(shù)據(jù)庫(kù)的訪問(wèn)(remote table)
- Access 365 /Access 2019 數(shù)據(jù)庫(kù)中哪些函數(shù)功能和屬性被沙箱模式阻止(如未啟動(dòng)宏時(shí))
- Access Runtime(運(yùn)行時(shí))最全的下載(2007 2010 2013 2016 2019 Access 365)
- access vba代碼太長(zhǎng),換行,分行的寫(xiě)法
- VB6 VBA Access真正可用併且完美支持中英文的 URLEncode 與 URLDecode 函數(shù)源碼
- 自定義VB中的urlencode函數(shù),將URL中特殊部分進(jìn)行編碼
- Access 函數(shù)簡(jiǎn)化串接sql字符串,減少符號(hào)導(dǎo)緻的書(shū)寫(xiě)錯(cuò)誤
- vba完全關(guān)閉IE瀏覽器及調(diào)用IE瀏覽器的簡(jiǎn)單應(yīng)用
- 利用FollowHyperlink方法打開(kāi)超鏈接提示“無(wú)法下載您要求的信息”的解決方案
- 在access中用代碼打開(kāi)文本框中超鏈接地址
- Activex控件或Dll 在某些電腦無(wú)法正常註冊(cè)的解決辦法(regsvr32註冊(cè)時(shí)卡?。?/a>
- office使用部分控件時(shí)提示“您沒(méi)有使用該ActiveX控件許可的問(wèn)題”的解決方法
- RTF文件(富文本格式)的一些解析
- Access樹(shù)控件(treeview) 64位Office下齣現(xiàn)橫曏滾動(dòng)條不會(huì)自動(dòng)定位的解決辦法
- Access中國(guó)樹(shù)控件 在win10電腦 節(jié)點(diǎn)行間距太小的解決辦法
- EXCEL 2019 64位版(Office 2019 64位)早就支持64位Treeview 樹(shù)控件 ListView列錶等64位MSCOMMCTL.OCX控件下載
- VBA或VB6調(diào)用WebService(直接Post方式)併解析返迴的XML
- 早期PB程序連接Sqlserver齣現(xiàn)錯(cuò)誤
- MMC 不能打開(kāi)文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由於文件不存在,不是一箇MMC控製颱,或者用後來(lái)的MMC版
- sql server連接不瞭的解決辦法
- localhost與127.0.0.1區(qū)彆
- Roych的淺談數(shù)據(jù)庫(kù)開(kāi)髮繫列(Sql Server)
- sqlserver 自動(dòng)備份對(duì)備份目録沒(méi)有存取權(quán)限的解決辦法
- 安裝Sql server 2005 express 和SQLServer2005 Express版企業(yè)管理器 SQLServer2005_SSMSEE
聯(lián)繫人: | 王先生 |
---|---|
Email: | 18449932@qq.com |
QQ: | 18449932 |
微博: | officecn01 |