Выборка и подстановка данных.

[HIC]

Существуют две таблицы tbl1 и tbl2. Обе таблицы содержат идентичные поля с кодами продукции: code1, code2, code3 и поле с наименованиями продукции: name. tbl2 является справочником и содержит все коды и наименования продукции. tbl1 содержит несколько строк с кодами, а поле name пустое. Нужно в tbl1 в соответствии с кодами подставить наименования из tbl2.

У меня код такой:

Query1.First;
  while not Query1.Eof do
    begin
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Add('SELECT name');
      Query2.SQL.Add('FROM tbl2');
      Query2.SQL.Add('WHERE code1 LIKE ' + Query1['code1']);
      Query2.SQL.Add('AND code2 LIKE ' + Query1['code2']);
      Query2.SQL.Add('AND code3 LIKE ' + Query1['code3']);
      Query2.Open;

      Query1.Edit;
      Query1['name'] := Query2['name'];
      Query1.Post;
          
      Query1.Next;
    end;

Ошибок он не выдает, но и наименования не вставляет. Поможите, кто чем сможет. Юзаю D7, ADO, таблицы *.dbf

[АНК]

Смотри Query1.FieldByName('code1').AsString

  Query1.First;
  while not Query1.Eof do
    begin
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Add('SELECT name');
      Query2.SQL.Add('FROM tbl2');
      Query2.SQL.Add('WHERE code1 LIKE ''' + Query1.FieldByName('code1').AsString + '''');
      Query2.SQL.Add('AND code2 LIKE ''' + Query1.FieldByName('code2').AsString + '''');
      Query2.SQL.Add('AND code3 LIKE ''' + Query1.FieldByName('code3').AsString + '''');
      Query2.Open;

      Query1.Edit;
      Query1.FieldByName('name').AsString := Query2.FieldByName('name').AsString;
      Query1.Post;

      Query1.Next;
    end;

А лучше сделать запрос в Query2 с параметрами и не надо будет заморачиваться с кавычками.

[Crazy_Wolfy]

целесообразнее использовать процедуру
название_таблицы.Locate(перечень_по лей_поиска,перечень_вариантов_соотв етственно_полям,параметры_поиска);
вместо столь частого использования SQL запросов

ADOTable1.First;
  while not ADOTable1.Eof do
    begin
ADOTable2.Locate('code1;code2;code3',VarArrayOf(ADOTable1.FieldByName('code1').AsInteger,ADOTable1.FieldByName('code2').AsInteger,ADOTable1.FieldByName('code3').AsInteger),[loCaseInsensitive]);
      ADOTable1.Edit;
      ADOTable1.FieldByName('name').AsString := ADOTable2.FieldByName('name').AsString;
     ADOTable1.Post;
          
    ADOTable1.Next;
    end;

что-то вроди этого должно получиться. только нужно в uses добавить DB.
вроди должно работать. точно не могу сказать. писал только тут. делать все в живую нет желания.

[HIC]

АНК, ты прав. Для строковых значений нужны кавычки. Вот я балбес.

Crazy_Wolfy, интересное предложение. Проблема в том, как правильно оформить массив ключевых значений. Поля с кодами строковые. У меня пока твоим способом не получается.

[Evgeniy26]

 
  ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    ADOTable2.Locate('code1;code2;code3',VarArrayOf([ADOTable1.FieldByName('code1').AsVariant,
      ADOTable1.FieldByName('code2').AsVariant,ADOTable1.FieldByName('code3').AsVariant]),[loCaseInsensitive]);
    ADOTable1.Edit;
    ADOTable1.FieldByName('name').AsString := ADOTable2.FieldByName('name').AsString;
    ADOTable1.Post;
    ADOTable1.Next;
  end;

Что за СУБД?

[soleil@mmc]

ну ваще-то лучше использовать условие

if ADOTable2.Locate(..) then begin
  //отапдейтить поле name
 .....
end;

потому что даже если локейт не удался, то курсор будет стоять на какой-то записи с каким-то значением name и совсем не той комбинацией ключевых полей

если же рассматривать вариант с морем запросов, то нужно брать строго условие равенства, а не через лайк и, как правильно подметил АНК, не забывать заключать в кавычки

Query2.SQL.Add('WHERE code1 = ''' + Query1.FieldByName('code1').AsString + '''');

[Evgeniy26]

soleil@mmc, вы правы. Я посмотрел на VarArrayOf. Надо быть внимательнее. В T-SQL СУРБД 2005-2008, если я не ошибаюсь можно использавать DML(UPDATE ....JOIN...) точно синтаксис не помню, домой приду посмотрю.

[soleil@mmc]

я так понял, что тут просто DBF-файлы
в нормальных СУБД уже и MERGE есть - так что поставленная задача решается одним запросом

[Evgeniy26]

Я не стал говорить про MARGE, т.к. необходимо отредактировать записи существующие и все. А MARGE целесообразней использовать когда нужно использовать несколько операторов DML. Хотя разницы нет. ???

[HIC]

Спасибо за помощь, ребят. Все получилось. Locate работает даже немного быстрее запроса, на мой взгляд.