Insert komanda u delphiju ,problem sa tipom vrednosti

Insert komanda u delphiju ,problem sa tipom vrednosti 12.10.2006. u 19:05 · pre 244 meseca #1

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

Re: Insert komanda u delphiju ,problem sa tipom vrednosti 12.10.2006. u 20:46 · pre 244 meseca #2

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...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Re: Insert komanda u delphiju ,problem sa tipom vrednosti 12.10.2006. u 22:12 · pre 244 meseca #3

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

Re: Insert komanda u delphiju ,problem sa tipom vrednosti 13.10.2006. u 00:02 · pre 244 meseca #4

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;

Forum kao aplikacija na telefonu

Srodne teme