需要注意的是,open一般用於查詢(select),exesql用於修改,插入,刪除(update,insert,delete)
增加
with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)');//前面的字段就是需要增加的 parameters.ParamByName('a').Value:=trim(edit1.Text); parameters.ParamByName('b').Value:=trim(edit2.Text); parameters.ParamByName('c').Value:=trim(edit3.Text); execsql; end;
刪除
with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('delete from 表 where 字段=:a'); parameters.ParamByName('a').Value:=trim(edit1.Text); execsql; end;
修改
with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('update 表 set 字段1=:a where 字段2=:b');//where后面跟的是條件,set為后面跟需要修改的數據所在的字段 parameters.ParamValues['b']:=trim(Edit4.Text); parameters.ParamValues['a']:=trim(Edit14.Text); execsql; end;
查詢
with dm.DataModule1.adoquery1 do begin Close; SQL.Clear; sql.Add('select * from 表 where 字段名 = :a '); parameters.ParamByName('a').Value:=trim(edit1.Text); Open; end;