sql query

[value is NULL]

Hi Leute

mit folgender Funktion

Delphi-Quellcode:

procedure DoQuery(const sQuerySQL : string; DestList: TStrings);
begin
  DestList.BeginUpdate;
  try
    DestList.Clear;
    oTmpQry := TADOQuery.Create(nil);
    try
      try
        oTmpQry.Connection := Conn;
        oTmpQry.CommandTimeout := 5000;
        oTmpQry.SQL.Text := sQuerySQL;
        oTmpQry.Open;
        while not oTmpQry.eof do begin
          DestList.add(oTmpQry.Fields[0].asString);
          oTmpQry.Next;
        end;
      except
        on e : exception do begin
          Writeln(e.message);
        end;
      end;
    Finally
      oTmpQry.free;
    end;
  finally
    DestList.EndUpdate;
  end;
end;

bekomme ich immer die erste Spalte eines results zurück.
Was müsste ich tun damit ich wirklich alles angezeigt bekomme?

Vielen Dank im Voraus

LG
Steffen

[Medium]

Die Frage ist eher, in welcher Form du das nachher brauchst. In einer TStrings gibt's ja nur die eine Dimension, ergo eine Spalte.

[Perlsau]

Zitat von value is NULL:

Delphi-Quellcode:

 ...
        while not oTmpQry.eof do begin
          DestList.add(oTmpQry.Fields[0].asString);
          oTmpQry.Next;

Fields[0] ist nunmal immer nur die erste Spalte ...

[value is NULL]

hm... im Endeffekt brauche ich alles was retour kommen kann :/

[Medium]

Schön und gut, aber wo und in welcher Form? Wenn dein SQL Statement ein "SELECT * FROM ..." ist, dann ist im Resultset der Querykomponente bereits alles drin.

[taveuni]

Zitat von value is NULL:

hm... im Endeffekt brauche ich alles was retour kommen kann :/

Ja dann iteriere doch einfach noch durch die Fields.

[value is NULL]

Irgendwie steh ich am schlauch xD

naja wenn ich ein select * FROM ..... abschieße bekomme ich ja immer so ne schöne Tabelle retour (oder auch nicht)
genau die will ich praktisch als result in meiner Stringlist :/

LG
Steffen

[Medium]

Und daran scheitert die Idee: Eine Stringlist ist eben nur eine Liste, keine Tabelle. Es ist quasi immer nur eine Spalte. Wenn du uns aber weiterhin vorenthälst WORIN du die nachher WIE weiterverarbeiten musst, kann man dir keine Alternative anbieten.

[value is NULL]

hm..

Vorenthalten wollte ich gar nichts... Habe mir praktisch ein kleines CommandLine Utility gemacht, indem man diverse "Commands" abschießen kann. So wie ein CMD nur viiiiiiiiiiiiiiiiel kleiner.

mit diesem Utility kann ich mich zu einer MSSQL Datenbank verbinden. Jetzt möchte ich hier einbauen, das man mit zB querydb <command> einen SQL Query abschießen kann. Das Ergebnis soll dann schön lesbar ausgegeben werden.

Im Prinzip habe ich das alles... bis auf die schöne Ausgabe :/

LG

[Medium]

Delphi-Quellcode:

procedure DoQuery(const sQuerySQL: string);
var
  i: Integer;
begin
    oTmpQry := TADOQuery.Create(nil);
    try
      try
        oTmpQry.Connection := Conn;
        oTmpQry.CommandTimeout := 5000;
        oTmpQry.SQL.Text := sQuerySQL;
        oTmpQry.Open;
        while not oTmpQry.eof do
        begin
          for i := 0 to oTmpQry.Fields.Count-1 do
          begin
            Write(oTmpQry.Fields[i].asString+#9);
          end;
          oTmpQry.Next;
          Writeln;
        end;
      except
        on e : exception do begin
          Writeln(e.message);
        end;
      end;
    Finally
      oTmpQry.free;
    end;
end;

So die Ecke? Lässt halt die Stringliste als Ausgabeparameter weg, und wuppert sofort alles auf die cmd.