Ĺadny brzuch
Witam, mam komponent ComboBox1, opcje są wczytywane z tabeli (ok. 50 pozycji), co mam zrobić żeby po wybraniu jednej z opcji w drugim ComboBox2 pokazały się opcje specyficzne dla tej opcji co wybierałem z ComboBox1, dodam że wszystki opcje które chce wczytać do ComboBox2 mam w jednej tabeli (I kolumna tej tabeli zawiera takie same nazwy jak ComboBox1, natomiast druga to ta co chce wyświetlić w ComboBox2). Dla każdego elementu z ComboBox1 jest przypożadkowanych ok. 5 elementów, które chce wyświetlić w ComboBox2.
A drugie pytanie jak zrobić, żeby po wybraniu opcji z ComboBox pokazały się opcje specyficzne dla wybranego elementu w DBGrid, czyli tak samo jak wyżej tylko do DBGrid.
I trzecie: Jak po kliknięciu na jeden z wpisów w DBGrid wyświetliło się nowe okno z opisem, takim jak był w bazie tylko że zamiast w komponencie DBGrid wyświetlały się w Edit'ach.
Wiem, że to troszkę pokręciłem, ale mam nadzieje, że mnie zrozumiecie.
Do pierwszego zrobiłem tak:
procedure Tokno.marka_oChange(Sender: TObject); var zapytanie:string; begin zapytanie:='SELECT * FROM model WHERE MARK='+marka_o.text+';'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(zapytanie); Query1.Open; if marka_o.Text=zapytanie then begin query1.Active:=true; query1.First; while marka_o.Text=zapytanie do begin model_o.Items.add(query1.fieldbyname('tytul').asString); query1.Next; end; end; end;[/QUOTE] Probowałem takie zapytania: [code] zapytanie:='SELECT * FROM model WHERE MARK='+marka_o.text+'; '; zapytanie:='SELECT * FROM model WHERE MARK='+marka_o.text+''; zapytanie:='SELECT * FROM model WHERE MARK=%'+marka_o.text+'%; '; zapytanie:='SELECT * FROM model WHERE MARK LIKE '+marka_o.text+'; '; zapytanie:='SELECT * FROM model WHERE MARK LIKE '+marka_o.text+''; zapytanie:='SELECT * FROM model WHERE MARK LIKE %'+marka_o.text+'%; ';
Program się kompiluje, ale po kliknięciu w combobox1, wyskakuje mi błąd:
Project Katalog.exe raised exception class EDBEngineError with message 'Invalid field name IMIE'. Process stopped.
Bardzo proszę o odpowiedź, bardzo mi zalezy.
Użytkownik d_hustler edytował ten post 01 listopad 2005, 11:18
Program się kompiluje, ale po kliknięciu w combobox1, wyskakuje mi błąd:
Project Katalog.exe raised exception class EDBEngineError with message 'Invalid field name IMIE'. Process stopped.
Odwołujesz się do pola IMIE, którego nie masz w tabeli.
Już wszystko jest ok. Poprostu złe było zapytanie :)
Ale dzięki, za zainteresowanie Oxi
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
A drugie pytanie jak zrobić, żeby po wybraniu opcji z ComboBox pokazały się opcje specyficzne dla wybranego elementu w DBGrid, czyli tak samo jak wyżej tylko do DBGrid.
I trzecie: Jak po kliknięciu na jeden z wpisów w DBGrid wyświetliło się nowe okno z opisem, takim jak był w bazie tylko że zamiast w komponencie DBGrid wyświetlały się w Edit'ach.
Wiem, że to troszkę pokręciłem, ale mam nadzieje, że mnie zrozumiecie.
Do pierwszego zrobiłem tak:
procedure Tokno.marka_oChange(Sender: TObject); var zapytanie:string; begin zapytanie:='SELECT * FROM model WHERE MARK='+marka_o.text+';'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add(zapytanie); Query1.Open; if marka_o.Text=zapytanie then begin query1.Active:=true; query1.First; while marka_o.Text=zapytanie do begin model_o.Items.add(query1.fieldbyname('tytul').asString); query1.Next; end; end; end;[/QUOTE] Probowałem takie zapytania: [code] zapytanie:='SELECT * FROM model WHERE MARK='+marka_o.text+'; '; zapytanie:='SELECT * FROM model WHERE MARK='+marka_o.text+''; zapytanie:='SELECT * FROM model WHERE MARK=%'+marka_o.text+'%; '; zapytanie:='SELECT * FROM model WHERE MARK LIKE '+marka_o.text+'; '; zapytanie:='SELECT * FROM model WHERE MARK LIKE '+marka_o.text+''; zapytanie:='SELECT * FROM model WHERE MARK LIKE %'+marka_o.text+'%; ';
Program się kompiluje, ale po kliknięciu w combobox1, wyskakuje mi błąd:
Project Katalog.exe raised exception class EDBEngineError with message 'Invalid field name IMIE'. Process stopped.
Bardzo proszę o odpowiedź, bardzo mi zalezy.
Użytkownik d_hustler edytował ten post 01 listopad 2005, 11:18
Program się kompiluje, ale po kliknięciu w combobox1, wyskakuje mi błąd:
Project Katalog.exe raised exception class EDBEngineError with message 'Invalid field name IMIE'. Process stopped.
Odwołujesz się do pola IMIE, którego nie masz w tabeli.
Już wszystko jest ok. Poprostu złe było zapytanie :)
Ale dzięki, za zainteresowanie Oxi