Query Ergebniss als Datei speichern oder Drucken

[Sharky]

Zitat von renekr:

....weißt du wie oder was es da speichert?....

Mit dieser Methode wird die Ergebnissmenge als XML gespeichert.

Die Anzahl deiner Felder ist egal wenn man es in einer Schleife macht

Hier mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl  : TStringList;
  foo : String;
  ndx : Integer;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT * FROM test';
  ADOQuery1.Open;    
  sl := TStringList.Create;
  try
    While not(ADOQuery1.Eof) do  // Schleife für alle Datensätze
    begin
      foo := '';
      for ndx := 0 to Pred(ADOQuery1.FieldCount) do  // Schleife für alle Felder
      begin
        foo := foo + ADOQuery1.Fields[ndx].AsString;  // Feld an String hängen
        if (ndx < Pred(ADOQuery1.FieldCount)) then   // wenn nicht das letze Feld...
        begin
          foo := foo + ';';  // ... dann Trennzeichen einfügen
        end;
      end;
      sl.Add(foo); // String in TStringList
      ADOQuery1.Next; // Nächsten Datensatz
      Application.ProcessMessages;
    end;
    sl.SaveToFile('c:\blubb.csv');  // Speichern.
  finally
    sl.Free;
  end;
  ADOQuery1.Close;
  ShowMessage('*blubb*');
end;