Как обратиться к полю

[Ernest027]

Stilet, переделал немного структуру таблиц. Теперь что мы имеем:
Поле ZavodID есть и Табл1 и в табл2. Они могут принимать значение NULL. Обе таблицы прикрутил к таблице Zavod (Связующее поле ZavodID). Теперь переделал немного запрос:

with  DataModule2.ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Append('insert into Oborudovanie (');
SQL.Append('ZavodID,[Наименование единицы],[Оперативный номер], [Тип оборудования],');
SQL.Append('[Заводской номер], [Технические характеристики], [Год выпуска]) ');
SQL.Append('select ZavodID,[Наименование единицы],[Оперативный номер], [Тип оборудования],');
SQL.Append('[Заводской номер],[Технические характеристики], [Год выпуска]');
SQL.Append('from OborudovanieAdd where not exists (');
SQL.Append(' select * from Oborudovanie');
SQL.Append(' where OborudovanieAdd.[Оперативный номер]=Oborudovanie.[Оперативный номер])');


try
 n:=ExecSQL;
 if n=0 then ShowMessage('Ниче не вставлено') else
 if n>0 then ShowMessage('Вставлено') else
 if n<0 then ShowMessage('Чета ошибка') else
  ;
except
 on e:Exception do begin
  ShowMessage('Суперошибка: '+e.Message);
 end;
end;
Requery();
Open;
end;

теперь пишет 'Ниче не вставлено' и много раз adoquery3 dataset closed, что-то такое. Почему dataset closed если я пишу Open?

[Stilet]

Requery();
Open;

О мои глаза... Что это за фантазия? Зачем?
Я же просил тебя - сделай ты для вставки отдельный компонент.
Ну нельзя сразу после ExecSQL делать Open да еще и не заполнить запрос SELECT...

теперь пишет 'Ниче не вставлено'

Значит нечего вставлять. Значит твой select, который ты используешь в INSERT-е дает пустой набор. Ну это не ошибка программы, просто данных для вставки нет.

[evg_m]

потому что запрос с Insert не может быть открыт (Open для такого пустая операция, которая ничего не открывает)
Вам же говорят
http://programmersforum.ru/showpost....5&postcount=23
http://programmersforum.ru/showpost....5&postcount=23

Еще раз третий последний
добавьте в DataModule ОДИН ADOconnection (Если его там еще нет!!!) и потом ADOQuery столько раз сколько разных запросов вы собираетесь делать.
как минимум

• один с SELECT-ом
• и ЕЩЕ ОДИН с Insert

Выставьте у них ADOConnection
Запишите в каждый ADOQuery свой SQL (и больше в программе его не трогайте!!!)
Чтобы менять данные "не трогая" сам запрос пишите параметры!!!
Чтобы не запутаться какой Query для чего НАЗОВИТЕтак чтобы было понятно зачем они(что они делают),
например QueryInsert / QuertSelectMaster / QuerySelectDetail .

ВСЕ написанное есть в ЛЮБОЙ книге по Delphi + Базы данных. (В т.ч. и правила работы с параметрами и настройка связей Master -Detail)
В каждом разделе форума есть прикрепленная тема со списками литературы.
На главной странице есть КНИГИ Delphi
то что версия Delphi "устарела" не играет большой роли принципы работы остались теми же. (те же параметры, те же наборы данных, те же связи между ними).

Для новичков SQL есть Грубер Понимание SQL.
Писать ЗДЕСЬ конспекты книг мало толку, понимания что и зачем так и не придет.

[Ernest027]

Значит нечего вставлять. Значит твой select, который ты используешь в INSERT-е дает пустой набор. Ну это не ошибка программы, просто данных для вставки нет.

В таблице 2 (Form11) есть одна запись которой нет в таблице 1 (Form1). А он ее не вставляет(((

Я же просил тебя - сделай ты для вставки отдельный компонент.

То есть сделать как говорит evg_m

добавьте в DataModule ОДИН ADOconnection (Если его там еще нет!!!) и потом ADOQuery столько раз сколько разных запросов вы собираетесь делать.

Спасибо вам большое ребята))) знаю что вы мне пальцы поотрубали чтобы не осквернять форум и Делфи)))

Для новичков SQL есть Грубер Понимание SQL.

Спасибо,скачаю)

Locate не работает, а так все норм)))

with DataModule2.ADOQuery3 do
begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from Oborudovanie');
    SQL.Add('where [Оперативный номер] = '+QuotedStr(Edit1.Text));
    Open;
end;

[Аватар]

Locate не работает

Да все с ним Ok. Вот руки-крюки это да

[Ernest027]

не исключено))) мне запросом тоже нравится)))

вам покажется ооооочень коряво, но оно работает)))

while not DataModule2.ADOQuery6.Eof do
begin
with DataModule2.ADOQuery3 do
begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from Oborudovanie');
    SQL.Add('where [Оперативный номер] = '+QuotedStr(DataModule2.ADOQuery6.FieldByName('Оперативный номер').AsString));
    Open;
end;
if DataModule2.ADOQuery6.FieldByName('Оперативный номер').AsString<>DataModule2.ADOQuery3.FieldByName('Оперативный номер').AsString then
begin
DataModule2.ADOQuery3.Edit;
DataModule2.ADOQuery3.FieldByName('Оперативный номер').AsString:=DataModule2.ADOQuery6.FieldByName('Оперативный номер').AsString;
DataModule2.ADOQuery3.Post;
DataModule2.ADOQuery6.Next;
end
else
DataModule2.ADOQuery6.Next;
end;
DataModule2.ADOQuery3.SQL.Clear;
DataModule2.ADOQuery3.SQL.Add('select * from Oborudovanie where ZavodID=:ZavodID');
DataModule2.ADOQuery3.Open;

Спасибо вам всем большое)))

[Stilet]

знаю что вы мне пальцы поотрубали чтобы не осквернять форум и Делфи)

То ли еще будет - ой ой ой...
Пинков, пока опыта не наберешься, получишь достаточно типа "Копать отсюда и до вечера", так что эта тема - мелочи жести.

но оно работает)

Запросом было бы быстрее. А так - чисто отмазаться от препода.
Да и оптимизировать можно:

with DataModule2.ADOQuery3 do begin
 ADOQuery6.first;
 while not ADOQuery6.Eof do begin

  with ADOQuery3 do begin
    Close;
    SQL.Clear;
    SQL.Add('select *');
    SQL.Add('from Oborudovanie');
    SQL.Add('where [Оперативный номер] = '
           +QuotedStr(ADOQuery6.FieldByName('Оперативный номер').AsString));
    Open;
  end;

  if ADOQuery6.FieldByName('Оперативный номер').AsString<>ADOQuery3.FieldByName('Оперативный номер').AsString 
  then   begin
   ADOQuery3.Insert;
   ADOQuery3.FieldByName('Оперативный номер').AsString:= ADOQuery6.FieldByName('Оперативный номер').AsString;
  end; 

  ADOQuery6.Next;
 end;
 ADOQuery3.Post;

 ADOQuery3.SQL.Text:=('select * from Oborudovanie where ZavodID=:ZavodID');
 ADOQuery3.Open;
end;

Но! В этом коде зарыто одно ма-а-а-ленькое, но огромное НО!
Ты из Oborudovanie отбираешь набор, а потом даже не проверяешь пустой он или нет, не говоря уже о ситуации, когда этот запрос вернет несколько записей. Это ты не учитываешь, а зря. Это грабли. Причем с огроменными шпичками. Бо-бо будет однажды
Поэтому садись назад за запросы и изучай INSERT

[Ernest027]

Ты из Oborudovanie отбираешь набор, а потом даже не проверяешь пустой он или нет

это я сделаю))) кстати,он не ругается что записи пустые.

Поэтому садись назад за запросы и изучай INSERT

буду изучать))) пока так пойдет, я и этому ох как обрадовался)))

А так - чисто отмазаться от препода

не студентик я))) сам для себя пишу)))
А вам всем еще раз спасибо)))

[Stilet]

он не ругается что записи пустые.

Потому что ты не поставил условие обязательно быть не пустыми.

пока так пойдет

Да по любому
14173797986022.jpg

сам для себя пишу)

Значит так. За изобретение ставлю пять, а за экзамен...
Безымянный.jpg

[Ernest027]

проверку сделаю)))