Первое значение времени - 00:00:00

[Аватар]

Это не запрос. Параметризованные запросы в #7 от ТС. Только если он строки сует в не строковые параметры, то это зря

[sergey_sergey]

да вроде ж описал все параметры в свойствах Parameters у adoquery. Указывал тип ftString или ftDateTime в зависимости от типа поля в БД. Direction у всех стоит pdInput . Значения NumericScale , Precision и Size не трогал ни у кого


вариант

var
fv1,fv3,fv4: string;
...........
fv1:=FormatDateTime('yyyy-mm-dd hh:nn:ss',strtodatetime(Edit_Data_v isova.Text+Edit_Time_visova.Text));
with dm.ADOQ_new_visov do
begin
sql.Clear;
sql.Text:='insert into visov (data_v,tel_client,np_pod)' +
' values ('+fv1+','+fv3+','+fv4+')';

почему-то не работает

[sergey_sergey]

А чего в параметр заносишь данные в строковом виде? Заноси в формате TDateTime без FormatDateTime, адо само разберется как его в базу передать. На то и параметризация, что бы не ломать голову над представлением данных.

переделал:

// Parameters.ParamByName('fv1').Value :=FormatDateTime('yyyy-mm-dd hh:nn:ss',strtodatetime(Edit_Data_v isova.Text+Edit_Time_visova.Text));

Parameters.ParamByName('fv1').Value :=strtodatetime(Edit_Data_visova.Te xt+' '+Edit_Time_visova.Text);

теперь стабильно время - нули(

[sergey_sergey]

поставил пикеры. код переписал:

ShowMessage(DateTimeToStr(Int(Edit_ data_visova.Date) + Frac(Edit_time_visova.Time)));

Parameters.ParamByName('fv1').DataT ype:=ftDateTime;
Parameters.ParamByName('fv1').Value :=Int(Edit_data_visova.Date) + Frac(Edit_time_visova.Time);

теперь стабильно время ноль. в showmessage всё ок
где копать , не пойму

[Iron Monk]

Посмотрите текст SQL перед запросом. Да и исходники глянуть, если не жаль...

[sergey_sergey]

в смысле посмотреть текст? вывести на экран? я уже просто Now пишу в поле. Дата просаживается, время -нет(

[Iron Monk]

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

в смысле посмотреть текст? вывести на экран? я уже просто Now пишу в поле. Дата просаживается, время -нет(

да, вывести на экран. И смотреть. Запрос или ответ тухлый.

[sergey_sergey]

большущее спасибо за отзывчивость!

ShowMessage(DateTimeToStr(Int(Edit_ data_visova.Date) + Frac(Edit_time_visova.Time)));
with dm.ADOQ_new_visov do
begin
sql.Clear;
sql.Text:='insert into visov (data_v,tel_client)' +
' values (:fv1,:fv3)';
ShowMessage(sql.Text);
Parameters.ParamByName('fv1').DataT ype:=ftDateTime;
Parameters.ParamByName('fv1').Value :=Now;
Parameters.ParamByName('fv3').Value :=Nom_tel.Text;
ExecSQL;
end;

оставил самый минимум уже

[sergey_sergey]

вот дата и время и текст sql

[Аватар]

А без заполнения DataType? Да и текст SQL тот, который на сервер идет. В MySQL есть же журналирование запросов, там и посмотреть. Не в курсе, может и другие средства есть