Pytanie o Delphi

[P_a_w_e_ł]

Czy moglibyście mi podpowiedzieć jak najłatwiej wrzucić wszystkie nazwiska z bazy danych (Paradox 7) do ComboBox-a

Zakładamy ze baza wyglada tak:

 

ID Nazwisko

1 Kowalski

2 Nowak

3 Malinowski

.

.

.

.

[pit]

najprosciej chyba tak ...

nazwa_tabelki.first;for i:=0 to nazwa_tabelki.recordcount-1 do     begin    combobox1.items.add(nazwa_tabelki.FieldByName('Nazwisko').asstring);    end;

[P_a_w_e_ł]

Dzieki za odpowiedz ale mam jeszcze pytanie,

czy nazwa tabeli to nazwa bazy danych??

[pit]

hint: Ttable

 

hint2: F1 ;]

[P_a_w_e_ł]

Mozesz mi to napisać łopatologicznie?:roll: bo niebardzo rozumiem :(

[P_a_w_e_ł]

Nikt mi nie pomoże :?: :(

[pit]

nie mozna prosciej tego wytlumaczyc ....

mam ci napisac wspolrzedne gdzie masz po kolei klikac ?

[falconjp]

Jezeli już to powinno być tak

 

Kod:

 

nazwa_tabelki.first;

for i:=0 to nazwa_tabelki.recordcount-1 do

begin

combobox1.items.add(nazwa_tabelki.FieldByName('Nazwisko').asstring);

nazwa_tabelki.next;

end;

 

bez tej lini

nazwa_tabelki.next;

bedzie dodawał tylko pierwszy rekord n raz

 

Powodzenia

[pit]

@falconjp zanim kogos poprawisz to najpierw sam sprawdz.

[falconjp]

Nie za bardzo rozumiem co w moim kodzie jest żle. Proszę o wyjaśnieni.

Po wykonakie kodu Pana pita efekt w combobox np. będzie taki

 

Kowalski

Kowalski

Kowalski

Kowalski

....

gdzie nazwisko Kowalski występuje tylko w pierwszym rekordzie bazy

a chyba nie oto dokładnie chodziło

[pit]

a fakt .... zapomnialem ze przerabialem sobie troche komponent Ttable ;]

 

w defaultowym bedzie tak jak mowi falconjp

 

zwracam honor ;]

[P_a_w_e_ł]

mam ci napisac wspolrzedne gdzie masz po kolei klikac ?

Chyba bede musiał poprosić :oops: albo przynajmniej mnie naprowadz

[falconjp]

No dobra skuszę sie na instrukcję obsługi.

Zakładam ze znajomość obslugi baz danych w Delphi jezt zerowa

 

1. Znajdz komponent TTable w różnych wersjach będzie na różnych zakładkach w 6 jest na zakładce BDE

2.Ustaw właściwości DatabaseName oraz TableName

 

3.Właściwośc Active na true

Jezli nie wyskoczy nic to oznacza ze dobrze ustawiles właściwości

w wlasciwosci Name masz nazwę komponentu powinna być Table1

 

potem wstaw ten kod g

 

Table1.first;

for i:=0 to Table1.recordcount-1 do

begin

combobox1.items.add(Table1.FieldByName('Nazwisko').asstring);

Table1.next;

end;

[P_a_w_e_ł]

Wielkie dzieki. Teraz tylko niemoze znalesc tej bazy :? gdzie ona powinna sie znajdowa :?:

[P_a_w_e_ł]

Nie zawracam wam juz z tym głowy, moze sam sobie poradze. Dzieki za pomoc 8)