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;
posted on 2020-04-06 23:06 windsonvip 阅读(2187) 评论(0) 编辑 收藏 举报