delphiinsert语句错误SQL.Add('insertintouserinfousertypeid,username,passwordvalues:userid,:username,:userpassword');帮看下。全代码如下：〕procedureTForm2.Button3Click(Sender:TObject);varuserid:integer;username,userpasswor

Question

delphiinsert语句错误SQL.Add('insertintouser_infouser_type_id,username,passwordvalues:user_id,:user_name,:user_password'); 帮看下。 全代码如下： 〕procedureTForm2.Button3Click(Sender:TObject); var user_id:integer; user_name,user_password:string; begin ifuser_opquery.Active=truethen begin if(id_edit.Text='')or(new_name_edit.Text='')or(new_pass_edit.Text='')then begin showmessage('请写入完整或正确的数据'); exit; end; end; user_id:=strtoint(id_edit.Text); user_name:=new_name_edit.Text; user_password:=new_pass_edit.Text; withuser_opquerydo begin close; sql.Clear; SQL.Add('insertintouser_infouser_type_id,username,passwordvalues:user_id,:user_name,:user_password'); {f2_query.SQL.Add('insertinto[user]'); f2_query.SQL.Add('(user_type_id,username,password)'); f2_query.SQL.Add('values'); f2_query.SQL.Add('(:user_id,:user_name,:user_password)');} showmessage(user_opquery.SQL.Text); Parameters.ParamByName('user_id').Value:=strtoint(id_edit.Text); Parameters.ParamByName('user_name').Value:=user_name; Parameters.ParamByName('user_password').Value:=user_password; ExecSQL; end; end; -------------- 谢谢指教了。

Answer 1

下面的语句SQL不对： SQL.Add('insertintouser_infouser_type_id,username,passwordvalues:user_id,:user_name,:user_password'); 查两对小括号，修改为： SQL.Add('insertintouser_info(user_type_id,username,password)values(:user_id,:user_name,:user_password)');