Datenbankeinträge mit Combobox auflisten und auswählen?

[Daiserja]

Hallo,

wie kann ich eine bestimmte Spalte einer Tabelle in einer Combobox darstellen und dann einen Eintrag auswählen lassen?

Bei mir steht in derCombobox immer nur ein Datensatz, egal, wieviel in der Tabelle steht....

Was mache ich falsch???

Danke
Andreas

[Matze]

Hi!
Herzlich willkommen in der DP!

Was du falsch machst weiß ich nicht, woher auch?
Kannst du deinen bisherigen Code bitte auch noch posten, dann fällt's und allen leichter.

[Anänger]

du wirst wahrscheinlich den Befehl 'FieldByName' benutzen oder?

Hättest du eigentlich auch in deine Frage einbeziehen können!

Naja,
In diesem Befehl überträgt er nur die Zeile, die gerade (ausgewählt/Markiert) ist. ansonsten nimmt er die erste.

Ich weiß nicht, ob es einen richtigen Befehl dafür gibt,
aber ich würde folgende Schleifenanweisung benutzen: 8)

Delphi-Quellcode:

for I:=0 to A do
begin
Table1.RecNo:=I; //wählt die Zeile im Table aus
Combobox1.Items[I]:=Table1.FieldByName('Feldname').AsString;
end;

A: ist die Zahl der Einträge in der Tabelle.(wie man die herausfindet
habe ich noch nicht herausgefunden )

Ich habe den Quelltext nicht ausprobiert, könnte aber klappen.

[Daiserja]

Sorry, hätte was mehr schreiben können.

Code habe ich noch keinen programmiert. Wollte alles über die Komponenten regeln...

Also, ich habe eine Tabelle (User) angelegt und mit Daten gefüllt. Eine Spalte heißt 'Name', die soll später angezeigt werden.

Dann habe ich eine Datenbankkomponente eingerichtet, eine Tabellenkomponente mit der Tabelle verknüpft und eine Datasource angelegt.

Wenn ich nun eine DBGrid in mein Projekt einfüge und dan die Datasource anbinde, kann ich alle Datensätze sehen.

Jetzt möchte ich aber kein DBGrid haben, sondern eine "DropDown Box", in der alle Tabelleneinträge der Spalte "Name" zu sehen sind. Wenn ich das versuche zeigt mir die DBComboBox nur den ersten Eintrag und beim klicken auf den Pfeil öffnet sich keine weitere Liste...

Hoffe die Schilderung war nicht zu umständlich....

[grayfox]

hallo anänger!

for I:=0 to A do begin und
Combobox1.Items[i]:= Table1.FieldByName('Feldname').AsString) sehr gefährlich, was du da tust
--> wenn kein item in der combobox angelegt ist, kannst ihm auch keinen eintrag
zuweisen...

versuchs lieber so:

Delphi-Quellcode:

while not table1.eof do begin
  Combobox1.Items.Add(Table1.FieldByName('Feldname').AsString);
  table1.[b]next[/b]  <-- ganz wichtig, sonst tritt das programm beim auslesen auf der 
                          stelle und es liest morgen auch noch beim ersten datensatz herum :)
end;

btw: die anzahl der datensätze im table bekommst du mit

Code:

table1.recordcount

angezeigt.

mfg, stefan

[grayfox]

hallo andi!

Code:

Was mache ich falsch???

du verwendest eine komponente, die für dein vorhaben gänzlich ungeignet ist
die DBComboBox dient dazu, um einträge aus einer liste in tabellenfelder zu übernehmen,
aber nicht um tabellenfelder anzuzeigen.

für dein vorhaben wird dir nicht viel anderes übrigbleiben, als durch die tabelle zu
iterieren und die einträge 'zu fuss' zu übernehmen.

ps: ich hoffe, du hast vor- & zuname in getrennten feldern, sonst wird es beim suchen
haarig

mfg, stefan

[Chris1986]

Zitat von grayfox:

versuchs lieber so:

Delphi-Quellcode:

while not table1.eof do begin
  Combobox1.Items.Add(Table1.FieldByName('Feldname').AsString);
  table1.[b]next[/b]  <-- ganz wichtig, sonst tritt das programm beim auslesen auf der 
                          stelle und es liest morgen auch noch beim ersten datensatz herum :)
end;

mfg, stefan

ich würde es genauso machen wie grayfox. Nimm statt einer DBCombobox eine einfache Combobox.
Btw. ganz wichtig am Anfang:
table1.first Sonst fängt dein Prog garnicht erst an

[Sharky]

Hai Daiserja,

verwende dafür doch einfach eine DBLockupComboBox.

[Anänger]

Hallo grayfox

Ich habe eine Mögliche Fehlerquelle in deinem SourceCode entdeckt

Ich schreibe ihn einfach nochmal komplett:

Delphi-Quellcode:

Table1.First;
while not table1.eof do begin
  Combobox1.Items.Add(Table1.FieldByName('Feldname').AsString);
  table1.next;

(Man sollte, vorher auf die erste Zeile zugreifen )