Добавление шифрованой строки в БД

[ZOD]

Добавляю зашифрованы строки (не важно чем, XOR, Blowfish, Gost) но при каких-то определенных сиволах вылетает сообщение о недопустимом SQL запросе. Как избавиться от этой проблемы, ведь даже заменой символов не добится результата, т.к. шифрованая строка будет испорчена?

[Sebas]

Строка? А как Ты в строку переводишь?

[ZOD]

Код: Выделить всё

Public Function EncryptDecrypt(strInput As String) As String
Dim s As String
Dim i As Long
Dim tk As Long
Dim kS As Long
Dim sS As Long
Dim KeyLen As Long
' BwK - строковая константа

    tk = 1
    KeyLen = Len(BwK)
    For i = 1 To Len(strInput)
        kS = Asc(Mid$(BwK, tk, 1))
        sS = Asc(Mid$(strInput, i, 1))
        s = s & Chr$(kS Xor sS)
        If tk = KeyLen Then tk = 1 Else tk = tk + 1
    Next i
   
    EncryptDecrypt = s
   
End Function

В окошке Immediate Window проверяю ф-ю, перекодирует вроде правильно. Но при подстановке в запрос вылетает ошибка.

[HandKot]

поробуйте запрос с параметрами
если не ошибаюсь, то в таком случае ошибок не возникает

[ZOD]

поробуйте запрос с параметрами
если не ошибаюсь, то в таком случае ошибок не возникает

Это как?

[HandKot]

у объекта ADODB.command
есть объект Parameters

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

Код: Выделить всё

Dim cmd as ADODB.Command
Dim p As ADODB.Parameters
...
cmd.CommandText = "insert into MyTable(field1) values (?)"

set p = New ADODB.Parameters(...)
cmd.Parameters.Append p
...
cmd.Execute

на форуме поищите (скорее всего в разделе БАЗЫ ДАННЫХ)

[alibek]

Экранируй недопустимые в SQL символы. Обычно это апостоф, кавычки и управляющие символы.