delphi+sql数据库增加，删除，修改，查询操作

需要注意的是，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;

https://www.cnblogs.com/windson/p/12650392.html

推荐分享