在vb中一起执行多个命令

Question

我正在开发一个vb项目。在这我需要保存一些记录到一个表中，并在一个事件中更新另一个表中的某些记录或点击..我正在这样做。

 Conn.Execute "insert into DailyStock(serial,category,model,datee,opnstock,supply,phystk,totalsale,ssale,nsale,totalstock)values(" & txtserial.Text & ",'" & CboCategory.Text & "','" & CboModel.Text & "','" & DTPicker1 & "'," & txtopnstock.Text & "," & txtsupply.Text & "," & txtphystk.Text & "," & txttsale.Text & "," & txtssale.Text & "," & txtnsale.Text & "," & txtstock.Text & ") ; update Menu set phystk=" & txtstock & " where ItemName='" & CboModel & "'" 
     MsgBox ("Data Saved Successfully") 

但它给错误的“字符SQL语句后找到了” ..我没有得到我走到哪里错了..请帮我

Answer 1

你只能在MS Access一次运行一个语句。一切后面的“;”是在sql语句后发现的一个字符。

Conn.Execute "insert into DailyStock(serial,category,model,datee,"_ 
& "opnstock,supply,phystk,totalsale,ssale,nsale,totalstock)values(" _ 
& txtserial.Text & ",'" & CboCategory.Text & "','" _ 
& CboModel.Text & "','" & DTPicker1 & "'," & txtopnstock.Text _ 
& "," & txtsupply.Text & "," & txtphystk.Text & "," & txttsale.Text & "," _ 
& txtssale.Text & "," & txtnsale.Text & "," & txtstock.Text & ") " 

Conn.Execute "update Menu set phystk=" & txtstock _ 
& " where ItemName='" & CboModel & "'"