БД библиотека

[mihali4]

Берем промежуток дат и делаем SQL запрос (between).
Начальная дата - EncodeDate(y,m,1)
Конечная - EncodeDate(y,m+1,1) - нужна проверка, чтобы m<=11
И накладываем 3-е условие - Distribbool.value=false.
Все.

[Arkuz]

mihali4, а могли бы вы сделать на примере моего приложения этот запрос?
Просто я неоднократно писал, что я не совсем понимаю как можно работать с функциями типа EncodeDate в запросе.


Например. Удалить записи за январь 2008 года.

Как я могу указать год и месяц в запросе такого типа:

DELETE * FROM Distrib WHERE (как тут указать декодированный месяц или год) AND Distribbool.value=false

[Mitriy08]

....
var
DeleteQuery : TADOQuery;
DeleteSQL : String;
begin
//Формируем строку запроса на удаление
......
//MyDate - поле из таблицы

DeleteSQL := 'Delete from MyTable where Year(MyDate)=2008  AND MONTH(Mydate) = 1  and MyBit = False';
DeleteQuery := TADOQuery.Create(Self);
With DeleteQuery do
begin
     Close;
     Connection := MyADOConnection;
     SQL.Clear;
     SQL.ADD(DeleteSQL);
     ExecSQL;
     free;
end;
КакойтотамТable.refresh;
end;

Ну сформировать строку запроса я думаю вы сможете сами...

[mihali4]

как можно работать с функциями типа EncodeDate в запросе

???

Начальная дата - EncodeDate(y,m,1)
Конечная - EncodeDate(y,m+1,1) - нужна проверка, чтобы m<=11

Т.е. datebegin:=EncodeDate(y,m,1); dateend:=EncodeDate(y,m+1,1);
SQL:=...where DateOfBegin>='+DateToStr(datebegin) +' and DateOfBegin<'+DateToStr(dateend) and Distribbool=False...

[Arkuz]

Спасибо з-а помощь...

[Arkuz]

Это снова я....

Нужно сделать запрос для отчёта: Список должников (фио, адрес, место работы) группировка по месту работы.

Так вот... Сделал я такой запрос... Только без группировки...

SELECT  Readers.Name, Streets.Street, Works.Work
FROM Distribution, Readers, Streets, Works  WHERE Distribution.DateOfReal is null
AND Readers.AddressID=Streets.AddressID
AND Readers.WorkID=Works.WorkID
AND Readers.ReaderID=Distribution.ReaderID

Когда в конструкторе делфи ставлю свойство Active в true, в гриде отображается 2 должника - всё правильно. Но когда пытаюсь запустить происходит ошибка. Прикрепил имагу - Error1.

А при таком варианте:

SELECT  Readers.Name, Streets.Street, Works.Work
FROM Distribution, Readers, Streets, Works  WHERE Distribution.DateOfReal is null
AND Readers.AddressID=Streets.AddressID
AND Readers.WorkID=Works.WorkID
AND Readers.ReaderID=Distribution.ReaderID
GROUP BY Works.Work

Когда в конструкторе делфи ставлю свойство Active в true, сразу появляется вот эта ошибка - Error2.

Подскажите что делать... Файл проекта прикрепляю...

[mihali4]

Когда в конструкторе делфи ставлю свойство Active в true

У кого "ставлю свойство Active в true"? Или мне сидеть и гадать, какой такой квэрик у вас неизвестно когда неизвестно чем запускается?

[Arkuz]

Извините совсем забыл... ReportDolgQuery...

[mihali4]

Нужно сделать запрос для отчёта: Список должников (фио, адрес, место работы) группировка по месту работы.
Так вот. Сделал я такой запрос. Только без группировки.
...
Когда в конструкторе делфи ставлю свойство Active в true, в гриде отображается 2 должника - всё правильно. Но когда пытаюсь запустить происходит ошибка. Прикрепил имагу - Error1.

Во-первых, репорт вы формируете по нажатию:

procedure TMainForm.BitBtn3Click(Sender: TObject);
begin
 DataModule2.DolgQuery.Active:=true;
...

Почему DataModule2.DolgQuery.Active:=true; ???
По логике-то - DataModule2.ReportDolgQuery.Active:=true;
Во-вторых - почему у ReportDolgQuery на событии AfterScroll висит DolgQueryAfterScroll?
Именно тут у вас и возникает AccessViolation.

А при таком варианте:
SELECT Readers.Name, Streets.Street, Works.Work
FROM Distribution, Readers, Streets, Works WHERE Distribution.DateOfReal is null
AND Readers.AddressID=Streets.AddressID
AND Readers.WorkID=Works.WorkID
AND Readers.ReaderID=Distribution.Reade rID
GROUP BY Works.Work
Когда в конструкторе делфи ставлю свойство Active в true, сразу появляется вот эта ошибка - Error2.

Потому что запрос не может группировать записи из таблицы Readers по полю Work - в ней нет такого поля...
Нужно ... GROUP BY Works.Work, Readers.Name, Streets.Street

И еще. Будьте аккуратнее при назначении очередности открывания таблиц базы. Зачастую возникает ситуация, когда, например, любимое ваше AfterScroll будет ссылаться на поля еще не открытой таблицы - получите AccessViolation...

З.Ы. Совсем забыл... Первое, что я сделал, открыв ваш проект - поменял местами строки, сделав:

  Application.CreateForm(TDataModule2, DataModule2);
  Application.CreateForm(TMainForm, MainForm);

Я уже упоминал об этом, вы забыли.
Представьте себе, что по событию формы OnCreate вы захотите, ну, например, открыть какую-то таблицу. Что будет? Верно - AccessViolation, поскольку таблицы еще не существует - датамодуль не создан...

[Arkuz]

Когда в конструкторе делфи ставлю свойство Active в true

Это я делаю для проверки корректности запроса, чтобы проект не компилировать...

Почему DataModule2.DolgQuery.Active:=true; ???
По логике-то - DataModule2.ReportDolgQuery.Active: =true;

Это очепятка...

Во-вторых - почему у ReportDolgQuery на событии AfterScroll висит DolgQueryAfterScroll?

Это тоже мой косяк... Я просто скопировал DolgSource и DolgQuery...

И еще. Будьте аккуратнее при назначении очередности открывания таблиц базы. Зачастую возникает ситуация, когда, например, любимое ваше AfterScroll будет ссылаться на поля еще не открытой таблицы - получите AccessViolation...

Ну это я учту... Просто вы сами мне говорили, что в моём примере Таблица Distribution и так тянет за собой остальные таблицы...

З.Ы. Совсем забыл... Первое, что я сделал, открыв ваш проект - поменял местами строки, сделав:
Application.CreateForm(TDataModule2 , DataModule2);
Application.CreateForm(TMainForm, MainForm);
Я уже упоминал об этом, вы забыли.
Представьте себе, что по событию формы OnCreate вы захотите, ну, например, открыть какую-то таблицу. Что будет? Верно - AccessViolation, поскольку таблицы еще не существует - датамодуль не создан...

Спсибо... Я об этом даже не подумал как-то....

Спасибо за помощь... И последний вопрос...

А что же здесь происходит:
GROUP BY Works.Work, Readers.Name, Streets.Street

По какому полю группировка идёт? Я что-то не совсем понимаю...