vba 如何连接access数据库VBA数据库操作06用ADOX创建Access数据库

导读在VBA中可以通过编程的方式创建一个新的Access数据库。1引用对象库AltF11（打开VBE）→工具→引用：2编写在Excel中创建新的Access数据....

在VBA中可以通过编程的方式创建一个新的Access数据库。

1 引用对象库

Alt F11（打开VBE）→工具→引用：

2 编写在Excel中创建新的Access数据库的代码

编写代码，首先使用ADOX.Catalog对象创建一个Access数据库，再使用Create语句在新建数据库中创建一个工作表，最后向表中添加一个测试数据。

Sub 创建数据库()

Dim cat As New ADOX.Catalog, rs1 As New ADODB.Recordset

Dim conn As New ADODB.Connection, str1 As String, strSql As String

Dim sDBName As String

sDBName = Application.GetSaveAsFilename("新建数据库", _

"Access数据库(*.mdb),*.mdb", 1, "输入数据库名称")

If sDBName = "False" Then Exit Sub

str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBName

strSql = "Create Table test(学号 Char(10),姓名 Char(10),性别 Char(2)," & _

" 出生日期 Date,联系电话 Char(20),地址 Char(40))"

cat.Create str1 创建数据库

conn.Open str1 打开新建的数据库

conn.Execute strSql 创建新表

With rs1

.Open "test", conn, adOpenKeyset, adLockPessimistic 创建记录集

.AddNew 添加记录

.Fields("学号") = "Y0001" 为各字段赋值

.Fields("姓名") = "张新"

.Fields("性别") = "男"

.Fields("出生日期") = #1/1/1988#

.Fields("联系电话") = "3311778"

.Fields("地址") = "建华巷58号"

.Update

End With

rs1.Close

conn.Close

Set conn = Nothing

End Sub

－End－