delphi7中把edit空間的值讀取出來寫入數據庫。

var

mz:string;

bm:string;

begin

mz:=edit2.Text;

bm:=edit4.text;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('update t_person set name='''+mz+''''+'where person_bm='''+bm+'''');

ADOQuery1.SQL.ExceSql

ADOQuery1.Open;

end;

註意連接好ADOQuery1就可以了