SQL에 아포스트로피를 추가하는 더 좋은 방법은 무엇입니까? - Access VBA

Question

나는 액세스를 위해 메모장 응용 프로그램을 만드는 중입니다. 나는 메모장을 수용하기위한 양식과 다양한 기능을위한 몇 개의 버튼을 만들었습니다. 메모장은 tblContents이라는 테이블에 Memo으로 저장됩니다. 이는 텍스트에서 255 자 이내로 제한되어 있기 때문입니다.

SO에서 많은 양의 텍스트를 복사하여 아포스트로피 문제를 인식하게되었습니다. 내가 어포 스트로피를 추가 할 때 실행하기 위해 특정 구문 (이 시점에서 기억이 안되는)이 될 필요가있는 SQL 문을 실행하면 테이블에 텍스트를 저장할 때를 알 수 있습니다.

사용자가 입력 한 내용을 정확히 유지하려면 아포스트로피와 모두 같은 SQL을 사용하여 추가 할 수 있습니까? 입력을 반복하고 모든 아포스트로피를 제거하지 않으려합니다.

'Save the memo 
Public Sub SaveMemo() 

    'Examine the memo object 
With Forms!frmNotepad!memo 

    'Set focus to memo in order to get length 
    .SetFocus 

    If Len(.Text) > 0 Then 

     'Save to table 
     Dim memoContents As String 
     memoContents = .Text 

     Dim strSQL As String 
     strSQL = "INSERT INTO tblContents (Contents)" & _ 
       "VALUES ('" & memoContents & "'); " 

     'Set the database and execute the SQL 
     Dim db As Database 
     Set db = CurrentDb 

     db.Execute strSQL, dbFailOnError 

    Else 

     MsgBox ("Nothing to save!") 

    End If 

End With 


End Sub 

Answer 1

당신이 (다른 곳과) 주변의 파고 봤는데 찾고 :

다음은 사용자가 입력 된 것을 추가하는 내 코드입니다 샘플 코드의 경우 SQL 인젝션이 발생할 수 있습니다. 아포스트로피 (및 기타 재미있는 비즈니스)를 포함하는 사용자 입력이 놀라 울 때가 있고 때로는 심각한 부작용이있을 수있는 메커니즘입니다.

Access 자체에서 작업하는 경우 Recordset을 사용하여 테이블을 업데이트하면 약간의 문제를 줄일 수 있습니다. 대신 INSERT 문을 실행하면

Dim cdb As DAO.Database, rst As DAO.Recordset 
Set cdb = CurrentDb 
Set rst = cdb.OpenRecordset("tblContents", dbOpenDynaset) 
rst.AddNew 
rst!Contents = memoContents 
rst.Update 
rst.Close 
Set rst = Nothing 
Set cdb = Nothing 

당신이 문자를 이스케이프 또는 SQL 주입에 의해 넘어지고 대해 걱정할 필요가 없습니다 그 방법을 사용할 수 있습니다.

Answer 2

당신은 대체 사용할 수있다() 함수

memoContents = .Text 
memoContents = Replace(memoContents ,"'","''")