Формат даты при сохранении в MySQL

[Олег]

Подскажите, пожалуйста, как нужно сохранять и выводить в грид обратно поля типа Дата. У меня не получается, на форме ввожу 06.04.2013 (Компонент TDateEdit), сохраняю в базу запросом:

Код: Выделить всё

    SQLQueryWrite.SQL.Add('INSERT INTO persons (fio, age, district_id, address, dateopen) VALUES (:StrFIO, :StrDR, (SELECT district.id FROM district WHERE district.name = :StrDistrict), :StrAddress, :StrDateOpen);');
    SQLQueryWrite.Params.ParamByName('StrFIO').AsString:= StrFIO;
    SQLQueryWrite.Params.ParamByName('StrDR').AsString:= StrDR;
    SQLQueryWrite.Params.ParamByName('StrDistrict').AsString:= StrDistrict;
    SQLQueryWrite.Params.ParamByName('StrDateOpen').AsString:= StrDateOpen;
    SQLQueryWrite.Params.ParamByName('StrAddress').AsString:= StrAddress;
    SQLQueryWrite.ExecSQL;

а при выводе в гриде отображается дата как 20.04.2006. Что-то с форматами не то.

[Vadim]

SQLQueryWrite.Params.ParamByName('StrDR').AsString:= StrDR;

StrDR должно быть в формате ГГГГ-ММ-ДД.

[Владимир]

Для порядка в FormCreate установить

Код: Выделить всё

DateSeparator:='.';
ShortDateFormat:='dd.mm.yyyy';
ShortTimeFormat:='hh:mm:ss';

Для преобразования '21.12.2013' в '20131221' использую функцию

Код: Выделить всё

function DateToDBString(Str:String):String;
var
ss:array[1..3]of String [4];
i,j:Integer;
begin
ss[2]:='';ss[3]:='';
ss[1]:=Str[1];
j:=1;
for i:=2 to utf8length(Str) do
  if Str[i]<>'.' then ss[j]:=ss[j]+Str[i] else
  inc(j);
DateToDBString:=ss[3]+ss[2]+ss[1];
end;

[alexs]

Олег
Почему у вас даты находятся в строках?
Для дат есть тип TDateTime.
Соответсвенно

Код: Выделить всё

SQLQueryWrite.Params.ParamByName('StrDateOpen').AsDateTime

[Олег]

Спасибо всем за помощь!) Все получилось