Запись даты в FireBird

[Lokos]

В базе FB в таблице имеется поле с типом DATE туда необходимо записать только год.
Пытаюсь сделать так

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(:ID,:DAT)';
   Form1.pFIBQuery1.ParamByName('ID').Value:=10;
 Form1.pFIBQuery1.ParamByName('DAT').Value:=FormatDateTime('yyyy',datetimepicker1.Date);
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

но пишет ошибку что данные не соответствуют формату ячейки.
если писать дату в таком формате 12.12.2112 то все норм как поменять полю формат даты? Работаю в IBExpert

[artemavd]

А если сделать у поля с датой тип не DATE, а VARCHAR? Тогда можно было бы сделать так:

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(:ID,:DAT)';
   Form1.pFIBQuery1.ParamByName('ID').Value:=10;
 Form1.pFIBQuery1.ParamByName('DAT').Value:=QuotedStr(DateToStr(datetimepicker1.Date));
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

P.S. Почему у вас в поле ID вручную заносится значения? Какого оно типа? Сделайте его поле-счетчиком, а в запросе вставки в таком случае пишите так:

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(null,:DAT)';
 Form1.pFIBQuery1.ParamByName('DAT').Value:=QuotedStr(DateToStr(datetimepicker1.Date));
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

[Lokos]

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

А если сделать у поля с датой тип не DATE, а VARCHAR? Тогда можно было бы сделать так:

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(:ID,:DAT)';
   Form1.pFIBQuery1.ParamByName('ID').Value:=10;
 Form1.pFIBQuery1.ParamByName('DAT').Value:=QuotedStr(DateToStr(datetimepicker1.Date));
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

P.S. Почему у вас в поле ID вручную заносится значения? Какого оно типа? Сделайте его поле-счетчиком, а в запросе вставки в таком случае пишите так:

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(null,:DAT)';
 Form1.pFIBQuery1.ParamByName('DAT').Value:=QuotedStr(DateToStr(datetimepicker1.Date));
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

Поле ID заносятся в ручную потому что используется база для обучения лень писать тригер и генератор))) А вот по году, как потом можно будет вывести записи скажем у которых год больше 1998, разве с типом варчар можно будет работать как с числовым скажем указать > или <

[artemavd]

А вот по году, как потом можно будет вывести записи скажем у которых год больше 1998, разве с типом варчар можно будет работать как с числовым скажем указать > или <

Два варианта можно попробовать.
I вариант. А если так попробовать вставить в БД:

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(:ID,:DAT)';
   Form1.pFIBQuery1.ParamByName('ID').Value:=10;
 Form1.pFIBQuery1.ParamByName('DAT').Value:=QuotedStr(DateToStr(FormatDateTime('yyyy',datetimepicker1.Date)));
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

II вариант
Попробовать в выборке так написать:

 select * from table where DAT='+QuotedStr(FormatDateTime('yyyy',datetimepicker1.Date));

[Lokos]

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

Два варианта можно попробовать.
I вариант. А если так попробовать вставить в БД:

procedure TForm1.Button6Click(Sender: TObject);
begin
   pFIBQuery1.SQL.Clear;
   Form1.pFIBQuery1.SQL.Text:='INSERT INTO TS (ID,DAT) VALUES(:ID,:DAT)';
   Form1.pFIBQuery1.ParamByName('ID').Value:=10;
 Form1.pFIBQuery1.ParamByName('DAT').Value:=QuotedStr(DateToStr(FormatDateTime('yyyy',datetimepicker1.Date)));
   Form1.pFIBQuery1.ExecQuery;
   Form1.pFIBQuery1.Transaction.Commit;
end;

II вариант
Попробовать в выборке так написать:

 select * from table where DAT='+QuotedStr(FormatDateTime('yyyy',datetimepicker1.Date));

Ну так без сомнения он вставит запись, и выведет ее.
Но если мне нужно будет выбрать не определенный год а скажем вот с таким условием Dat>1998 and Dat<2009 как это можно будет сделать если даты хранятся в текстовом виде? Просто у меня изначально и был тип varchar но потом я подумал о такой возможности и задался вопросом что делать в таком случае

[artemavd]

Вы применяли мой код вставки из поста №4? В каком виде заносится дата в БД?

[Lokos]

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

Вы применяли мой код вставки из поста №4? В каком виде заносится дата в БД?

не в каком ошибка

[DCC Error] Unit1.pas(127): E2250 There is no overloaded version of 'DateToStr' that can be called with these arguments

[artemavd]

А если без QuotedStr?

[Lokos]

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

А если без QuotedStr?

тоже самое(((

[Serge_Bliznykov]

Lokos, Ваша проблема в том, что Вы хотите совместить несовместимое.
Значит так. Или Вы делаете поле DAT типа Integer и пишете туда свой год, или,
если уж Вы используете поле DateTime - то и пишите туда ДАТУ!!
Вас не интересуют день и месяц?! Ну так и не обращайте на них внимание! (обычно, конечно, туда принято писать определённое число, например 1.01.ВашГод - но, строго говоря, это неважно.
Писать надо так:

Form1.pFIBQuery1.ParamByName('DAT').Value:=datetimepicker1.Date;

выборку надо делать так:

select ID, year(DAT) from ...

а условие выборки, соответственно:

select ... from ... 
where  year(Dat)>1998 and year(Dat)<2009 
или (лучше):
where  year(Dat) BETWEEN 1998 and 2009