Daily Archives: 23.07.2016

Delphi. MySQL. Пример добавления даты и времени в базу данных

Posted on 23.07.2016 by Stanislav_Panteleev

Как вариант можно хранить TDateTime в качестве строки. Допустим у нас в базе есть поле CreationDateTime varchar(45);

procedure TEventsListView.UpdateDate;

var NowStr:string;

begin

//Создание

//Настройка
qUpdateDate.Connection:=FDBConnection.FDConnection;

//Основная работа

NowStr:=DateTimeToStr(Now);

NowStr:=''''+NowStr+''''; // <<< Сработало только с 4 кавычками!!!

ShowMessage(NowStr);

qUpdateDate.SQL.Text:='UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='+NowStr+' WHERE `id`=1;';
//UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='123' WHERE `id`='1';

ShowMessage(qUpdateDate.SQL.Text);

qUpdateDate.ExecSQL;


//
end;

procedure TEventsListView.UpdateDate;

var NowStr:string;

begin

//Создание

//Настройка

qUpdateDate.Connection:=FDBConnection.FDConnection;

//Основная работа

NowStr:=DateTimeToStr(Now);

NowStr:=''''+NowStr+''''; // <<< Сработало только с 4 кавычками!!!

ShowMessage(NowStr);

qUpdateDate.SQL.Text:='UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='+NowStr+' WHERE `id`=1;';

//UPDATE `somedatabase_db`.`sometable` SET `CreationDateTime`='123' WHERE `id`='1';

ShowMessage(qUpdateDate.SQL.Text);

qUpdateDate.ExecSQL;

end;

Обратно можно преобразовать с помощью StrTODateTime;

Posted in Delphi, MySQL | Comments Off

Daily Archives: 23.07.2016

Delphi. MySQL. Пример добавления даты и времени в базу данных

MY PROJECTS

Recent Posts

Categories