Ayuda con Query Ado DBF

[marcoszorrilla]

Código Delphi [-]
 procedure TForm2.FormActivate(Sender: TObject);
begin
 Adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Add('SELECT Dta101.codigo, Dta101.codbar,   Dta101.nombre,Dta101.salario');
 adoquery1.SQL.Add('Tmpaus.codbar, Tmpaus.ausencias');
 adoquery1.SQL.Add('FROM  dta101, tmpaus') ;
 adoquery1.SQL.Add('where Dta101.codbar = Tmpaus.codbar');
 showmessage('Aqui va bien');// Hasta aqui todo va bien
//adoquery1.ExecSQL; // Aqui da error supríme esta línea y te funcionará.
 adoquery1.Active:=True;
 end;

Un Saludo.