從文本文件導入以前導出的Access SQL查詢

Question

我使用這篇文章的答案將查詢導出到文本文件，以便進行查找/替換練習：

使用VBA將所有MS Access SQL查詢導出到文本文件

我繼承了一個數據庫，該數據庫具有對象名稱，banker1，banker2等，並進行了硬編碼，因此我不得不創建其他文件。 我導出了所有查詢，並用新名稱替換了banker1。 到現在為止還挺好。

是否可以從生成的單個文本文件中撤消該過程，然后將查詢加載回Access中？

我以前的方法涉及使用Application.SaveAsText將查詢導出到單個文本文件，然后循環進行查找/替換。 我使用此方法遇到的問題是文件是“格式化的”，可能是固定寬度的，但不確定，因此某些名稱被分成幾行，因此找不到被查找/替換。 使用Application.LoadFromText加載它們可以正常工作，除了我仍然必須搜索查詢以查找未更改的名稱。

編輯：請求的查詢示例。

BNK30-AddChargebacks插入BNK30EntryTable（Entry）SELECT BNK30SelectChargebacks.Entry從BNK30SelectChargebacks哪里（（（（（BNK30SelectChargebacks.Amount）<> 0））;

BNK30-AddCredit插入BNK30EntryTable（條目）從BNK30EntryQuery WHERE中選擇BNK30EntryQuery.Credit（（（（BNK30EntryQuery.Amt）<> 0））;

在上面，我將用BNK31等對BNK30進行查找/替換。

編輯2：

Operation =3
Name ="BNK01SavedReserves"
Option =0
Where ="(((BNK01Select.Reference) Is Null Or (BNK01Select.Reference)=[forms]![BNK01Nav]!"
    "[txtReference]) AND ((BNK01Select.Date) Is Null Or (BNK01Select.Date)=[forms]![B"
    "NK01Form]![StartedTime]))"
Begin InputTables
    Name ="BNK01Select"
End
Begin OutputColumns
    Name ="AssignedTo"

以上是我原來的方法的工作原理，除了拆分BNK01之外，其他方法都可以使用； 剛好在Begin InputTables行上方。 因此，嘗試切換為將SQL導出為一個大文件。

Answer 1

您可以使用VBA過程根據需要修改查詢名稱及其SQL。 與將查詢定義轉儲到文本文件，在文本文件中進行搜索和替換然后基於文本文件的更改（以某種方式？）修改查詢相比，該方法應該簡單得多。

例如，使用以下過程，您可以像這樣“用BNK31查找/替換BNK30” ...

ModifyQueries "BNK30", "BNK31"

但是，按照書面規定，該過程不會更改查詢。 它僅顯示您啟用.Name = strNewName和.SQL = strNewSql 。 在啟用這些行之前，請在立即窗口中查看輸出。

Public Sub ModifyQueries(ByVal pFind As String, ByVal pReplace As String)
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strNewSql As String
    Dim varNewName As Variant

    Set db = CurrentDb
    For Each qdf In db.QueryDefs
        With qdf
            varNewName = Null
            strNewSql = vbNullString
            If .Name Like "*" & pFind & "*" Then
                varNewName = Replace(.Name, pFind, pReplace)
                Debug.Print "change " & .Name & " to " & varNewName
                '.Name = strNewName
            End If

            If .SQL Like "*" & pFind & "*" Then
                strNewSql = Replace(.SQL, pFind, pReplace)
                Debug.Print Nz(varNewName, .Name) & " SQL: "
                Debug.Print strNewSql
                '.SQL = strNewSql
            End If
        End With
    Next
End Sub

請注意，代碼尚未經過全面測試。 它僅是一個起點； 您必須對其進行測試和優化。

您應該添加錯誤處理。 如果/在嘗試使用與現有查詢或表匹配的名稱來命名查詢時，該過程將引發錯誤。

注意，我編寫了該過程來重命名查詢。 如果您更喜歡創建新查詢，請修改代碼以執行此操作...

db.CreateQueryDef varNewName, strNewSql

最后，請確保在運行該代碼的“已啟用”版本之前備份數據庫。 我懷疑您是否需要該警告，內森，但我想知道其他任何人無意中提出了他們的問題。