SQL Datensätze in eine Variable schreiben, ohne FieldByName.

[Zyro]

..zu wissen.

Ich habe eine Select abfrage. Nun will ich einen Datensatz nach dem anderen in eine csv datei schreiben. Nun weiß ich aber nicht, wie ich das machen kann, ohne FieldByName zu benutzen. Field by Name kann ich deswegen nicht benutzen, weil die Funktion variabel sein soll. Sie soll mit jeder Tabelle zusammen arbeiten.

[Gollum]

Hallo,

mit FieldCount erhälst Du die Anzahl der Spalten einer Query, die Du dann mit Fields[Zaehlvariable].AsString abfragen kannst:

Delphi-Quellcode:

var i:Integer;
    s:String;
...
...
with MyQuery do
begin
  Close;
  Text:='SELECT * FROM MyTabelle';
  Open;
  if (RecordCount>0) then
  begin
    while not Eof do
    begin 
      s:='';
      for i:=0 to FieldCount-1 do s:=s+Fields[i].AsString+';';
      ShowMessage(s);
      Next;
    end; // while
  end; // if
end; // with

[Touchdown]

So wie du im Select-Teil deine Tabellenfelder anordnet, so kannst du sie auch über den Index ermitteln.

Da du in der Regel weisst was du da gemacht hast, gibt es auch keine Probleme. Sonst würde ich immer FieldbyName bevorzugen.