Entwickler-Ecke

Datenbanken - Wert aus dem Combobox lesen und im Memofeld anzeigen lassen


acnut - Mo 01.02.10 17:09
Titel: Wert aus dem Combobox lesen und im Memofeld anzeigen lassen
ein wert soll aus dem combobox gelesen werden und dann soll das gewählte item im memofeld mit "mehr infos ausgegeben werden".
aber wie mach ich das,dass die infos NUR für das gewählte item angezeigt wird und nicht wie jetzt von allen feldern?

hier ist mein bisheriger code:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 ADOQuery1.close;
 ADOQuery1.SQL.clear;



ADOQuery1.SQL.Add('SELECT * FROM Tabelle1');
 ADOQuery1.open;

  While not ADOQuery1.Eof do begin
    Memo1.Lines.Add(ADOQuery1.FieldValues['Adminlogin','Homepage','Admin Pass']);

    ADOQuery1.Next;
 end;

 Adoquery1.close;
end;



mfg


ffgorcky - Mo 01.02.10 18:36

user profile iconacnut hat folgendes geschrieben Zum zitierten Posting springen:
ein wert soll aus dem combobox gelesen werden und dann soll das gewählte item im memofeld mit "mehr infos ausgegeben werden".
aber wie mach ich das,dass die infos NUR für das gewählte item angezeigt wird und nicht wie jetzt von allen feldern?


Dafür müsstest Du doch Deine Abfrage eigentlich nur so erweitern - oder?:

SQL-Anweisung
1:
SELECT * FROM Tabelle1 WHERE DeinZuBestimmendesItem=ComboBox1.Value                    

Wobei das "ComboBox1.Value" natürlich kein direkter SQL-Befehl mehr ist...
also schreibe ich Dir das dann noch mal so hin:

Delphi-Quelltext
1:
ADOQuery1.SQL.Add('SELECT * FROM Tabelle1 WHERE DeinZuBestimmendesItem='+ComboBox1.Value);                    


acnut - Mo 01.02.10 20:42

wie bekomm ich deinzubestimmendeswert?
so vllt?:

Delphi-Quelltext
1:
ADOQuery1.SQL.Add[sql:1:c53c2e967e]('SELECT * FROM Tabelle1 WHERE ComboBox1.Items[ComboBox1.ItemIndex]='+combobox1.value)[/sql:1:c53c2e967e];                    



mfg


acnut - Di 02.02.10 10:26

HILFEE!!


acnut - Di 02.02.10 11:05

habs jetzt so gelöst :

Delphi-Quelltext
1:
ADOQuery1.SQL.Add('SELECT * FROM Tabelle1 WHERE Homepage='+quotedstr(combobox1.items[combobox1.ItemIndex]));