Daten aus OracleDB mit Delphi in csv exportieren

[blema]

Zitat von Sherlock:

Jetzt musst Du doch erstmal nur die Query mit nem SQL beglücken. Dann ausführen und Du bekommst Satzweise eine Ergebnismenge. Hier mal ein Ansatz für den csv-Export:
http://stackoverflow.com/questions/5...ve-to-csv-file

Sherlock

ich muss erstmal die verbindung aufbauen, dann klappt es vlt.


Aber, danke

VG blema

[mikhal]

zu FireDAC kann ich dir nichts sagen, habe hier nur den lokalen Zugriff, müsste ich mir zu Hause anschauen. Ich setze hier UniDAC von Devart ein, ist das Pendant zu FireDac, aber...

Ein guter Anfang wäre ein Doppelklick auf die Komponenten FdConnection.

Grüße
Mikhal

[blema]

Zitat von mikhal:

Ein guter Anfang wäre ein Doppelklick auf die Komponenten FdConnection.

Naja, soweit bin ich . Der Sherlock hat mir netterweise sehr gut beschrieben!

[blema]

Hi,

der Zugriff auf Oracle-DB funktioniert. Ich habe mit folgende Komponenten hingekriegt:

• FDConnection und
• FDQuery

ich kann mir auch Datensätze auf DBGrid anzeigen lassen.

ich bedanke mich.

Jetzt muss ich "nur noch" den csv-Export in Delphi programmieren.

Vielen DAnk.

VG blema

[blema]

Hallo,
ich habe schon par Testdaten aus OraDB in csv exportieren können, aber es fehlt der Spaltenname der Tabelle.
kann mir bitte eine dabei helfen.

Delphi-Quellcode:

procedure TForm1.Export_Button2Click(Sender: TObject);
var
  List: TStringList;
  SpaltenName : String;
  DatenFeld: String;
  I: Integer;
begin
  SpaltenName := '';
  List := TStringList.Create;
  try
    FDQuery1.First;
    while not FDQuery1.Eof do
    begin
      //SpaltenName := '';
      DatenFeld := '';
      for I := 0 to FDQuery1.FieldCount - 1 do
      begin
        if DatenFeld > '' then
          DatenFeld := DatenFeld + '';
        DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].AsString + ' | ';
      end;
      List.Add(DatenFeld);
      FDQuery1.Next;
    end;
  finally
    List.SaveToFile('C:\Projekte\oraTOcsv.csv');
    List.Free;
  end;
end;

danke vorab

VG blema

[Klaus01]

Hallo,

da ich FD nicht kenne nur ein Schuss ins Blaue..

Gibt es da nicht
FDQuery1.Fields.GetFieldNames(list: TStrings) Was Dir die Feldname in einer Liste übergibt.

Die Felder könntest Du dann mit ihren Feldname anstatt ihrer Indizes ansprechen.

Grüße
Klaus

[Jumpy]

Die Spaltennamen aber bitte nicht da schreiben, wo dein Kommentar steht, sondern vor der while-Schleife! Evtl geht dann auch ein FDQuery1.Fields[I].Fieldname (kenne FD auch nicht) analog zu deinem bisherigen Code:

Delphi-Quellcode:

for I := 0 to FDQuery1.FieldCount - 1 do
begin
  if DatenFeld > '' then
    DatenFeld := DatenFeld + '';
  DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].Fieldname + ' | ';
end;