ADO创建access2007的完整示例

老伙计2008

需要添加如下引用

1. Sub CreateAccessTable()  '创建数据库表
   
2.     Dim mycat As New ADOX.Catalog
   
3.     Dim myTable As New ADOX.Table
   
4.     If Dir(ThisWorkbook.Path & "\mydatabase.mdb") = "" Then
   
5.         mycat.Create "Provider=Microsoft.ace.OLEDB.12.0;Jet OLEDB:Engine Type=6;" & _
   
6.             "Data Source=" & ThisWorkbook.Path & "\mydatabase.mdb" '创建数据库
   
7.     End If
   
8.     mycat.ActiveConnection = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & _
   
9.         ThisWorkbook.Path & "\mydatabase.mdb" '激活连接
   
10.     myTable.Name = "测试表a1"
    
11.     mycat.Tables.Append myTable   '追加表
    
12.     With myTable.Columns '追加字段
    
13.         .Append "编号", adInteger
    
14.         .Append "姓名", adVarWChar, 30
    
15.         .Append "出生日期", adDate
    
16.         .Append "年龄", adInteger
    
17.         .Append "婚姻状况", adBoolean
    
18.     End With
    
19.     myTable.Keys.Append "PrimaryKey", adKeyPrimary, "编号" '把“编号”字段设为主键
    
20.    
    
21.     myTable.Columns("姓名").Properties("Jet OLEDB:Allow Zero Length") = True '允许空
    
22. 
    
23.     mycat.Tables.Refresh '刷新表
    
24.     Set myTable = Nothing
    
25.     Set mycat.ActiveConnection = Nothing
    
26. End Sub

复制代码

注意：如果Jet OLEDB:Engine Type=5，则创建的为2002-2003兼容版。扩展名并不重要，按上面代码，即便扩展名是MDB，仍为2007版，但是最好改过来

[ 本帖最后由 老伙计2008 于 2010-3-27 23:46 编辑 ]

lgcmeli

谢谢分享。学习。

lb_bn

楼主终于成功了,谢谢分享.

老伙计2008

原帖由 lb_bn 于 2010-3-27 23:00 发表
楼主终于成功了,谢谢分享.

谢谢支持，造就成功了。只是没时间发帖
现在已经学用ADO.NET了，还没学好
用.NET的Oledb刚刚入门
实际上用VBA的Oledb+sql语句也能实现1楼以及多得多的功能，如果有时间会总结一下

lb_bn

那等侍楼主的大帖了.

fzkoko

谢谢分享。

御风种子

好像那个允许空的代码并没有生效，想请教楼主怎么将所有字段都允许空~。