Сохранение отдельных котировок при доступе

Question

Я создал форму в Access 2010, которая используется для вставки данных в существующую таблицу. Таблица содержит поле «Ключевые слова», поле «Источник» и текстовое поле «Код», в котором я записываю данные, которые нужно вставить, и есть кнопка для выполнения запроса. Код формы:

Private Sub cmd_go_Click() 
Dim insertstring As String 
insertstring = "INSERT INTO KWTable (KW, Source, Code) VALUES('" & text_key.Value & "','" & combo_source.Value & "','" & txt_code.Value & "');" 
DoCmd.RunSQL insertstring 
End Sub 

код прост, он вводит данные в таблицу, так что я могу ссылаться на него для использования в будущем. Теперь проблема, с которой я столкнулась, заключается в том, что когда я пытаюсь добавить длинные биты кода, которые я использую в SQL Server, я получаю синтаксическую ошибку с отсутствующим выражением, которую, как я предполагаю, исходит из одинарных кавычек, поскольку код от SQL. Я получаю ошибку, потому что, когда я пытаюсь сохранить код, который я использую в SQL Server, он использует одинарные кавычки, доступ которых не распознается. Я думаю, что если я попытаюсь написать в коде для формы вставки что-то, чтобы помочь преобразовать одинарные кавычки в двойные кавычки, а затем переконвертировать их обратно в одинарные кавычки, поможет решить проблему. Я просто не могу понять, как это сделать и действительно может помочь.

Спасибо

Answer 1

Вы можете избежать неприятностей с включенными кавычками в вставленном тексте с помощью запроса параметров.

Рассмотрите такой подход, как для cmd_go_Click().

Dim strInsert As String 
Dim db As DAO.database 
Dim qdf As DAO.QueryDef 

strInsert = "PARAMETERS pKW TEXT(255), pSource TEXT(255), pCode TEXT(255);" & vbCrLf & _ 
"INSERT INTO KWTable (KW, Source, Code) VALUES (pKW, pSource, pCode);" 
'Debug.Print strInsert 
Set db = CurrentDb 
Set qdf = db.CreateQueryDef(vbNullString, strInsert) 
qdf.Parameters("pKW") = Me.text_key.value 
qdf.Parameters("pSource") = Me.combo_source.value 
qdf.Parameters("pCode") = Me.txt_code.value 
qdf.Execute dbFailOnError 
Set qdf = Nothing 
Set db = Nothing 

Однако, я не понимаю, как JoinCells() вписывается.

Answer 2

Я использую функцию, которая обрабатывает нулевые значения, и сбегает одиночные кавычки (путем преобразования их в две одинарные кавычки) при создании заявления SQL непосредственно :

Function SafeSQL(ByVal pvarSQL As Variant) As String 
    SafeSQL2 = Replace(Nz(pvarSQL, ""), "'", "''") 
End Function 

Тогда в вашей обычной вы бы:

insertstring = "INSERT INTO KWTable (KW, Source, Code) VALUES('" & SafeSQL(text_key.Value) & "','" & SafeSQL(combo_source.Value) & "','" & SafeSQL(txt_code.Value) & "');"