从文本文件导入以前导出的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

最后，请确保在运行该代码的“已启用”版本之前备份数据库。 我怀疑您是否需要该警告，内森，但我想知道其他任何人无意中提出了他们的问题。