Hola.
Aunque creo que buscabas hacerlo desde la base de datos, igual te apunto otra opción, hacerlo desde Delphi mediante un
TIBQuery:
Código Delphi
[-]
var
TS: TStrings;
begin
with IBQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT D.cuenta_bancaria,D.nombre,D.apellido,D.id_doctor, DT.total_a_pagar ');
SQL.Add('FROM detalle_nomina_doctores DT ');
SQL.Add('INNER JOIN DOCTORES D ON D.id_doctor = DT.id_doctor ');
SQL.Add('WHERE DT.id_nomina = :nomina AND D.cuenta_bancaria IS NOT NULL');
ParamByName('nomina').AsString:= EditNomina.Text; Open;
TS:= TStringList.Create;
try
while not Eof do
begin
TS.Add(FieldByName('cuenta_bancaria').AsString + ';' +
FieldByName('nombre').AsString + ';' +
FieldByname('apellido').AsString + ';' +
FieldByName('id_doctor').AsString + ';' +
FieldByName('total_a_pagar').AsString);
Next;
end;
Close;
TS.SaveToFile('C:\ARCHIVO.TXT');
finally
TS.Free;
end;
end;
Saludos.