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?

zusammenfalten · markieren

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;

ADOTable -> CSV, Spaltenname wird nicht übernommen

ADOTable -> CSV, Spaltenname wird nicht übernommen

Forumregeln