Прошу прощения за ламерский вопрос...
Нужно выполнить SQL запрос. В качестве критерия поиска используется апостроф, что, собственно, приводит к ошибке.
- Код: Выделить всё
Dim query As String
query = "SELECT * FROM TABLE "
query = query & "WHERE COL LIKE '%1'5%'" '!!!Ищем апостроф (') => ошибка!!!
query = query & "ORDER BY 1"
Dim cn As Connection
Dim rs As ADODB.Recordset
'Создание и инициализация объекта Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "PROVIDER=MSDASQL;dsn=UserDSN;uid=User;pwd=***;"
cn.Open
'Создание и инициализация объекта Recordset
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
'Выполняем запрос, который выдаст ошибку
rs.Source = (query)
rs.Open
'Разрыв соединения
Set rs.ActiveConnection = Nothing
cn.Close
Set cn = Nothing
Set rs = Nothing
Как избежать ошибку?
