Delphi中TADOQurey对数据库的操作

一、首先用TADOConnection连接数据库

二、针对具体的操作TADOQurey的命令和调用方法不同

1、无返回结果的操作（添加，删除，更新等……）以TADOQurey的一个实例qryMySQL 为例：

（1）添加记录

       with qryMySQL do
       begin
         SQL.Clear;

         SQL.Add('INSERT INTO user ( ID ,Name ,Sex ,Age) VALUES (NULL , "张三", "女", "16");');

         ExecSQL;

      end;

（2）更新记录
         SQL.Add('UPDATE "user" SET "Sex" = "男" WHERE "ID" =1;');

（3）删除记录
         SQL.Add('DELETE FROM "user" WHERE "ID" =2;');

2、有返回结果的操作（读记录集数据）

TADOQurey执行SQL后自身就是保存结果的一个记录集，因此ExecSQL换为Open。First定位到第一条记录，然后用EOf判断记录位置循环读取数据，注意循环中不要忘记调用Next;

        with qryMySQL do
        begin
          SQL.Clear;
          SQL.Add('select * from firehydrant;');
          Open;
          mmoResult.Lines.Add('记录数：'+inttostr(RecordCount));
          First;
          while not EOf do
          begin
            mmoResult.Lines.Add(FieldByName('Name').AsString);
            Next;
          end;
        end;

转载于:https://www.cnblogs.com/delphi7456/archive/2010/12/08/1900099.html