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;