Excel中VBA编程学习笔记（十四）--Access数据库录入操作

数据库表如下：

【例1】使用Recordset插入数据

Excel表格内容如下：

Sub test()

    'Dim cnn As New ADODB.Connection

    'Dim rst As New ADODB.Recordset

    Dim conString$, sqlString$

    Dim cnn, rst

    Set cnn = CreateObject("ADODB.Connection")

    Set rst = CreateObject("ADODB.Recordset")

    conString = "provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.mdb;"

    cnn.Open conString