SQL插入语句问题(20)

  • 主题发起人 主题发起人 tssdnr
  • 开始时间 开始时间
T

tssdnr

Unregistered / Unconfirmed
GUEST, unregistred user!
菜鸟提问:把一个输入窗口的内容插入到表中 Query2.Close; Query2.SQL.Clear; sqlstr:='Insert into patient(P_Name,P_Sex,P_Tel,P_Email,P_Age,P_Addr, ' + 'P_Depart,P_BedNo,P_HosNo,P_IDCard) ' + 'values(:a,:b,:c,:d,:e,:f,:g,:h,:j,:k)'; Query2.ParamByName('a').AsString:=trim(E_PName.Text); Query2.ParamByName('b').AsString:=trim(E_PSex.Text); Query2.ParamByName('c').AsString:=trim(E_PPhone.Text); Query2.ParamByName('d').AsString:=trim(E_PEmail.Text); Query2.ParamByName('e').AsString:=trim(E_PAge.Text); Query2.ParamByName('f').AsString:=trim(E_PAddr.Text); Query2.ParamByName('g').AsString:=trim(E_PRoom.Text); Query2.ParamByName('h').AsString:=trim(E_PBed.Text); Query2.ParamByName('j').AsString:=trim(E_HosNo.Text); Query2.ParamByName('k').AsString:=trim(E_PIdentityCard.Text); showmessage(sqlstr); Query2.SQL.Add(sqlstr); Query2.Open;为什么运行时总是说参数变了'a'有问题,难道要先声明
 
Query2.SQL.Add(sqlstr);放到这里 Query2.ParamByName('a').AsString:=trim(E_PName.Text); Query2.ParamByName('b').AsString:=trim(E_PSex.Text); Query2.ParamByName('c').AsString:=trim(E_PPhone.Text); Query2.ParamByName('d').AsString:=trim(E_PEmail.Text); Query2.ParamByName('e').AsString:=trim(E_PAge.Text); Query2.ParamByName('f').AsString:=trim(E_PAddr.Text); Query2.ParamByName('g').AsString:=trim(E_PRoom.Text); Query2.ParamByName('h').AsString:=trim(E_PBed.Text); Query2.ParamByName('j').AsString:=trim(E_HosNo.Text); Query2.ParamByName('k').AsString:=trim(E_PIdentityCard.Text); showmessage(sqlstr); Query2.Open;
 
Query的参数属性没有打开
 
我试了试用Supermay的方法还是不行啊
 
参数属性没有打开怎样理解?
 
能不能具体讲下,多谢了
 
对于insert,update,delete语句,需要用Query2.ExecSQL,select语句需要用Query2.Open
 
Query.paramCheck=True
 
多人接受答案了。
 
后退
顶部