请问添加数据有关问题

请教添加数据问题。
procedure TForm1.btn1Click(Sender: TObject);
var
a,S:string;
begin

a:=edt1.Text;
b:=edt2.Text;

s:='insert into GS (GS001,GS002) VALUES (a,b)' ;

ShowMessage(s);
with qry1 do
begin
Close;
sql.Clear;
SQL.add(s);
Open;
end;
end;

想在表GS里面的GS001,GS002添加一行数据a是数字型b是文字型的。
ShowMessage时候看到里面的数据还是ab并不是edt1和edt2里面的。
应该怎么样做呢？

------解决方案--------------------
s:='insert into GS (GS001,GS002) VALUES (' + Edt1.Text + ',' + edt2.Text + ')';
Open改为Execute;
------解决方案--------------------

Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);
begin
  with qry1 do
  begin
    Close;
    sql.Clear;
    SQL.add('insert into GS (GS001,GS002) VALUES (:a,:b)');
    Parameters.ParamByName('a').Value:=edt1.Text;
    Parameters.ParamByName('b').Value:=edt2.Text;
    ExecSQL;
  end;
end;

请问添加数据有关问题

相关推荐