[es] - Insert komanda u delphiju ,problem sa tipom vrednosti

djenka1984

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

Profil

Insert komanda u delphiju ,problem sa tipom vrednosti

^{12.10.2006. u 18:05}

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

^{12.10.2006. u 18:05}

Miloš Baić

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

Profil

Re: Insert komanda u delphiju ,problem sa tipom vrednosti

^{12.10.2006. u 19:46}

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]}

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{12.10.2006. u 19:46}

Almedin

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

Profil

Re: Insert komanda u delphiju ,problem sa tipom vrednosti

^{12.10.2006. u 21:12}

Table.FieldbyName('Datum').AsDateTime := StrToDate(DBEdit.text);

^{12.10.2006. u 21:12}

Safet Susic
Gorazde BiH

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

Profil

Re: Insert komanda u delphiju ,problem sa tipom vrednosti

^{12.10.2006. u 23:02}

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;

^{12.10.2006. u 23:02}