procedure Findandupdate;//自己定义过程,你可以写到其他事件中 begin with ADOQuery1 do begin sql.close; sql.clear; sql.add('select [table1].name,[table2].add from table1,table2 where [table1].id =[table2].id and [table1].id=:id');//多表查询 parameters.parambyname('id').value := 10; open; end; with ADOQuery1 do begin sql.close; sql.clear; sql.add('update table2 set name=:name where id=10');//更新另外的表 parameters.parambyname('name').value := 'kris'; execsql; end; end;
begin
with ADOQuery1 do
begin
sql.close;
sql.clear;
sql.add('select [table1].name,[table2].add from table1,table2 where [table1].id =[table2].id and [table1].id=:id');//多表查询
parameters.parambyname('id').value := 10;
open;
end;
with ADOQuery1 do
begin
sql.close;
sql.clear;
sql.add('update table2 set name=:name where id=10');//更新另外的表
parameters.parambyname('name').value := 'kris';
execsql;
end;
end;