Delphi中TADOQurey对数据库的操作
时间:2010-12-08 来源:Delphi7456
二、针对具体的操作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;