ADOTable -> CSV, Spaltenname wird nicht übernommen

[daredd]

Icke bins wieder ;)

Ich möchte nun eine Tabelle aus einer Access-DB via ADOTable in eine CSV-Datei packen. Das ganze klappt ganz gut und sehr schnell, aber leider werden die Spalten_Header (Namen) nicht übernommen, nur die Daten aus den Spalten.

JEMAND eine IDee?

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
var
s1 :TStringList;
tString :String;
ndx :Integer;
begin
  s1 := TStringList.Create;
  AdoTable4.CursorLocation:=clUseClient;
  ADOTable4.Open;
  try
    with ADOTable4 do
    begin
      First;
      while not (Eof) do begin
        //inc(FieldCount);
        tString := '';
        for ndx := 0 to Fields.Count -1 do begin
          tString := tString + '"' + trim(Fields.Fields[ndx].AsString) + '";';
        end;
        s1.Add(tString);
        Next;
      end;
    end;
    s1.SaveToFile('warenbestandXXX.csv'); 
  finally
    FreeAndNil(s1);
    ADOTable4.Close;
  end;
end;

[jobo]

Du schreibst ja auch nirgendwo die Feldnamen weg, sollen die von allein erscheinen?

Hier in DP gibt es massig Antworten zu der Frage, nimm mal die interne Suche.

[p80286]

Delphi-Quellcode:

for ndx := 0 to Fields.Count -1 do 
  tString := tString + '"' + trim(Fields.Fields[ndx].FieldName) + '";';

oder so ähnlich

Gruß
K-H

[Sir Rufo]

Dieser Code erzeugt aber keine CSV-Dateien nach RFC 4180 (nur so nebenbei bemerkt)