从 Excel VBA 运行访问查询

Question

我正在尝试在 excel vba 中编写一个宏，它只是打开一个 access 数据库并在 access 中运行 2 个查询。它似乎每单击 2 次宏按钮就可以工作并运行查询。我的意思是我点击它，它可以工作，第二次点击我在第二次点击时得到一个“运行时错误 462”，第三次点击它可以工作，第四次点击我再次得到错误，依此类推。我似乎无法弄清楚这是为什么。这是下面的代码。

Sub QueryAccess1()

Dim db As Access.Application
Set db = New Access.Application
'set variables

db.Visible = True

db.OpenCurrentDatabase ("DatabaseFileName")
'open database

'--------------------------------------------------------------
On Error Resume Next

db.DoCmd.DeleteObject acTable, "TableName"
'if the table does not exist it skips this line
'--------------------------------------------------------------

On Error GoTo 0
'sets the error back to normal

'--------------------------------------------------------------
CurrentDb.Openrecordset ("QUERY1")
CurrentDb.Execute ("QUERY2")
'Calls the queries
'--------------------------------------------------------------

'--------------------------------------------------------------
db.CloseCurrentDatabase
db.Quit
'Closes Access
'--------------------------------------------------------------

Set db = Nothing

End Sub

当我收到错误消息时，我将其上线

CurrentDb.Openrecordset ("QUERY1")

Answer 1

我设法让它与 Parfait 的方法一起使用。这是我得到的。

Sub QueryAccess1()

Dim conn As Object, rst As Object
Dim path As String


Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

path = Sheets("SheetName").Range("A1")

'OPEN CONNECTION
conn.Open ConnectionString:="Provider = Microsoft.ACE.OLEDB.12.0; data source=" & path

'DELETES TABLE CONTENTS
conn.Execute "DELETE FROM [Table1]"

'RUN UNION QUERY AND INSERT INTO TABLE
rst.Open "SELECT * FROM [Query1]", conn
conn.Execute "INSERT INTO [Table1]  select * from [QUERY1] "

Set rst = Nothing: Set conn = Nothing

End Sub

Answer 2

可能每两次单击错误是由于打开刚刚删除的表，而它每隔一段时间就存在一次。考虑遍历 MS Access 的 TableDefs 集合，以有条件地删除对象（如果存在）。然后，重新排序您的操作查询以在OpenRecordset 调用之前运行。

Public Sub RunQueries()
On Error Goto ErrHandle:
    ' DAO REQUIRES REFERENCE TO Microsoft Office X.X Access Database Engine Object Library
    Dim tbl As DAO.TableDef     
    Dim rs As DAO.Recordset
    Dim db As New Access.Application

    db.Visible = False                   ' KEEP DATABASE RUNNING IN BACKGROUND

    For Each tbl in db.CurrentDb.TableDefs
        If tbl.Name = "TableName" Then
            db.DoCmd.DeleteObject acTable, "TableName"
        End If
    Next tbl

    ' ASSUMED AN ACTION QUERY
    db.CurrentDb.Execute "QUERY2", dbFailOnError

    ' ASSUMED A SELECT QUERY BUT CALL BELOW IS REDUNDANT AS IT IS NEVER USED
    Set rs = db.CurrentDb.OpenRecordset("QUERY1")   

ExitHandle:
    ' FREE RESOURCES
    Set rst = Nothing: Set conn = Nothing
    db.CloseCurrentDatabase
    db.Quit
    Set db = Nothing
    Exit Sub

ErrHandle:
    MsgBox Err.Number & " - " & Err.Description, vbCritical, "RUNTIME ERROR"
    Resume ExitHandle
End Sub

除此之外 - 避免在 VBA 中使用 On Error Resume Next。始终主动预测和处理异常情况。

---

或者，不用使用 make-table 命令 SELECT * INTO 然后不必担心以编程方式删除表，只需创建表一次，然后使用 DELETE 和 INSERT每次都可以运行。当然，这假设表的结构（字段/类型）保持不变。

DELETE FROM myTable;

INSERT INTO myTable (Col1, Col2, Col3) 
SELECT Col1, Col2, Col3 FROM myOtherTable;

SELECT * FROM myTable;

---

最后，甚至没有理由使用 MS Access 对象库来打开/关闭 .GUI 来运行查询。由于 Access 是一个数据库，因此像任何其他后端（即 SQLite、Postgres、Oracle）一样连接到它并从那里运行您的查询。下面是一个 ODBC 连接示例，可以轻松地将驱动程序替换为其他 RBDMS 的驱动程序。

Dim conn As Object, rst As Object

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

' OPEN CONNECTION
conn.Open "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};" _
            & "DBQ=C:\Path\To\Access\DB.accdb;"

' RUN ACTION QUERIES
conn.Execute "DELETE FROM myTable"
conn.Execute "INSERT INTO myTable (Col1, Col2, Col3)" _
               & " SELECT Col1, Col2, Col3 FROM myOtherTable"

' OPEN RECORDSET
rst.Open "SELECT * FROM myQuery", conn

' OUTPUT TO WORKSHEET
Worksheets("DATA").Range("A1").CopyFromRecordset rst
rst.Close

其实上面的方法甚至不需要安装MS Access GUI .exe！此外，请务必将 SELECT 查询（甚至在 INSERT 中的一个）保存在 Access 中，并且不要作为 VBA SQL 字符串运行，因为 Access 引擎将为存储的查询保存最佳执行计划。