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

需要注意的是,open一般用于查询(select),exesql用于修改,插入,删除(update,insert,delete)
增加
with dm.DataModule1.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add(&#39insert into 表 (字段1,字段2,字段3) values(:a,:b,:c)&#39);//前面的字段就是需要增加的
    parameters.ParamByName(&#39a&#39).Value:=trim(edit1.Text);
    parameters.ParamByName(&#39b&#39).Value:=trim(edit2.Text);
    parameters.ParamByName(&#39c&#39).Value:=trim(edit3.Text);
    execsql;
  end;
删除
复制代码
with dm.DataModule1.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add(&#39delete from 表 where 字段=:a&#39);
      parameters.ParamByName(&#39a&#39).Value:=trim(edit1.Text);
      execsql;
    end;
修改
with dm.DataModule1.ADOQuery1 do
     begin
       close;
       sql.Clear;
       sql.Add(&#39update 表 set 字段1=:a where 字段2=:b&#39);//where后面跟的是条件,set为后面跟需要修改的数据所在的字段
       parameters.ParamValues[&#39b&#39]:=trim(Edit4.Text);
       parameters.ParamValues[&#39a&#39]:=trim(Edit14.Text);
       execsql;
     end;
查询
with dm.DataModule1.adoquery1 do
  begin
   Close;
   SQL.Clear;
   sql.Add(&#39select * from 表 where 字段名 = :a &#39);
   parameters.ParamByName(&#39a&#39).Value:=trim(edit1.Text);
   Open;
end;
https://www.cnblogs.com/windson/p/12650392.html
THE END
文章版权归作者所有,未经允许请勿转载。
点赞10赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片