Insert, Update, Delete 문장은 Query1.Open 이나 Query1.Active:=True 를 하시면 안됩니다.



ExecSQL을 사용하셔야합니다.





님의 소스를 수정해봅니다. 안되면..다시 글남겨주세요.



procedure TForm1.Button2Click(Sender: TObject);

begin



if query1.active then query1.close;



with query1 do begin

sql.clear;

sql.Add('insert into imsitb');

sql.Add(' (custno,company,addr1,gub) values');

sql.add(' (:pa_cus,:pa_com,:pa_addr,:pa_gu) ');

params.parambyname('pa_cus').asinteger := strtoint(edit2.text);

params.parambyname('pa_com').asstring := edit3.text;

params.parambyname('pa_addr').asstring := edit4.text;

params.parambyname('pa_gu').asinteger := strtoint(edit5.text);

ExecSQL;

end;



end;