Crear archivo TXT Ayuda

[ecfisa]

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; // (o '54')
    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.