Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Insert komanda u delphiju ,problem sa tipom vrednosti

[es] :: Pascal / Delphi / Kylix :: Insert komanda u delphiju ,problem sa tipom vrednosti

[ Pregleda: 2660 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

djenka1984

Član broj: 111928
Poruke: 20
*.3dnet.co.yu.



Profil

icon Insert komanda u delphiju ,problem sa tipom vrednosti12.10.2006. u 18:05 - pre 212 meseci
Hteo bih da dodam dugme koje ce mi raditi insert umesto onog DBNavigatora.
Sve lepo sljaka kada radim insert komandu sa poljima koja su CHAR odnosno kada ih dodajem kao String,
medjutim problemi nastaju kada insertujem datum ili broj.
Problem je u komandama tipa StrToDate ,StrToInt
Ako mezo neko da pojasni ove funkcije.Najvise me zanima prilikom unosa datuma i numerickih vrednosti(ne intiger) ,posto je ovo sa CHAR vec objasnjeno na forumu.
Znaci ako je polje u bazi definisano kao Date , a unosi se preko DBEdit komande ,kako bi trebala da izgleda ta funkcija konvertovanja
Table.FieldbyName('Datum').{kao sta da se definise} :={koja funkcija}(DBEdit.text)

Jasno mi je kad se se koristi DateTime picker ,btw moze li se on koristiti za unos u bazu podataka ,umesto onog DBEdit -a

Isti problem i sa ciframa
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.



Profil

icon Re: Insert komanda u delphiju ,problem sa tipom vrednosti12.10.2006. u 19:46 - pre 212 meseci
Pozdrav,

ako unosiš numeričke vrednosti, recimo integer iz TEdit komponente, pomogla bi ti : StrToInt(Edit1.Text), StrToFloat(Edit1.Text), ..., recimo, a za datum, StrToDate(Edit1.Text). Nešto kratko, možda će trebati neka mala izmena, jer pišem iz glave...
Code:

  with ADOQuery do
   begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO Tabel (ID_Neki, Neko_Polje_Datum)');
    SQL.Add('VALUES (:ID_Neki, :Neko_Polje_Datum)');
     Parameters.ParamByName('ID_Neki').Value:=StrToInt(Edit1.Text);
     Parameters.ParamByName('Neko_Polje_Datum').Value:=StrToDate(Edit2.Text);
    ExecSQL;
  end;

BTW, imaš u Help-u lepo objašnjene funkcije koje te zanimaju, a ima ih više...

[Ovu poruku je menjao loshmiscg dana 12.10.2006. u 22:01 GMT+1]
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
*.dlp201.bih.net.ba.



+27 Profil

icon Re: Insert komanda u delphiju ,problem sa tipom vrednosti12.10.2006. u 21:12 - pre 212 meseci
Table.FieldbyName('Datum').AsDateTime := StrToDate(DBEdit.text);
 
Odgovor na temu

Safet Susic
Gorazde BiH

Član broj: 99925
Poruke: 14
*.PPPoE-795.sa.bih.net.ba.



Profil

icon Re: Insert komanda u delphiju ,problem sa tipom vrednosti12.10.2006. u 23:02 - pre 212 meseci
Evo kako sam ja to radio: Postavis Maskedit komponentu gdje mozes unaprijed odabrati masku datuma i
formatirati unos. Veoma je efikasno, jer korisnika kontrolises sta unosi


With Datamodule1 do begin

Orders.Insert;
Orders.FieldByName('ID_Narudzbe').AsInteger := StrToInt(ID1.Text);
Orders.FieldByName('ID_Narucioca').AsInteger := StrToInt(ID_Nar.Text);
Orders.FieldByName('ID_Uposlenika').AsInteger := StrToInt(ID_Upo.Text);
Orders.FieldByName('Datum_Narudzbe').AsDateTime := StrToDate(dat_nar.Text);
Orders.FieldByName('Datum_Isporuke').AsDateTime := StrToDate(dat_isp.Text);
Orders.FieldByName('Cijena_Dostave').AsFloat := StrToFloat(cije_dos.Text);
Orders.FieldByName('Adresa_Isporuke').asstring := adre_isp.Text;
Orders.FieldByName('Grad_Isporuke').AsString := grad_isp.Text;
Orders.FieldByName('Drzava_Isporuke').AsString := drza_isp.Text;
Orders.FieldByName('Isporuceno').AsString := isporuceno.Text;
Orders.Post;

end;
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Insert komanda u delphiju ,problem sa tipom vrednosti

[ Pregleda: 2660 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.