Insert komanda u delphiju ,problem sa tipom vrednosti

[ djenka1984 @ 12.10.2006. 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

[ Miloš Baić @ 12.10.2006. 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]}

[ Almedin @ 12.10.2006. 21:12 ] @

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

[ Safet Susic @ 12.10.2006. 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;