Запись в БД в формате Date

[Cantana]

Здравствуйте Госпада !
вот код процедуры , проблема в том что при таком коде в запис в таблицу при rd_tip.ItemIndex=0 10.01.08 и при rd_tip.ItemIndex=1 01.10.08
vaqt - DateTimePicker = 10.01.08

procedure Tdbform.Button2Click(Sender: TObject);
begin
 case rd_tip.ItemIndex of
  0:begin
     dm2.ins_usloviya.Parameters.ParamByName('tipdat').Value:=dm2.bookTIP.Value;
 dm2.ins_usloviya.Parameters.ParamByName('vaqt').Value:=vaqt.Date;
     dm2.ins_usloviya.Parameters.ParamByName('t').Value:=strtofloat(sp_t.Text);
     dm2.ins_usloviya.Parameters.ParamByName('vlaj').Value:=strtofloat(sp_vlaj.Text);
     dm2.ins_usloviya.Parameters.ParamByName('davl').Value:=strtofloat(ed_davl.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_pit').Value:=strtofloat(sp_vpit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_sep').Value:=strtofloat(sp_vsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_pit').Value:=strtofloat(sp_npit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_sep').Value:=strtofloat(sp_nsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('linkkey').Value:=dm2.bookDSDesigner.Value;
     dm2.ins_usloviya.ExecSQL;
    // dm2.ins_usloviya.Active:=false;
    end;
  1: begin
     dm2.ins_usloviya.Parameters.ParamByName('tipdat').Value:=dm2.bookUTM.Value;
  dm2.ins_usloviya.Parameters.ParamByName('vaqt').Value:=vaqt.Date;
     dm2.ins_usloviya.Parameters.ParamByName('t').Value:=strtofloat(sp_t.Text);
     dm2.ins_usloviya.Parameters.ParamByName('vlaj').Value:=strtofloat(sp_vlaj.Text);
     dm2.ins_usloviya.Parameters.ParamByName('davl').Value:=strtofloat(ed_davl.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_pit').Value:=strtofloat(sp_vpit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('v_sep').Value:=strtofloat(sp_vsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_pit').Value:=strtofloat(sp_npit.Text);
     dm2.ins_usloviya.Parameters.ParamByName('n_sep').Value:=strtofloat(sp_nsep.Text);
     dm2.ins_usloviya.Parameters.ParamByName('linkkey').Value:=dm2.bookDSDesigner.Value;
     dm2.ins_usloviya.ExecSQL;
    end;
//else  ShowMessage('Выберите тип, пожалуйста.');
end;
 ShowMessage('поехали!!!');
end;

в чем моя ошибка

[Stilet]

Ниче не понял. А должно как быть?

[Cantana]

должно быт одинакова то есть если 11 январь 2008 то 11.01.08
а у меня один запис 11.01.08
еще один 01.11.08

[Stilet]

а-а-а все понял.
Ну в коде вроде криминала нет, может в разных случаях запись идет в разные таблицы? Че за база, пров какой?

[Cantana]

База Access , таблица на одну таблицу и именно при rd_tip.ItemIndex=0
он не меняеть дату а rd_tip.ItemIndex=1 меняеть.

[Stilet]

Ну попробуй пройтись по шагам или поставь бряк на действия при rd_tip.ItemIndex=0, и посмотри чему равна дата и в каком она формате...
Но помоему это глюки Акцесса...

[pu4koff]

поробуй указать явно тип не Value, а AsDateTime...

[Cantana]

не факт пробивал не даст

[pu4koff]

там в принципе дата в обоих случаях одна и та же пишеца. попробуй вынести запись перед case например...

[Cantana]

Сообщение от pu4koff

там в принципе дата в обоих случаях одна и та же пишеца. попробуй вынести запись перед case например...

кстати это идея я попробую !