Daten aus OracleDB mit Delphi in csv exportieren

[blema]

Zitat:

Zitat von mikhal (Beitrag 1290193)

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

Delphi-Quellcode:

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;

[blema]

Hi, ich habe gerade das in meinem Programm eingebaut, aber es ist immer noch wie unter #13. Kein Fehler aber auch keine SpaltenName.

Code:

var
  List: TStringList;
  bm: TBookmark;
  SpaltenName : String;
  DatenFeld: String;
  I: Integer;
begin
  SpaltenName := '';
  List := TStringList.Create;
  try
    FDQuery1.First;
    for I := 0 to FDQuery1.FieldCount - 1 do
    begin
      if SpaltenName > '' then
        SpaltenName := SpaltenName + '';
        SpaltenName := SpaltenName + '' + FDQuery1.Fields[I].Fieldname;
    end;
    while not FDQuery1.Eof do
    begin
      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;

VG blema

[BadenPower]

Ich hab auf die Schnelle jetzt keinen Fehler gefunden, aber was sollen diese Zeilen denn bewirken, ausser nichts:

Delphi-Quellcode:

if SpaltenName > '' then
        SpaltenName := SpaltenName + '';

Delphi-Quellcode:

if DatenFeld > '' then
         DatenFeld := DatenFeld + '';

[blema]

ok, bei SpaltenName ist unnötig, aber bei DatenFeld, wenn in einem Feld nichts steht, soll das auch in csv dargestellt werden können!

VG blema

[BadenPower]

Zitat:

Zitat von blema (Beitrag 1290643)

ok, bei SpaltenName ist unnötig, aber bei DatenFeld, wenn in einem Feld nichts steht, soll das auch in csv dargestellt werden können!

VG blema

Da wird aber nichts gemacht.

Delphi-Quellcode:

if DatenFeld > '' then
       DatenFeld := DatenFeld + '';

Du hängst an Datenfeld einen leeren String an und daher kannst Du Dir das sparen.

Und dann kommt die nächste Zeile, welche immer ausgeführt wird.

Delphi-Quellcode:

DatenFeld := DatenFeld + '' + FDQuery1.Fields[I].AsString + ' | ';

[jobo]

Zitat:

Zitat von blema (Beitrag 1290638)

Hi, ich habe gerade das in meinem Programm eingebaut, aber es ist immer noch wie unter #13. Kein Fehler aber auch keine SpaltenName.

Ich sehe nicht, wo der Wert Spaltenname ausgegeben wird. Das hast Du wohl vergessen.