SQL 오류 액세스 2010 VBA 업데이트 명령

Question

SQL 문에서 오류를 찾는 데 도움이 필요합니다. 나는 여러 가지 일을 시도해 왔지만 아무 것도 효과가없는 것 같습니까? 이것은 내가

Run-time error '3075': 

Syntax error (missing operator) in query expression '([description] = Manufacturing and Delivery Schedule AND [pr_num] = 83)'. 

를 나타나는 오류 메시지입니다 이건 내 코드입니다 : 사전에 어떤 도움

이

Private Sub Command6_Click() 
' =================================================== 
' Receives the selected item in the combo box 
' =================================================== 

' Open the Database connection 
Dim data_base As Database 
Set data_base = CurrentDb 

' Grab description and pr number from the form 
Dim desc As string 
dim pr_number as long 
desc = Combo4.Value 
pr_number = Text8.Value 

' Build the query 
Dim query As String 
query = "UPDATE VDR_Table " & _ 
    "SET [received] = [p1] " & _ 
    "WHERE ([description] = " & desc & _ 
    " AND [pr_num] = " & pr_number & ");" 

Dim rec_set As DAO.Recordset 
Set rec_set = data_base.OpenRecordset(query) 

' Build the QueryDef 
Set qd = data_base.CreateQueryDef("") 
qd.SQL = query 

' Execute query 
qd.Parameters("p1").Value = true 
qd.Execute 

' Close nad null record set 
rec_set.close 
set rec_set = nothing 

' Close the connection to the database 
data_base.Close 

' Prompt the user success 
MsgBox "Item has been received" 
End Sub 

감사합니다!

Answer 1

문자열 필드이므로 따옴표로 묶을 설명 필드 값을 묶어야합니다. 그것은 다음과 같아야합니다

' Build the query 
Dim query As String 
query = "UPDATE VDR_Table " & _ 
    "SET [received] = [p1] " & _ 
    "WHERE ([description] = '" & desc & _ 
    "' AND [pr_num] = " & pr_number & ");" 

은이 경우에는 문제가되지 않기 때문에 아래의 링크를 제거.

또한 SQL 삽입을 피하기 위해 문자열 연결 대신 매개 변수를 사용하는 것이 좋습니다. 다음은 VBA에서 매개 변수를 사용하는 예입니다 ( http://support.microsoft.com/kb/181734). 여기에 매개 변수가있는 sql을 사용하는 이유에 대한 설명이 있습니다 ( http://www.codinghorror.com/blog/2005/04/give-me-parameterized-sql-or-give-me-death.html).