upis i izmenu podataka radim kroz sql upit,
problem mi se javlja kad se upisuje u polje datuma null.
kod:
Code:
With sql_cekovi do
begin
SQL.Clear; // upis čeka bazu
SQL.Add('INSERT INTO tab_cekovi'+
'( D_REALIZACIJE, ID_BANKE, ID_OBJEKTA, SER_BR, D_PRIJEMA, D_DOSPECA, TEKUCI_RN, IZNOS, NAPOMENA, ID_KORISNIKA)'+
'values(:D_REALIZACIJE,:ID_BANKE,:ID_OBJEKTA,:SER_BR,:D_PRIJEMA,:D_DOSPECA,:TEKUCI_RN,:IZNOS,:NAPOMENA,:ID_KORISNIKA)');
Params.ParamByName('D_REALIZACIJE').Value :=cekovi_edit.ZVDateTimePicker1.Date;
Params.ParamByName('ID_BANKE').Value :=cekovi_edit.cek_banka.KeyValue;
Params.ParamByName('ID_OBJEKTA').Value :=cekovi_edit.cek_objekat.KeyValue;
Params.ParamByName('SER_BR').Value :=cekovi_edit.cek_ser_br.Text;
Params.ParamByName('D_PRIJEMA').Value :=cekovi_edit.cek_d_prijema.Date;
Params.ParamByName('D_DOSPECA').Value :=cekovi_edit.cek_d_pustanja.Date;
Params.ParamByName('TEKUCI_RN').Value :=cekovi_edit.cek_racun.Text;
Params.ParamByName('IZNOS').Value :=cekovi_edit.cek_iznos.Text;
Params.ParamByName('NAPOMENA').Value :=cekovi_edit.cek_napomena.Text;
Params.ParamByName('ID_KORISNIKA').Value :=Korisnik.ID;
ExecSQL;
end;
With sql_cekovi do
begin
SQL.Clear; // upis čeka bazu
SQL.Add('INSERT INTO tab_cekovi'+
'( D_REALIZACIJE, ID_BANKE, ID_OBJEKTA, SER_BR, D_PRIJEMA, D_DOSPECA, TEKUCI_RN, IZNOS, NAPOMENA, ID_KORISNIKA)'+
'values(:D_REALIZACIJE,:ID_BANKE,:ID_OBJEKTA,:SER_BR,:D_PRIJEMA,:D_DOSPECA,:TEKUCI_RN,:IZNOS,:NAPOMENA,:ID_KORISNIKA)');
Params.ParamByName('D_REALIZACIJE').Value :=cekovi_edit.ZVDateTimePicker1.Date;
Params.ParamByName('ID_BANKE').Value :=cekovi_edit.cek_banka.KeyValue;
Params.ParamByName('ID_OBJEKTA').Value :=cekovi_edit.cek_objekat.KeyValue;
Params.ParamByName('SER_BR').Value :=cekovi_edit.cek_ser_br.Text;
Params.ParamByName('D_PRIJEMA').Value :=cekovi_edit.cek_d_prijema.Date;
Params.ParamByName('D_DOSPECA').Value :=cekovi_edit.cek_d_pustanja.Date;
Params.ParamByName('TEKUCI_RN').Value :=cekovi_edit.cek_racun.Text;
Params.ParamByName('IZNOS').Value :=cekovi_edit.cek_iznos.Text;
Params.ParamByName('NAPOMENA').Value :=cekovi_edit.cek_napomena.Text;
Params.ParamByName('ID_KORISNIKA').Value :=Korisnik.ID;
ExecSQL;
end;
datume uzima iz standardnih Lazarus-ovih kompenenti,
izvrši se upis u bazu al mi u polja za datume upisuje datum "30.12.1899" na mestima gde nije izabran datum (prazno polje).
Dal se neko susreo sa ovakvim problemom?
I kod update-a će biti isti slučaj, umesto praznih polja u tabelu će dodavati "30.12.1899".
Baza je Access, ODBC konekcija.
Nikad izvini!