VPF::Access - взаимодействие с базой - Форум программистов

vova_km

Дата 12.5.2008, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.10.2007
Где: УКРАЇНА, Запоріжж я

Репутация: нет
Всего: нет

В Delphi. Надо взять дату из одного поля и отнять ее от даты в другого поля, результат вывисти в третье

Rodman

Дата 12.5.2008, 20:15 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

Код


d:=DaysBetween(Query.Fields.Fields[1].AsDate, Query.Fields.Fields[2].AsDate);

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

vova_km

Дата 12.5.2008, 21:24 (ссылка)

(нет голосов)

Загрузка ...

спасибо!
у меня выглядит так

Код


Query.Fields.FieldByName('kol_dnei').AsInteger:=DaysBetween(Query.Fields.FieldByName('DATA_OKONChANIYa').AsDateTime, Query.Fields.FieldByName('DATA_NAChALA').AsDateTime);

vova_km

Дата 14.5.2008, 21:31 (ссылка)

(нет голосов)

Загрузка ...

как проверить попадает ли дата(или несколько дат. Хранятся в отдельной таблице) в период с начала до конце отпуска?

Rodman

Дата 14.5.2008, 21:48 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

ну смари...
допустим твоя дата для проверки храниться в переменной DateCheck...
и проверяешь

Код


if((DateCheck>=Query.Fields.FieldByName('DATA_OKONChANIYa').AsDateTime)AND(DateCheck<=Query.Fields.FieldByName('DATA_NAChALA').AsDateTime))then
   ShowMessage('Дата - '+DateToStr(DateChec)+' попадает на отпуск!');

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

vova_km

Дата 14.5.2008, 22:00 (ссылка)

(нет голосов)

Загрузка ...

да, только мне надо не с одной переменной,а со всеми записями в таблице сверять.
как проверить все записи?

Данкинг

Дата 14.5.2008, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(vova_km @ 14.5.2008, 23:00)

да, только мне надо не с одной переменной,а со всеми записями в таблице сверять.
как проверить все записи?

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

--------------------

There's nothing left but silent epitaphs.

Rodman

Дата 14.5.2008, 22:20 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

Цитата(vova_km @ 14.5.2008, 22:00

)

как проверить все записи?

ты будешь смеятся, но это циклом делается! )))

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

vova_km

Дата 17.5.2008, 11:01 (ссылка)

(нет голосов)

Загрузка ...

как вставить поле из одной таблици в другую с помощью SQl?

Это сообщение отредактировал(а) vova_km - 17.5.2008, 11:05

Rodman

Дата 17.5.2008, 11:08 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

Код


INSERT california_authors (au_id, au_lname, au_fname)
SELECT au_id, au_lname, au_fname
FROM authors
WHERE State = 'CA'

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

vova_km

Дата 18.5.2008, 23:46 (ссылка)

(нет голосов)

Загрузка ...

а какие есть подобные программы? чтоб сделать небольшой обзор, там функиональность.... если знаете ...

vova_km

Дата 21.5.2008, 18:41 (ссылка)

(нет голосов)

Загрузка ...

вот такая проблемка: не могу сделать запрос/фильтр по lookup полям.
при фильтре пишет "He удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру".
при запросе "Параметр FIO не имеет значения по умолчанию".
как исправить ?

Код


DataModule2.Query.Filtered:=False;
DataModule2.Query.Filter:='FIO='''+Edit1.Text+'''';
DataModule2.Query.Filtered:=True;

Код


  DataModule2.Query.Active:=False;
  DataModule2.Query.SQL.Clear;
  DataModule2.Query.SQL.Add('SELECT *');
  DataModule2.Query.SQL.Add('FROM Glavnaya');
  DataModule2.Query.SQL.Add('WHERE FIO Like "%'+FORM1.Edit1.Text+'%"');
  DataModule2.Query.Active:=True;

Данкинг

Дата 21.5.2008, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(vova_km @ 21.5.2008, 19:41

)

Параметр FIO не имеет значения по умолчанию

А поле FIO-то точно присутствует в таблице? smile

Попробуй тот же запрос выполнить в самом Access'е.

Это сообщение отредактировал(а) Данкинг - 21.5.2008, 23:32

--------------------

There's nothing left but silent epitaphs.

vova_km

Дата 22.5.2008, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Спасибо, разобрался

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »