sCmd = "update authors"
sCmd = sCmd + "set"
sCmd = sCmd + "au_id='" + Trim(txtId.Text) + "'"
sCmd = sCmd + ",au_fname='"+ Trim(txtFirstName.Text) + "'"
sCmd = sCmd + ",au_lname='" + Trim(txtLastName.Text) + "'"
sCmd = sCmd + ",address='" + Trim(txtAddress.Text) + "'"
sCmd = sCmd + ",city='" + Trim(txtCity.Text) + "'"
sCmd = sCmd + ",state='" + Trim(txtState.Text) + "'"
sCmd = sCmd + ",zip='" + Trim(txtZip.Text) + "'"
sCmd = sCmd + ",phone='" + Trim(txtPhone.Text) + "'"
sCmd = sCmd + ",contract=" & IIf(chkContract.Value = vbChecked, 1, 0)
sCmd = sCmd + "where au_id='" + msCurrentRecord +"'
On Error GoTo UpDatefailed:
mConn.Execute sCmd
老是提示说第一巷”=“附近有错误???
sCmd = sCmd + "set"
sCmd = sCmd + "au_id='" + Trim(txtId.Text) + "'"
sCmd = sCmd + ",au_fname='"+ Trim(txtFirstName.Text) + "'"
sCmd = sCmd + ",au_lname='" + Trim(txtLastName.Text) + "'"
sCmd = sCmd + ",address='" + Trim(txtAddress.Text) + "'"
sCmd = sCmd + ",city='" + Trim(txtCity.Text) + "'"
sCmd = sCmd + ",state='" + Trim(txtState.Text) + "'"
sCmd = sCmd + ",zip='" + Trim(txtZip.Text) + "'"
sCmd = sCmd + ",phone='" + Trim(txtPhone.Text) + "'"
sCmd = sCmd + ",contract=" & IIf(chkContract.Value = vbChecked, 1, 0)
sCmd = sCmd + "where au_id='" + msCurrentRecord +"'
On Error GoTo UpDatefailed:
mConn.Execute sCmd
老是提示说第一巷”=“附近有错误???
2.set之后,where之前,应该有空格
3.字符串连接最好使用&而不是+