ADOX与SQL两种创建表格数据类型比较与实例

tanhong

  数据类型比较

ACCESS表字段	ADO 数据类型属性常量	Microsoft Jet 数据库引擎的 SQL 语法和同义词
不支持	adBinary	BINARY（参见注意） （同义词：VARBINARY）
是/否	adBoolean	BOOLEAN （同义词：BIT、LOGICAL、LOGICAL1、YESNO）
数字 （字段大小 = 字节）	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扩展库创建表，或是通过SQL语句创建表时参考。
    下面就如何使用“ADOX”即ADO扩展库创建表及如何使用SQL语句创建表给出实例：

1、ADOX创建表，注：需引用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
   
'创建示范表
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语句创建表，实例：

Sub CreateMyTable ()
'创建朋友表
SQL = "CREATE TABLE 朋友 ([朋友ID] COUNTER,[姓氏] text(20) not null,[名字] text,[出生日期] date ,[电话] text,[备注] memo, [是否] bit,[单价] currency,[照片] LONGBINARY,PRIMARY KEY ([朋友ID]));"

'运行SQL语句创建表
DoCmd.RunSQL SQL
Debug.print “朋友表创建成功”
End Sub







[ 本帖最后由 tanhong 于 2008-2-25 10:00 编辑 ]
(ADO_RDO-相关文章技巧链接)：
ADOX与SQL两种创建表格数据类型比较与实例

t小宝

坐上沙发先
说明与实例俱全啊，好

wwwwa

learn,thanks

jpj123123

谢谢分享了 :lol

zxp

谢谢楼主

lyf430204

谢谢了，用第二种方法创建了表，但是怎么用变量命名这个表的名字呢？

JosephTan

lyf430204 发表于 2012-2-29 17:41
谢谢了，用第二种方法创建了表，但是怎么用变量命名这个表的名字呢？

合乎要求吗这样

李力军2

好的,学习

灰太郎

123123

灰太郎

123456