Tại sao câu lệnh update này lại báo lỗi cú pháp. Xin các Pro giúp đỡ (1 người xem)

[trinhviettt]

đã check kỹ rồi mà vẫn báo lỗi cú pháp( Syntax error). Nhờ các pro gở rối giùm
Thanks


sqlstr = ""
sqlstr = sqlstr + "UPDATE TRA018"
sqlstr = sqlstr + " SET UPDYMD = '" + Format(Now(), "YYYYMMDD") + "',"
sqlstr = sqlstr + " UPDCOUNT = UPDCOUNT + 1,"
sqlstr = sqlstr + " INTUSERID = '" + PB_UserID + "',"
sqlstr = sqlstr + " INTPCNO = '" + PB_PcName + "',"
sqlstr = sqlstr + " CHGUSERID = '" + PB_UserID + "',"
sqlstr = sqlstr + " CHGPCNO = '" + PB_PcName + "',"
sqlstr = sqlstr + " QUANTITY = " + CStr(Txt_02) + ","
sqlstr = sqlstr + " PRICE = " + CStr(Txt_03) + ","
sqlstr = sqlstr + " CURRENCY = '" + Txt_04 + "'"
sqlstr = sqlstr + " WHERE ITEMNAME = '" + Cmb_01 + "'"
sqlstr = sqlstr + " AND PONO ='" + Txt_01 + "'"

 

[solomon2211]

đã check kỹ rồi mà vẫn báo lỗi cú pháp( Syntax error). Nhờ các pro gở rối giùm
Thanks


sqlstr = ""
sqlstr = sqlstr + "UPDATE TRA018"
sqlstr = sqlstr + " SET UPDYMD = '" + Format(Now(), "YYYYMMDD") + "',"
sqlstr = sqlstr + " UPDCOUNT = UPDCOUNT + 1,"
sqlstr = sqlstr + " INTUSERID = '" + PB_UserID + "',"
sqlstr = sqlstr + " INTPCNO = '" + PB_PcName + "',"
sqlstr = sqlstr + " CHGUSERID = '" + PB_UserID + "',"
sqlstr = sqlstr + " CHGPCNO = '" + PB_PcName + "',"
sqlstr = sqlstr + " QUANTITY = " + CStr(Txt_02) + ","
sqlstr = sqlstr + " PRICE = " + CStr(Txt_03) + ","
sqlstr = sqlstr + " CURRENCY = '" + Txt_04 + "'"
sqlstr = sqlstr + " WHERE ITEMNAME = '" + Cmb_01 + "'"
sqlstr = sqlstr + " AND PONO ='" + Txt_01 + "'"

Bạn có thể thay đổi các dấu + thành các dấu & và chỉnh vài chỗ như dưới:

sqlstr = ""
sqlstr = sqlstr & "UPDATE TRA018"
sqlstr = sqlstr & " SET UPDYMD = '" + Format(Now(), "YYYYMMDD") & "',"
sqlstr = sqlstr & " UPDCOUNT = UPDCOUNT + 1,"
sqlstr = sqlstr & " INTUSERID = '" & PB_UserID & "',"
sqlstr = sqlstr & " INTPCNO = '" & PB_PcName & "',"
sqlstr = sqlstr & " CHGUSERID = '" & PB_UserID & "',"
sqlstr = sqlstr & " CHGPCNO = '" & PB_PcName & "',"
sqlstr = sqlstr & " QUANTITY = " & CStr(Txt_02) & ","
sqlstr = sqlstr & " PRICE = " & CStr(Txt_03) & ","
sqlstr = sqlstr & " CURRENCY = '" & Txt_04 & "'"
sqlstr = sqlstr & " WHERE ITEMNAME = '" & Cmb_01 & "'"
sqlstr = sqlstr & " AND PONO ='" & Txt_01 & "'"