[es] - Borland .GDB baza podataka !

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
91.148.83.*

+18 Profil

^{25.09.2009. u 14:32 - pre 177 meseci}

Na Structure paleti mi ispred DataSource-a stoji upitnik????
Jel mozes samo da mi objasni sta bi u stvari trebao da radi ovaj kod.
Izvini, ali sta da radim kad je ovo potpuno novo za mene.

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{25.09.2009. u 14:39 - pre 177 meseci}

Citat:

mish_ns: Na Structure paleti mi ispred DataSource-a stoji upitnik????
Jel mozes samo da mi objasni sta bi u stvari trebao da radi ovaj kod.
Izvini, ali sta da radim kad je ovo potpuno novo za mene.

Ne razumijem gdje ti stoji upitnik? Baci printscreen ako možeš. Ili stavi ovdje cijeli projekt.

IBDataSet.Open je naredba kojom otvaraš dataset, tj. izvršavaš upit prema bazi, u tvojem slučaju "SELECT * FROM NEKATABLICA". Da bi prikazao podatke u DBGrid-u moraš otvoriti dataset, zato moraš na FormOpen staviti IBDataSet.Open.

IBDataSet.Insert je naredba kojom unosiš novi podatak u tablicu

IBDataSet.Edit znači da želiš popraviti podatak u tablici

IBDataSet.Post znači da se snime promjene u dataset

Zaboravio sam ti reči, kada klikneš desnim na DBGrid , ColumnsEditor ond amoraš za svako polje koje dodaš (Add new) sa lijeve strane upisati koje mu je pripadajuće polje u bazi (FieldName).

Još jednu stvar sam zaboravio. Na IBDataBase moraš napisati (klikni na tri točkice, pa će ti doći dialog gdje odabereš bazu) putanju do baze i onda ti mora biti Connected = True. Inače se ne radi tako, ali ti sada napravi tako.

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
91.148.83.*

+18 Profil

Re: Borland .GDB baza podataka !

^{25.09.2009. u 14:47 - pre 177 meseci}

ok evo projekta...

Prikačeni fajlovi

baza.rar - 360.47k

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{25.09.2009. u 14:56 - pre 177 meseci}

Zakaci i bazu ovdje.

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{25.09.2009. u 16:29 - pre 177 meseci}

Evo ti jedan primjer sa osnovnim operacijama. Ovo je jako pojednostavljeno. Možda mi se negdje potkrala greška, ako je sorry...

p.s. instaliraj si Firebird bazu.

Prikačeni fajlovi

primjer.rar - 44.25k

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
91.148.80.*

+18 Profil

Re: Borland .GDB baza podataka !

^{28.09.2009. u 06:45 - pre 177 meseci}

Ok, pogledacu tvoj primer pa cu pokusati da uradim nesto slicno sam...
Evo i baze za moj primer...

Prikačeni fajlovi

TEST.GDB - 792k

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
91.148.95.*

+18 Profil

Re: Borland .GDB baza podataka !

^{29.09.2009. u 18:30 - pre 177 meseci}

Uspeo sam da uradim na ovaj nacin. Hvala captPicard

Jel mi moze sad neko reci na koji nacin mogu u kodu da postavljam upite????

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{29.09.2009. u 18:50 - pre 177 meseci}

Citat:

mish_ns: Uspeo sam da uradim na ovaj nacin. Hvala captPicard

Jel mi moze sad neko reci na koji nacin mogu u kodu da postavljam upite????

Code:
with IBDataSet1 do
begin
  Close;
  SelectSQL.Text := 'select nesto, nestodrugo from tablica where '+
          'polje = :parametar and '+
          'neko_drugo_polje = :parametar_drugi';
  Params[0].AsString := Edit1.Text;
  Params[1].AsString := neka_varijabla;
  Prepare;
  Open;
end;

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
91.148.88.*

+18 Profil

Re: Borland .GDB baza podataka !

^{30.09.2009. u 12:28 - pre 177 meseci}

Uspeo sam da uradim insert podataka u bazu, ali ne mogu nikako da sortiram podatke. Pokusao san na klik dugmeta da sortiram podatke u tabeli po ID-u.
Probao sam ovako ali ne uradi se nista.

Code:

procedure TForm1.Button6Click(Sender: TObject);
begin
IBDataSet1.Close;
with IBQuery1 do
  begin
     SQL.Clear;
     Close;
     SQL.Text:='SELECT * FROM POTROSAC ORDER BY ID DESC';
     Open;
  end;
  IBDataSet1.Open;
end;

Ne znam u cemu je problem???

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{30.09.2009. u 13:06 - pre 177 meseci}

Citat:

mish_ns: Uspeo sam da uradim insert podataka u bazu, ali ne mogu nikako da sortiram podatke. Pokusao san na klik dugmeta da sortiram podatke u tabeli po ID-u.
Probao sam ovako ali ne uradi se nista.

Code:

procedure TForm1.Button6Click(Sender: TObject);
begin
IBDataSet1.Close;  //ovo ti nema smisl. Tu zatvraš Dataset1
with IBQuery1 do //tu radiš sa IBQuery, a tebi je pretpostavljam IBDataset source za DBGrid a ne IBQuery
//prema tome moraš taj upit koji si napisao zadati IBDatasetu koji ti je source od dbgrid-a
  begin
     SQL.Clear;
     Close;
     SQL.Text:='SELECT * FROM POTROSAC ORDER BY ID DESC';
     Open;
  end;
  IBDataSet1.Open;
end;

Ne znam u cemu je problem???

Ovako nekako:

Code:
procedure TForm1.Button6Click(Sender: TObject);
begin
IBDataSet1.Close;
with IBDataSet1 do
  begin
     Close;
     SelectSQL.Text:='SELECT * FROM POTROSAC ORDER BY ID DESC';
     Open;
  end;
end;

A ako želiš sortirati klikom na određeni header dbgrid-a, grid to nema ugrađeno u sebi (barem ne ovaj od Delphi-a), moraš malo pisati kod. Googlaj Dbgrid sort column click.

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
*.adsl.beotel.net.

+18 Profil

Re: Borland .GDB baza podataka !

^{30.09.2009. u 14:24 - pre 177 meseci}

Ok ovo radi...super.

Evo jos samo jedno pitanje... Zasto kada koristim parametre kao u prvom primeru za select koji si postavio dobijam gresku >

"XSQLDA index out of range"

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{30.09.2009. u 14:36 - pre 177 meseci}

Šta ti znači ovo XSQLDA?

Koristiš indeks parametra koji ne postoji vjerojatno. Pazi da je [0] ustvari prvi parametar.

Ili napravi ovako

Code:
ParamByName('naziv_parametra').AsString := neka_varijabla

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
*.adsl.beotel.net.

+18 Profil

Re: Borland .GDB baza podataka !

^{30.09.2009. u 15:15 - pre 177 meseci}

Sad kaze field 'neko polje' not found.
Moguce da nesto nisam dobro povezao. A kada ubacim TIBQuery onda radi.

Ok...HVALA captPicard, dosta si mi pomogao!!!!!

Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: Borland .GDB baza podataka !

^{30.09.2009. u 16:13 - pre 177 meseci}

Pazi na nazive polja i na nazive parametara. Ako ne ide, narpavi c/p koda ovdje.

Odgovor na temu