Недостаточные или не полные сведения о ключе

[Lotus_erlan]

Здраствуйте! У меня возникла проблема при выполнении кода

procedure TForm1.FindData(ii, n: integer);
var i,j: integer;
begin
ADOQuery2.First;

for i:=1 to ADOQuery2.RecordCount do
      begin
          ADOQuery1.First;

          for j:=1 to ADOQuery1.RecordCount do
           begin

                    if ((ADOQuery2.FieldByName('kod').AsString=ADOQuery1.FieldByName('kod').AsString) and (ADOQuery2.FieldByName('name').AsString='')) then
                         begin
                         ADOQuery2.Edit;
                         ADOQuery2.FieldByName('name').AsString:=ADOQuery1.FieldByName('name').AsString;
                         ADOQuery2.FieldByName('form').AsString:=ADOQuery1.FieldByName('form').AsString;
                         ADOQuery2.FieldByName('ed_izm').AsString:=ADOQuery1.FieldByName('ed_izm').AsString;
                         ADOQuery2.FieldByName('sred').AsString:=ADOQuery1.FieldByName('sred').AsString;
                         ADOQuery2.Post;
                         //ADOQuery2.Close;
                         end;
           //ADOQuery2.Open;
           ADOQuery1.Next;
           end;
           ADOQuery2.Next;
      end;

end;

Вылетает ошибка Недостаточные или не полные сведения о ключевом поле. Обновления влияет на слишком большое число строк

Понимаю что это ошибка вылетает от того что есть повторяющиеся значения в поле kod, но как этого можно избежать.

Задача стоит так:

Есть справочник в Excel:
kod | name | form | ed_izm | sred |
09289 |name1 |Триквилар® |таблетка |39,73 |
05471 |name2 |Аджисепт |стрип |5,76 |
03219 |name3 |Инфлюцид |шт. |10,44 |
05507 |name4 |Тонзилотрен |таблетка |13,14 |
11718 |name5 |Циннабсин |таблетка |13,6 |
11005 |name6 |Бонджигар |таблетка |38,21 |
06040 |name7 |Гинолакт |таблетка |10,07 |
03834 |name8 |Инсти |таблетка |14,25 |

И есть еще один файл в Excel
kod | name | form | ed_izm | sred |
09289 |name1 | | | |
05471 |name2 | | | |
03219 |name3 | | | |
05507 |name4 | | | |
05507 |name5 | | | |
05507 |name6 | | | |
06040 |name7 | | | |
06040 |name8 | | | |

Так вот нужно заполнить второй файл взяв значения полей из справочника, но как только программа находит совподение в поле KOD, вылетает ошибка. Но удалять совподающие значение в поле KOD категорически нельзя! Подскажите как решить данную задачу?

[Kotofff]

А ключевое поле назначено в таблицах в которых ведешь работу ?

[Lotus_erlan]

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

А ключевое поле назначено в таблицах в которых ведешь работу ?

Нет не назначено!!! Так что мне нужно сделать, если можно поподробнее?

Прекращайте ненужное цитирование предыдущих сообщений!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая правая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор

[Lotus_erlan]

Все, спасибо разобрался!!! Решение оказалось очень простым!!! Я просто добавил в exel файл столбец ID и проставил номерацию, и программа заработала! Но только вот результат придеться ждать довольно таки приличное время, примерно час выполняеться процедура! Записей в справочнике 5000 и во втором файле 6890!!!!

[Serge_Bliznykov]

вот результат придеться ждать довольно таки приличное время, примерно час выполняеться процедура! Записей в справочнике 5000 и во втором файле 6890!!!!

а позвольте поинтересоваться - таблицы в одной БД ?
Если да, то Вы выбрали КРАЙНЕ неэффективный путь!
update SQL решит эту проблему в считанные секунды(минуты)...

[Lotus_erlan]

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

а позвольте поинтересоваться - таблицы в одной БД ?
Если да, то Вы выбрали КРАЙНЕ неэффективный путь!
update SQL решит эту проблему в считанные секунды(минуты)...

Нет не какой БД нет, есть только два файла в EXCEL, один использую как справочник, втрой файл мне дали чтобы я его обработал используя этот справочник!

Прекращайте ненужное цитирование предыдущих сообщений!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
А кроме кнопки "Цитата" внизу есть простое окно для ввода своего сообщения.
Или маленькая правая кнопочка "Быстрый ответ" справа от кнопки "Цитата".
Попадаете туда же.
Модератор

[Serge_Bliznykov]

ясно. тогда понятно.
а тогда чем решение через формулы не устраивает?
=ВПР() в Excel решит Ваши проблемы. да и решение через VBA всё по шустрее будет...

кроме того, если в Вашем коде НЕ ПЕРЕБИРАТЬ все записи в ADOQuery1, а воспользоваться ADOQuery1.Locate, мне кажется работать будет намного быстрее...