如何强制 MS Access 保留其 SQL 格式？

Question

我在 MS-Access 中有很多 SQL 在工作，我需要对其进行格式化以便人类可读。问题是当我在视图之间切换时，我最终会将 SQL 压缩成我无法阅读的内容。

当我转到其他视图时，如何强制 SQL 保持其“形状”？

Answer 1

我发现了一个 hack，here。秘诀在于将您的查询包含在一个虚拟查询中。像这样：

SELECT * FROM (SELECT   <-----here
Table1.Field1,
Table1.Field2
FROM
Table1

WHERE
Table1.Field2 = "Yes") AS query1 <-----here

我已经指出了您在何处以及如何包装代码。我能看到的唯一问题是，如果您想在设计视图中编辑代码，那么它似乎根本不会选择包含的代码。

Answer 2

有时@Pureferret 提出的方法可能会失败，Access 会不断重新格式化 SQL。

我发现一直有效的唯一方法是附加一个 UNION ALL 块 在查询结束时。
事实上，由于 Access 不处理 UNION ALLs，它甚至不会建议在设计模式下进行编辑。
（我尝试过使用UNION，但出现Overflow 错误！）

SELECT
    ...
    ...
FROM
    ...
WHERE
    ...
UNION ALL SELECT NULL, NULL, NULL FROM ANY_TABLE WHERE NULL

（如果定位一个真实的表困扰你，你可以使用一个“双”表到数据库）

此外，我发现只在末尾添加一行会更“干净”。
但是你需要写尽可能多的NULLs，因为在实际查询中选择了字段。

编辑：/!\ 在子查询中小心使用此方法，因为它可能会在使用它的查询中导致一些Query too complex 错误！ :(

Answer 3

如果您对您的 PC 具有管理员访问权限（安装时需要），Access SQL editor 可能是正确的工具。
我从未使用过它：作为一名顾问，我很少有权在我使用的机器上安装东西，但它看起来与我想要的完全一样：SSMS 编辑器的复制品。

Answer 4

这不会保留格式，但可以重新格式化。

Sub FormatSQL()
' self-contained FormatSQL()

' 1) Takes WHATEVER is in the clipboard:
' 2) replaces all comma + space with comma, vbCrLf and 5 spaces,
' 3) replaces ALL double-quotes chr(34) with single-quotes
' 4) puts result in clipboard

' CAUTION - This CAN screw up DOUBLED double-quotes (see below)

' Use to format SQL in MS Access SQL View
'
' Usage:
' 1) Copy source to clipboard (Ctrl-a, Ctrl-c)
' 2) Run this
' 3) Paste to target (Ctrl-v)
'
' Note: Does NOT have a "Done" popup.
'
' To add it Access ribbon, create a function that calls this and
' create a macro that calls the function using RunCode.
'
' Ex:
' Function FmtSQL()
'   Call FormatSQL()
' End Function

'NOTES: Must enable Forms Library: _
'   Tools > References > Microsoft Forms 2.0 Object Library
'or you will get a "Compile error: user-defined type not defined"

Dim indent As String
    indent = "," & vbCrLf & "     "

Dim DataObj As New MSForms.DataObject
DataObj.Clear   ' may prevent crashes

Dim clip As Variant
DataObj.GetFromClipboard
clip = DataObj.GetText

clip = Replace(clip, ", ", indent)

' Replace ALL double-quote with single-quote
' NOTE: This WILL screw up DOUBLED double-quotes, i.e.
' "Write ""My name is Paul."" "

clip = Replace(clip, Chr(34), "'")

DataObj.SetText clip
DataObj.PutInClipboard
Set DataObj = Nothing

' Sub FormatSQL()
End Sub