Przykładowa baza danych FIREBIRD

[rafalskraba]

Wielkie dzięki zaraz będę pisał kod w/g wskazówek które podałeś.
Pierwsze poprzez zapytanie SQL działało mi poprawnie. Nie wiedziałem jak zapisać dane z komponenty TEdit. Z parametrami powinienem sobie dać radę, natomiast ze względu na moje początki z praca w bazami danych mogę mieć problemy z obsługą błędów.

Możesz mi podać jakieś pomocne informacje ewentualnie literaturę.

Pozdrawiam

Rafał

[rafalskraba]

Zrobiłem zgodnie w Twoimi wskazówkami

Kod: Zaznacz cały

SimpleDataSet1->DataSet->CommandText="insert into test values(:a)";
SimpleDataSet1->Params->ParamByName("a")->AsAnsiString=Edit1->Text;
SimpleDataSet1->Execute();


i dostaję komunikat

InternalDataSet: Cannot preform this operation on an open dataset.

[banita]

jesli uzywasz tego samego obiektu dataset do pobrania danych i do instrukcji insert to najpierw musisz ten dataset zamknac(close()).
jesli podczas dodawania pozycji checsz miec otwarty dataset to musisz skozystac z nowego obiektu.


obiekty operujace na bazach danych zucaja odpowiednie wyjatki w pewnych sytuacjach(np blad polaczenia). musisz sie z nimi zapoznac i podczas proby operowania na danych uwzglednic sytuacje wyjatkowe. (try i catch)

[rafalskraba]

Zrobiłem w ten sposób

Kod: Zaznacz cały

SimpleDataSet1->DataSet->Close();
SimpleDataSet1->DataSet->CommandText="insert into przyklad(ID1) values(:ID1)";
SimpleDataSet1->DataSet->ParamByName("ID1")->Value=2;
SimpleDataSet1->DataSet->Prepared=true;
SimpleDataSet1->Execute();


Pola w tablicy są oznaczone następująco:
1. ID (primary key) integer
2. ID1 integer
3. OPIS char

Po wykonaniu w/w kodu dostaje komunikat

Table unkown PRZYKLAD At line 1, column 13.

Co jeszcze robię nie tak?

[banita]

co masz ustawione dla simpledataset->dataset->commandtype ?

[rafalskraba]

Mam ustawione ctQuery.

[banita]

a czy nazwa tabeli nie musi byc duzymi literami i w "" ?

[rafalskraba]

Jest ok może być również małymi literami. Po prostu zle wpisałem w zapytaniu SQL nazwę tabeli. Ale ze mnie gapa.

[rafalskraba]

Witam
Dane do tabeli wpisuję poprzez parametry - to działa poprawnie.

Kod: Zaznacz cały

DataModule2->SimpleDataSet1->DataSet->Close();
DataModule2->SimpleDataSet1->DataSet->CommandText="insert into test(ID,DYSTANS,INFO) values(:ID,:DYSTANS,:INFO)";
DataModule2->SimpleDataSet1->DataSet->ParamByName("ID")->Value=StrToInt(Edit1->Text);
DataModule2->SimpleDataSet1->DataSet->ParamByName("DYSTANS")->Value=StrToFloat(Edit2->Text);
DataModule2->SimpleDataSet1->DataSet->ParamByName("INFO")->Value=Memo1->Lines->Text;
DataModule2->SimpleDataSet1->Execute();


Jak zrobić aby po wpisaniu danych był aktualizowany komponent odpowiedzialny za prezentację danych DBGrid. W moim przypadku dane są widoczne dopiero po ponownym uruchomieniu programu.
Proszę o jakieś sugestie.

[banita]

zobacz czy obiekt posiada jakas metode reload/refresh. jesli nie to poprzez close/open.

ps.
postaram sie dzis wyslac material o ktorym pisalem w prywatnej wiadomosci.(wypdalo z pamieci;))

[rafalskraba]

Zrobiłem to w ten sposób i nawet działa, nie wiem czy jest to fachowe rozwiązanie ale działa:

KOD sql:   �  UKRYJ  �

KOD sql:   �  POKAŻ  �

DataModule2->SimpleDataSet1->DataSet->Close();
DataModule2->SimpleDataSet1->DataSet->CommandText="insert into test(ID,DYSTANS,INFO) values(:ID,:DYSTANS,:INFO)";
DataModule2->SimpleDataSet1->DataSet->ParamByName("ID")->Value=StrToInt(Edit1->Text);
DataModule2->SimpleDataSet1->DataSet->ParamByName("DYSTANS")->Value=StrToFloat(Edit2->Text);
DataModule2->SimpleDataSet1->DataSet->ParamByName("INFO")->Value=Memo1->Lines->Text;
DataModule2->SimpleDataSet1->Execute();
DataModule2->SimpleDataSet1->DataSet->CommandText="select* from test"; // pomowne wywołanie tabeli
DataModule2->SimpleDataSet1->Execute();
DBGrid1->DataSource->DataSet->Refresh();

Dziękuję za wskazówkę.
Pozdrawiam
Rafał

[rolek]

witam,
odświeżę temat. Bardzo pomogły mi tutaj wiadomości. Jednak wstawiania danych do bazy zupełnie nie rozumiem (jakich użyć komponentów i jak ich użyć to jest pytanie).

Konkretnie:
1. Mam baze w firebirdzie. Nazwa bazy: Adresy. Są trzy kolumny: Nazwisko, adres, telefon.
2. Mam połączenie z bazą, na Formie wyświetla mi się zawartość bazy i jest ok.
3. Chcę zrobić trzy pola (formularz) aby wprowadzać kolejne rekordy do bazy. W pola wpisywałbym dane a przycisk "dodaj kontakt" wprowadzałby dane do bazy.
4. Fajnie byłoby poźniej to wydrukować.

Jeśli załapię schemat to do moich potrzeb zupełnie by mi to wystarczyło. podsyłam zdjęcie formy jakie utworzyłem.

Jak byście się do tego zabrali? Bardzo proszę o pomoc. dziękuję.

[rafalskraba]

Witaj rolek.
Jednym ze sposobów dodawania rekordów do bazy danych jest wykorzystanie polecenia języka sql INSERT INTO oraz parametrów.
Dodaj niewizualny komponent SQLDataSet i podepnij go pod SQLConnection1.
W twoim przypadku wyglądał by to w ten sposób:

KOD mysql:   �  UKRYJ  �

KOD mysql:   �  POKAŻ  �

SQLDataSet1->CommandText="INSERT INTO adresy(Nazwisko,Adres,Telefon) VALUES(:Nazwisko1,:Adres1,:Telefon1)";
SQLDataSet1->ParamByName("Nazwisko1")->Value=Edit1->Text;
SQLDataSet1->ParamByName("Adres1")->Value=Edit2->Text;
SQLDataSet1->ParamByName("Telefon1")->Value=Edit3->Text;
Form1->SQLDataSet1->ExecSQL();

Musisz również uwzględnić typy danych jakie masz zadeklarowany w Twojej tablicy i dokonać ewentualnych konwersji.
W przypadku wydrukowania danych zamieszczonych w tablicy proponuje wykorzystać komponenty z palety Rave ewentualnie w starszych wersjach środowiska komponent QuickReoprt.

[rolek]

dzięki wielkie rafalskraba ! Zabieram się do pracy. Trochę zmęczyło mnie szukanie "po ciemku". Zobaczę co mi z tego wyjdzie teraz.

[rolek]

witam, chwilę mnie nie było.

Zrobiłem tak jak pisał rafalskraba i zadziałało. Dane dodają się do bazy ale jest znany problem z odswieżaniem danych w gridzie zaraz po kliknięciu na przycisk (w nim opisałem dodawanie do bazy). Probowałem to jakoś uruchomić ale nijak nie działa. Poradzilibyście cos w moim przypadku? Gdzie wpisać odpowiedni kod? Dzięki wielkie i sorki za być może błachy problem.