SQL-Abfrage: Alle Werte aus einer Spalte

[Jasocul]

Einmal komplett:

Delphi-Quellcode:

  qry_Speichern.Close;
  qry_Speichern.ParamByName('SpeichernDatenbankname').AsString := edtDatenbankname.Text;
  qry_Speichern.ParamByName('SpeichernTabellenname').AsString := edtTabellenname.Text;

  with qry_Speichern do begin
    open;
    str := '';
    while not eof do begin
      str := str + ';' + Fields[0].AsString;
      next;
    end;
    if length(str) > 0 then
      delete(str,1,1);
    dbMetaDaten.Close;
    dbMetaDaten.Open;
  end;
  Memo1.Text := str;

Und "str" ist nicht gut als Variable, weil es eine gleichlautende Funktion in Delphi gibt.

[DF.A]

ähm, ich glaube ich habe vielleicht irgendwie das problem nicht ganz richtig erklärt. Also Datenbankname ist ein Feld in einer Tabelle (Tabellenname auch). Ich möchte jetzt auf diese Werte den Wert in einem anderen Feld nachfragen. Da die Kombination zwischen Datenbankname und Tabellenname aber öfters vorkommt gibt es dazu mehrer Feldnamen (auch ein Feld in der Tabelle). Ich möchte alle Feldnamen die zu der Kombination von Tabellenname und Datenbanknamen passt ausgegeben bekommen und nicht nur den letzten Wert.

[WoGe]

Dann must du den Code von Jasocul so umbauen:

Delphi-Quellcode:

  qry_Speichern.Close;
  qry_Speichern.ParamByName('SpeichernDatenbankname').AsString := edtDatenbankname.Text;
  qry_Speichern.ParamByName('SpeichernTabellenname').AsString := edtTabellenname.Text;

  with qry_Speichern do begin
    open;
    Memo1.clear;
    while not eof do begin
      Memo1.Lines.add(FieldByName('feldname').asString;
      next;
    end;
    dbMetaDaten.Open;
  end;

mfg
wo

[DF.A]

ok, habs jetzt endlich hingekrieg. ziemlich blöde fehler. vielen dank für eure tipps :-)