sql запрос

[Ernest027]

как это проявляется?

просто все поля становятся пустыми

[Serge_Bliznykov]

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

просто все поля становятся пустыми

просто поставьте точку останова и посмотрите, что у Вас за индекс в ADOQuery4
или сделайте отладочное сообщение.
например:

var obID : integer;
begin
....
obID:=DataModule2.ADOQuery4.FieldByName('OborudovanieID').AsInteger;
DataModule2.ADOQuery3.Close;
DataModule2.ADOQuery3.SQL.Clear;
DataModule2.ADOQuery3.SQL.Add('select * from Oborudovanie where ');
DataModule2.ADOQuery3.SQL.Add('OborudovanieID = '+inttostr(obID));
DataModule2.ADOQuery3.Open;
ShowMessage('Выполнили открытие ADOQuery3 с obID = '+IntToStr(obID));

[Ernest027]

Нашел косяк, как мне кажется.
Суть моей программы вот в чем. Делаю своего рода уведомление. При запуске программы ползунок пробегает по все бд и копирует записи, соответствующие условию из adoquery3 (Oborudovanie) в adoquery4 (Notification) и выходит уведомление "У Вас столько-то уведомлений".
Всю процедуру я повесил на таймер и думаю в этом моя ошибка. Получилось ооооооооооочень криво, но оно работает. Не забрасывайте меня камнями подскажите, как это безобразие написать в sql запрос? Буду очень благодарен. Вот сам ужасный код

ADOQuery4.Locate('OborudovanieID',ADOQuery3.FieldByName('OborudovanieID').AsString, [loPartialKey]);
if ADOQuery4.FieldByName('OborudovanieID').AsString=ADOQuery3.FieldByName('OborudovanieID').AsString then
begin
ADOQuery4.Append;
ADOQuery3.Next;
end
else
begin
if MonthsBetween(Date,DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime)<=2 then
if Int(DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime)>=Int(Date)-7 then
begin
ADOQuery4.Append;
DataModule2.ADOQuery4.Edit;
dataModule2.adoquery4.FieldByName('OborudovanieID').AsString:=
dataModule2.adoquery3.FieldByName('OborudovanieID').AsString;
dataModule2.adoquery4.FieldByName('№ п/п').AsString:=
dataModule2.adoquery3.FieldByName('№ п/п').AsString;
dataModule2.adoquery4.FieldByName('Организация').Asstring:=
dataModule2.adoquery1.FieldByName('Организация').Asstring;
dataModule2.adoquery4.FieldByName('Структурное подразделение').Asstring:=
dataModule2.adoquery2.FieldByName('Структурное подразделение').Asstring;
dataModule2.adoquery4.FieldByName('Наименование единицы').Asstring:=
dataModule2.adoquery3.FieldByName('Наименование единицы').Asstring;
dataModule2.adoquery4.FieldByName('Оперативный номер').Asstring:=
dataModule2.adoquery3.FieldByName('Оперативный номер').Asstring;
dataModule2.adoquery4.FieldByName('Тип оборудования').Asstring:=
dataModule2.adoquery3.FieldByName('Тип оборудования').Asstring;
dataModule2.adoquery4.FieldByName('Заводской номер').Asstring:=
dataModule2.adoquery3.FieldByName('Заводской номер').Asstring;
dataModule2.adoquery4.FieldByName('Технические характеристики').Asstring:=
dataModule2.adoquery3.FieldByName('Технические характеристики').Asstring;
dataModule2.adoquery4.FieldByName('Год выпуска').Asstring:=
dataModule2.adoquery3.FieldByName('Год выпуска').Asstring;
if dataModule2.adoquery3.FieldByName('Дата замеров').AsDateTime<>0 then
dataModule2.adoquery4.FieldByName('Дата замеров').Asdatetime:=
dataModule2.adoquery3.FieldByName('Дата замеров').AsDateTime;
dataModule2.adoquery4.FieldByName('Техническое состояние').Asstring:=
dataModule2.adoquery3.FieldByName('Техническое состояние').Asstring;
if dataModule2.adoquery3.FieldByName('Дата следующих замеров').AsDateTime<>0 then
dataModule2.adoquery4.FieldByName('Дата следующих замеров').AsDateTime:=
dataModule2.adoquery3.FieldByName('Дата следующих замеров').AsDateTime;
if Date<DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime then
DataModule2.ADOQuery4.FieldByName('До следующих замеров осталось, дней').AsString:=
inttostr(daysbetween(Date,DataModule2.ADOQuery4.FieldByName('Дата следующих замеров').AsDateTime))
else
if (Date>DataModule2.ADOQuery3.FieldByName('Дата следующих замеров').AsDateTime) then
DataModule2.ADOQuery4.FieldByName('До следующих замеров осталось, дней').AsString:=
'-'+inttostr(daysbetween(Date,DataModule2.ADOQuery4.FieldByName('Дата следующих замеров').AsDateTime));
DataModule2.ADOQuery4.Post;
end;
DataModule2.ADOQuery3.Next;
end;
if ADOQuery3.Eof then
begin
ADOQuery2.next;
end;
if ADOQuery2.Eof then
ADOQuery1.Next;

без sql-запросов никуда, так и будет подобный ужас.

[Ernest027]

Ребята, хээээээээээээлп

[evg_m]

ну прочитайте наконец учебник по SQL.

[Ernest027]

Спасибо, почитаю
Вот пока что получается

DataModule2.ADOQuery4.Close;
DataModule2.ADOQuery4.SQL.Clear;
DataModule2.ADOQuery4.SQL.Add('insert into Notification (');
DataModule2.ADOQuery4.SQL.Add('[Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],');
DataModule2.ADOQuery4.SQL.Add('[Год выпуска],[Техническое состояние], [До следующих замеров осталось, дней]) select ');
DataModule2.ADOQuery4.SQL.Add('[Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],');
DataModule2.ADOQuery4.SQL.Add('[Год выпуска],[Техническое состояние], [До следующих замеров осталось, дней] from Oborudovanie');
DataModule2.ADOQuery4.SQL.Add('where not exists (select [Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],');
DataModule2.ADOQuery4.SQL.Add('[Технические характеристики],[Год выпуска],[Техническое состояние], [До следующих замеров осталось, дней] from Notification ');
DataModule2.ADOQuery4.SQL.Add('where [Организация]=Organization.[Организация] and [Структурное подразделение]=Zavod.[Структурное подразделение] and OborudovanieID=Oborudovanie.OborudovanieID and ');
DataModule2.ADOQuery4.SQL.Add('[№ п/п]=Oborudovanie.[№ п/п] and [Наименование единицы]=Oborudovanie.[Наименование единицы] and [Оперативный номер]=Oborudovanie.[Оперативный номер] and [Тип оборудования]=Oborudovanie.[Тип оборудования] and ');
DataModule2.ADOQuery4.SQL.Add('[Заводской номер]=Oborudovanie.[Заводской номер] and [Технические характеристики]=Oborudovanie.[Технические характеристики])');
if dataModule2.adoquery3.FieldByName('Дата замеров').AsDateTime<>0 then
DataModule2.ADOQuery4.SQL.Add('and [Дата замеров]=Oborudovanie.[Дата замеров]');
DataModule2.ADOQuery4.ExecSQL;
DataModule2.ADOQuery4.SQL.Clear;
DataModule2.ADOQuery4.SQL.Add('select * from Notification');
DataModule2.ADOQuery4.Open;

пишет "не удалось привязать составной идентификатор Organization.Организация."

[evg_m]

чтобы использовать поле таблицы в запросе( в условии ) ЭТА таблица должна быть задана в списке таблиц (from).

insert into Notification ([Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],
[Год выпуска],[Техническое состояние], [До следующих замеров осталось, дней]) 
select [Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],
[Год выпуска],[Техническое состояние], [До следующих замеров осталось, дней] 
from Oborudovanie

where not exists ( select [Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],
                         [Технические характеристики],[Год выпуска],[Техническое состояние], [До следующих замеров осталось, дней] 
                   from Notification 
                   where [Организация]=Organization.[Организация] and [Структурное подразделение]=Zavod.[Структурное подразделение] and OborudovanieID=Oborudovanie.OborudovanieID and 
                         [№ п/п]=Oborudovanie.[№ п/п] and [Наименование единицы]=Oborudovanie.[Наименование единицы] and [Оперативный номер]=Oborudovanie.[Оперативный номер] and [Тип оборудования]=Oborudovanie.[Тип оборудования] and 
                         [Заводской номер]=Oborudovanie.[Заводской номер] and [Технические характеристики]=Oborudovanie.[Технические характеристики]
                 )
  and [Дата замеров]=Oborudovanie.[Дата замеров]

P.S. я понимаю, что скопировать код как есть гораздо проще, но вот разобраться В НЕМ гораздо сложней, и не каждый кто мог бы помочь станет это делать.

SQLQuery4.SQL.SaveToFile(....); 
ShowMessage(SQLQuery4.SQL.Text);

ВАМ (и нам тоже) в помощь.

[Ernest027]

insert into Notification (
[Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],
[Год выпуска],[Техническое состояние]) select 
[Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],
[Год выпуска],[Техническое состояние] from Organization, Zavod, Oborudovanie
where not exists (select [Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],
[Технические характеристики],[Год выпуска],[Техническое состояние] from Notification 
where [Организация]=Organization.[Организация] and [Структурное подразделение]=Zavod.[Структурное подразделение] and OborudovanieID=Oborudovanie.OborudovanieID and 
[№ п/п]=Oborudovanie.[№ п/п] and [Наименование единицы]=Oborudovanie.[Наименование единицы] and [Оперативный номер]=Oborudovanie.[Оперативный номер] and [Тип оборудования]=Oborudovanie.[Тип оборудования] and 
[Заводской номер]=Oborudovanie.[Заводской номер] and [Технические характеристики]=Oborudovanie.[Технические характеристики]
and [Дата замеров]=Oborudovanie.[Дата замеров])

все работает, но все данные перемешались, каша какая-то получилась

[evg_m]

from Organization, Zavod, Oborudovanie

стр. 53

Что SQL в основном делает в объединении, так это исследует каждую комбинацию строк двух или более возможных таблиц, и проверяет эти комбинации по их предикатам. В предыдущем примере, требовалась строка продавца Peel из таблицы Продавцов и объединение ее с каждой строкой таблицы Пользователей, по одной в каждый момент времени.
Если комбинация производит значение которое делает предикат верным, и если поле city из строк таблиц Заказчика равно London, то Peel — это то запрашиваемое значение которое комби-нация выберет для вывода. То же самое будет затем выполнено для каждого продавца в таблице Продавцов (у некоторых из которых не было никаких заказчиков в этих городах).

[Ernest027]

Решил сократить запрос, такая же фигня

insert into Notification (
[Организация], [Структурное подразделение],OborudovanieID,[№ п/п],[Наименование единицы],[Оперативный номер],[Тип оборудования],[Заводской номер],[Технические характеристики],
[Год выпуска],[Техническое состояние]) 
select Organization.[Организация], Zavod.[Структурное подразделение], Oborudovanie.OborudovanieID,Oborudovanie.[№ п/п],
Oborudovanie.[Наименование единицы],Oborudovanie.[Оперативный номер],Oborudovanie.[Тип оборудования],Oborudovanie.[Заводской номер],Oborudovanie.[Технические характеристики],
Oborudovanie.[Год выпуска],Oborudovanie.[Техническое состояние] from Organization, Zavod, Oborudovanie
where [Организация]<>Organization.[Организация] and [Структурное подразделение]<>Zavod.[Структурное подразделение] and 
OborudovanieID<>Oborudovanie.OborudovanieID and 
[№ п/п]<>Oborudovanie.[№ п/п] and [Наименование единицы]<>Oborudovanie.[Наименование единицы] and 
[Оперативный номер]<>Oborudovanie.[Оперативный номер] and [Тип оборудования]<>Oborudovanie.[Тип оборудования] and 
[Заводской номер]<>Oborudovanie.[Заводской номер] and [Технические характеристики]<>Oborudovanie.[Технические характеристики]
and [Дата замеров]<>Oborudovanie.[Дата замеров]