查询错误:语法错误(操作丢失)在查询表达式“知音‘mgztype=‘文学文摘”中
Private Sub modifyBrwOK_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "update borrowinfo set mgzno='" & mgzNo.Text & "',mgzname='" & mgzName.Text & "'"
sql = sql & "mgztype='" & mgzType.Text & "',readerid='" & readerID.Text & "'"
sql = sql & "readername='" & readerName.Text & "',readertype='" & readerType.Text & "'"
sql = sql & "newsroom='" & newsRoom.Text & "',borrowdate='" & borrowDTP.Value & "'"
sql = sql & "returndate='" & rtnDTP.Value & "',borrowother='" & borrowOther.Text & "'"
If Trim(mgzNo.Text) = "" Or Trim(mgzName.Text) = "" Or Trim(mgzType.Text) = "" Or _
Trim(readerID.Text) = "" Or Trim(readerName.Text) = "" Or Trim(readerType.Text) = "" Or _
Trim(newsRoom.Text) = "" Or Trim(borrowDTP.Value) = "" Or Trim(rtnDTP.Value) = "" Or _
Trim(borrowOther.Text) = "" Then
MsgBox "借刊信息录入不能为空!", vbOKOnly
Else
TransactSQL (sql)
MsgBox "借刊信息添加修改成功!", vbOKOnly
Unload Me
End If
End Sub
我仔细看来半天也看不出哪有错呀,但总是提示查询错误:语法错误(操作丢失)在查询表达式“知音‘mgztype=‘文学文摘”中
求高手指点!谢谢了!