Zitat von
cell:
ich will mit dem quelltext die daten von der datenbank in eine combobox eintragen
Delphi-Quellcode:
begin
frmmesswertauswahl.cbotestreihe.Items.Clear;
with DataModule1
do
begin
Query.SQL.Text:= selectsql('
Testreihe','
Testreihe','
Testnummer=' +frmmesswertauswahl.lblnummer.Caption,'
');
Query.Open;
while not Query.Eof
do
begin
frmmesswertauswahl.cbotestreihe.Items.Add(
Query.Fields[0].AsString);
Query.Next;
end;
Query.Close;
end;
end;
end;
is ist schon einmal gegangen aber warum jetzt nichtmehr ??seht ihr einen Fehler??
Versuch das mal so...
Delphi-Quellcode:
begin
frmmesswertauswahl.cbotestreihe.Items.Clear;
with DataModule1
do
begin
if Query.Open
then
Query.close;
Query.SQL.Clear;
Query.SQL.Text := selectsql('
Testreihe', '
Testreihe', '
Testnummer=' + frmmesswertauswahl.lblnummer.Caption, '
');
//achte darauf, dass Caption auch einen Wert hat
Query.Open;
while not Query.Eof
do
begin
frmmesswertauswahl.cbotestreihe.Items.Add(
Query.Fields[0].AsString);
Query.Next;
end;
Query.Close;
end;
end;
Ansonsten fällt mir spontan kein Fehler auf...
Oder gibt der irgendnen Fehler aus, das wär nämlich wichtig zu wissen...