Tabellendaten --> DBListBox ?

[Vader]

hallo,

ich möchte die gespeicherten daten in meiner tabelle ( zb.filme.db ) in eine DBListBox über
ein buttonclickereigniss auslesen !
wie geht das ?
mfg vader

[Quake]

Dann verwende einfach eine DBLookupListBox.

[Vader]

ja,aber wie soll ich die gespeicherten daten in meiner tabelle ( zb.filme.db ) in eine DBLookupListBox über
ein buttonclickereigniss auslesen !
mfg vader

[mkinzler]

Wie meinst du auslesen? Den markierten Eintrag? .SelectedItem

[Vader]

ich meiner tabelle stehen nur kinofilme ca.50 verschiedene namen, die ganzen möchte ich in ein
DBListBox oder DBLookUpListBox anzeigen lassen bei einen buttonclickereigniss !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

table1....


DBListBox1.....

end;

end.

mfg vader

[webcss]

Delphi-Quellcode:

procedure myForm.ButtonClick(Sender: TObject);
begin
   table1.First;
   ListBox1.Clear;
   Listbox1.Items.BeginUpdate;
   while not table1.Eof do begin
      ListBox1.Items.Add(table1.Fields[0].AsString);
      table1.next;
   end;
   ListBox1.Items.EndUpdate;
   ListBox1.ItemIndex := 0;
end;

[mkinzler]

Bei Verwendung einer DBLookupListbox kann die Tabelle auch mit .ListSource an die ListBox gebunden werden. Es wird dann das .ListField bezeichnete Feld in der Liste eingetragen.

[Vader]

hallo,
danke, jetzt bin ich wieder einen schritt weiter zum verständniss datenbankprogrammierung, bevor ich mir
ein buch kaufe !
mfg vader

[Vader]

webcss schreibt:

Delphi-Quellcode:

procedure myForm.ButtonClick(Sender: TObject); 
begin 
   table1.First; 
   ListBox1.Clear; 
   Listbox1.Items.BeginUpdate; 
   while not table1.Eof do begin 
      ListBox1.Items.Add(table1.Fields[0].AsString); 
      table1.next; 
   end; 
   ListBox1.Items.EndUpdate; 
   ListBox1.ItemIndex := 0; 
end;

wie muß ich den code jetzt abändern wenn meine tabelle jetzt 2 felder hat ( 1.feld ist filmname,
2.feld ist datum des filmes ), geht das noch mit listbox das er mir die 2 daten in einem item anzeigt ?
mfg vader

[mkinzler]

Einfach das ersetzen :

Delphi-Quellcode:

ListBox1.Items.Add(table1.Fields[0].AsString);

durch

Delphi-Quellcode:

ListBox1.Items.Add(table1.Fields[0].AsString+', ' +table1.Fields[1].AsString);