Einzelnen Beitrag anzeigen

Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.341 Beiträge
 
Delphi 11 Alexandria
 
#9

Re: SQL-Abfrage: Alle Werte aus einer Spalte

  Alt 28. Jul 2005, 10:45
Zitat von DF.A:
ok, also so mach ichs

Delphi-Quellcode:
Datenbankname := edtDatenbankname.Text;
  Tabellenname := edtTabellenname.Text;
  qry_Speichern.ParamByName('SpeichernDatenbankname').AsString := Datenbankname;
  qry_Speichern.ParamByName('SpeichernTabellenname').AsString := Tabellenname;
  qry_Speichern.ExecSQL;
  qry_Speichern.Close;

  with qry_Speichern do begin
        open;
        while not eof do begin
          str := ''; // Hihi. Musst du vor die while-Schleife schreiben.
          for j := 0 to Fields.Count -1 do begin
            str := str + ';' + Fields[j].AsString;
          end;
        next;
      end;
      dbMetaDaten.Close;
      dbMetaDaten.Open;
    end;
    Memo1.Text := str;
in der Abfrage steht halt das besagte SQL-Statement.
Peter
  Mit Zitat antworten Zitat