时间:2021-07-01 10:21:17 帮助过:13人阅读
增加
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;
delphi+sql数据库增加,删除,修改,查询操作
标签:exe phi span let 注意 增加 select delphi class