Вывод только одного года ('yyyy') из даты 'dd.mm.yyyy'. В Accese

[Droid]

Народ, уже повторяюсь, но перепробовал все, что только знаю.

у меня есть поле, в Accese тип поля - datetime, там хранится дата в формате 'dd.mm.yyy' я вывожу запросом дату в таблицу, выводит нормально, но мне надо не саму дату а только год от этой даты т.е. 'yyyy'

Вот файл, в нем программа с БД на форме "SV_RZ" есть ListBox1, по нажатию на 1 строку ListBox1, должно выдать вместо полной даты, только год 'yyyy'.

думаю объяснил понятно ( файл тут ---->ПОПК.rar

[vovk]

если в запросе то

select year(date) as Year_ From [table]

если из полной даты то

ListBox1.Items.Add(FormatDateTime('YYYY',ADOQuery1.FieldByName('date').AsDateTime));

[Droid]

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

если в запросе то

select year(date) as Year_ From [table]

если из полной даты то

ListBox1.Items.Add(FormatDateTime('YYYY',ADOQuery1.FieldByName('date').AsDateTime));

dm.ADOQ_O.Close;
dm.ADOQ_O.SQL.Clear;
dm.ADOQ_O.SQL.Add('SELECT year(data_ucheta), * FROM VOZRAST_P INNER JOIN (UCHET INNER JOIN 
 (PRICHINA_NETR INNER JOIN (KABINET INNER JOIN (DIAGNOZ INNER JOIN PACIENT ON DIAGNOZ.[id_dz] = PACIENT.[id_dz]) ON KABINET.[id_kabineta] = PACIENT.[id_kabineta]) ');
dm.ADOQ_O.SQL.Add(' ON PRICHINA_NETR.[id_prichina_netudosp] = PACIENT.[id_prichina_netudosp]) 
ON UCHET.[id_uch] = PACIENT.[id_uch]) ON VOZRAST_P.[id_vozrasta] = PACIENT.[id_vozrasta]');
dm.ADOQ_O.Open;

чет не показывает отдельно (

[vovk]

по моему тут со звёздочкой не получится, желательно поля указывать.

Попробуйте с простым запросом, для того чтобы результат посмотреть

[Serge_Bliznykov]

думаю, что проблема или в том, что запрос не возвращает ни одной записи, либо перед звёздочкой можно попробовать добавить алиас таблицы...

а вообще, сначала пробуйте так:

SELECT data_ucheta  FROM VOZRAST_P...

если сработает, дальше:

SELECT year(data_ucheta) FROM VOZRAST_P...

а если и так сработает - тогда дописывайте звёздочку или другие поля...

[Droid]

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

по моему тут со звёздочкой не получится, желательно поля указывать.

Попробуйте с простым запросом, для того чтобы результат посмотреть

НЕРАБОТАЕТ ПИШЕТ ПОЛЕ НЕ НАЙДЕНО data_ucheta

dm.ADOQ_O.Close;
dm.ADOQ_O.SQL.Clear;
dm.ADOQ_O.SQL.Add('SELECT year(data_ucheta),vozrast,prichina,nomer_kab,dz,kol,VOZRAST_P.[id_vozrasta],UCHET.[id_uch],PRICHINA_NETR.[id_prichina_netudosp],');
dm.ADOQ_O.SQL.Add('KABINET.[id_kabineta],DIAGNOZ.[id_dz],id_pacienta,PACIENT.[id_kabineta],PACIENT.[id_dz],PACIENT.[id_prichina_netudosp],PACIENT.
[id_uch],PACIENT.[id_vozrasta]');
dm.ADOQ_O.SQL.Add('FROM VOZRAST_P INNER JOIN (UCHET INNER JOIN (PRICHINA_NETR INNER JOIN (KABINET INNER JOIN (DIAGNOZ INNER JOIN PACIENT 
ON DIAGNOZ.[id_dz] = PACIENT.[id_dz]) ON KABINET.[id_kabineta] = PACIENT.[id_kabineta])');
dm.ADOQ_O.SQL.Add('ON PRICHINA_NETR.[id_prichina_netudosp] = PACIENT.[id_prichina_netudosp]) ON UCHET.[id_uch] = PACIENT.[id_uch])
 ON VOZRAST_P.[id_vozrasta] = PACIENT.[id_vozrasta]');
dm.ADOQ_O.Open;

так работает но это с полной датой

dm.ADOQ_O.Close;
dm.ADOQ_O.SQL.Clear;
dm.ADOQ_O.SQL.Add('SELECT data_ucheta,vozrast,prichina,nomer_kab,dz,kol,VOZRAST_P.[id_vozrasta],UCHET.[id_uch],
PRICHINA_NETR.[id_prichina_netudosp],');
dm.ADOQ_O.SQL.Add('KABINET.[id_kabineta],DIAGNOZ.[id_dz],id_pacienta,PACIENT.[id_kabineta],PACIENT.[id_dz],PACIENT.[id_prichina_netudosp],
PACIENT.[id_uch],PACIENT.[id_vozrasta]');
dm.ADOQ_O.SQL.Add('FROM VOZRAST_P INNER JOIN (UCHET INNER JOIN (PRICHINA_NETR INNER JOIN (KABINET INNER JOIN (DIAGNOZ INNER JOIN 
PACIENT ON DIAGNOZ.[id_dz] = PACIENT.[id_dz]) ON KABINET.[id_kabineta] = PACIENT.[id_kabineta])');
dm.ADOQ_O.SQL.Add('ON PRICHINA_NETR.[id_prichina_netudosp] = PACIENT.[id_prichina_netudosp]) ON UCHET.[id_uch] = PACIENT.[id_uch]) 
ON VOZRAST_P.[id_vozrasta] = PACIENT.[id_vozrasta]');
dm.ADOQ_O.Open;

[vovk]

Ради экспиремента попробовал у себя, ACCESS 2002, DELPHI 2007 нормально работает, как и ожидалось.
Сейчас скачаю ваш файлик попробую посмотреть

[Droid]

ок ) ждемс

[vovk]

в вашем датасете ADOQ_O, нужно список полей сначала поправить, а потом можно будет увидеть искомое

[Droid]

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

в вашем датасете ADOQ_O, нужно список полей сначала поправить, а потом можно будет увидеть искомое

а если поподробнее ?