代码创建adoquery的方法

var

 MyAdoq: TADOQuery;

begin

 MyAdoq := TADOQuery.Create(nil);

MyAdoq.Connection := frmDataPool.ADOConnection1;

with MyAdoq do
begin
Close;
SQL.Text := '具体的执行语句';
ExecSQL;
end;

MyAdoq.Free;

end;

　　

转载于:https://www.cnblogs.com/ddxxxb/p/6879596.html