Excel中VBA编程学习笔记（十五）--Access数据库删除操作

【例1】使用Connection对象的Execute方法删除数据

数据库格式:

Sub test()

    Dim conString$, sqlString$

    Dim cnn, rst

    Set cnn = CreateObject("ADODB.Connection")

    Set rst = CreateObject("ADODB.Recordset")

    Dim i%, sex$, Address$, Name$, birthDay$

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

    cnn.Open conString

&n