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;

 

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

上一篇:TIBCO Jaspersoft Studio-6.12.2连接mysql时显示时区问题


下一篇:浅谈ASP.NET报表控件