У меня много SQL на работе в MS-Access, и мне нужно отформатировать его так, чтобы он был удобочитаемым. Проблема в том, что когда я переключаюсь между представлениями, я заканчиваю тем, что SQL сжимается во что-то, что я не могу прочитать.
Как заставить SQL сохранять свою «форму» при переходе к другим представлениям?
Я нашел хак, здесь. Секрет заключается в заключении вашего запроса в фиктивный запрос. Вот так:
SELECT * FROM (SELECT <-----here
Table1.Field1,
Table1.Field2
FROM
Table1
WHERE
Table1.Field2 = "Yes") AS query1 <-----here
Я указал, где и как вы оборачиваете код. Единственная проблема, которую я вижу, заключается в том, что если вы хотите отредактировать код в представлении «Дизайн», то он, похоже, вообще не берет вложенный код.
Иногда метод, предложенный @Pureferret, может дать сбой из-за того, что Access продолжает переформатировать SQL.
Я обнаружил, что единственный способ, который всегда работает, — это добавить блок UNION ALL в конец запроса.
Действительно, поскольку Access не обрабатывает UNION ALL, он даже не предлагает редактировать в режиме конструктора.
(Я пробовал с UNION, но получил Overflow ошибку!)
SELECT
...
...
FROM
...
WHERE
...
UNION ALL SELECT NULL, NULL, NULL FROM ANY_TABLE WHERE NULL
(если вас беспокоит нацеливание на реальную таблицу, вы можете использовать «двойную» таблицу для базы данных)
Более того, я нахожу немного "чище" добавлять только одну строку в конце.
Но вам нужно написать столько NULL, сколько выбранных полей в реальном запросе.
РЕДАКТИРОВАТЬ: /!\ Будьте осторожны с этим методом в подзапросах, так как он может вызвать некоторую ошибку Query too complex в запросах, использующих его! :(
Если у вас есть доступ администратора к вашему ПК (требуется для установки), доступ к редактору SQL может быть правильным инструментом.
Я никогда не использовал его: как консультант я редко имею право устанавливать что-то на машины, которые использую, но он выглядит именно так, как я хотел бы иметь: реплика SSMS редактор.
Это не сохранит форматирование, но может переформатировать.
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
