El problema esta en llamar a Active
Código Delphi
[-]procedure TForm2.Button2Click(Sender: TObject);
begin
ADOQuery2.Active:=true;
Adoquery2.ExecSQL;
end;
Solo deberias llamara Execsql
Código Delphi
[-]procedure TForm2.Button2Click(Sender: TObject);
begin
Adoquery2.ExecSQL;
end;
Utilizas Active := true u Open para abrir datasets que devuelvan un conjunto de datos, en cambio execsql ejecuta las instrucciones sql, que no necesariamente devolveran datos a la aplicación.
Saludos.