[Kis]

Всем добра! Проблема такая...есть 2 adoquery. в обоих есть столбец с данными "ГН". Нужно сделать так чтобы в адо2 выгрузилось время которое соответсвует "ГН" в адо1. в адо2 "ГН" в 4 столбце, в адо1 "ГН" во 2 столбце, "время" указано в 4 столбце. Нужно данные из столбца 4 адо1 соответствующие "ГН" записать в столбец 5 адо2. С циклами у меня туго, поогите пожалуйста написать код

[poli-smen]

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

Всем добра! Проблема такая...есть 2 adoquery. в обоих есть столбец с данными "ГН". Нужно сделать так чтобы в адо2 выгрузилось время которое соответсвует "ГН" в адо1. в адо2 "ГН" в 4 столбце, в адо1 "ГН" во 2 столбце, "время" указано в 4 столбце. Нужно данные из столбца 4 адо1 соответствующие "ГН" записать в столбец 5 адо2. С циклами у меня туго, поогите пожалуйста написать код

Такое лучше делать не циклами, а SQL запросом.

Циклами так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    if ADOQuery2.Locate('ГН', ADOQuery1['ГН'], []) then
    begin
      ADOQuery2.Edit;
      ADOQuery2['Время'] := ADOQuery1['Время'];
      ADOQuery2.Post;
    end;
    ADOQuery1.Next;
  end;
end;

[Kis]

сделал как ты посоветовал, но он у меня не находит идентичные гаражные...проверял через точку остановы. у меня запрос из базы организуется с обрезанием имени "ГН"

Код:

ADOQuery1.SQL.Add('select * from (SELECT *, IIF(unit = "Ñ÷èòûâàòåëü 2-2", "çàåçä", "âûåçä") as new_str, mid(name,10) as new_str1 FROM events where events.message = "ïðîõîä ñîâåðøåí")order by new_str1');

т.е. в оригинале имя выглядит "987\77676 876", а в кверике "876". может быть в этом проблема?

[poli-smen]

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

сделал как ты посоветовал, но он у меня не находит идентичные гаражные...проверял через точку остановы. у меня запрос из базы организуется с обрезанием имени "ГН"

Код:

ADOQuery1.SQL.Add('select * from (SELECT *, IIF(unit = "Считыватель 2-2", "заезд", "выезд") as new_str, mid(name,10) as new_str1 FROM events where events.message = "проход совершен")order by new_str1');

т.е. в оригинале имя выглядит "987\77676 876", а в кверике "876". может быть в этом проблема?

Да. Сопоставление производи по идентичным полям в обоих ADOQuery.

И ещё у метода Locate есть параметр loPartialKey который позволяет искать по частичному совпадению:

Код:

ADOQuery2.Locate('ГН', ADOQuery1['ГН'], [loPartialKey]);

[Kis]

для проверки ввел две переменные, в отладчике смотрю, они обе равны "103". Но все равно пробегает мимо бегина с эдитом

Код:

 begin
  ADOQuery2.First;
  while not ADOQuery1.Eof do
  begin
  d:= ADOQuery1['new_str1'];
  f:= ADOQuery2['garn'];
    if ADOQuery2.Locate('garn', ADOQuery1['new_str1'], []) then
    begin
      ADOQuery2.Edit;
      k := ADOQuery1['datetime'];
      ADOQuery2.Post;
    end;
    ADOQuery2.Next;
  end;
  end;

вставил поиск по части имени, тоже не помогло

[poli-smen]

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

для проверки ввел две переменные, в отладчике смотрю, они обе равны "103". Но все равно пробегает мимо бегина с эдитом

Эти поля целочисленного типа?
Попробуй так:

Код:

    if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsInteger, []) then

[Kis]

данные текстового типа. не помогает

[poli-smen]

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

данные текстового типа. не помогает

Если текстового то AsString вместо AsInteger.

[Kis]

если пишу так

Код:

  begin
  ADOQuery2.First;
  while not ADOQuery1.Eof do
  begin
  d:= ADOQuery1['new_str1'];
  f:= ADOQuery2['garn'];
    if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then
    begin
      ADOQuery2.Edit;
      k := ADOQuery1['datetime'];
      ADOQuery2.Post;
    end;
    ADOQuery2.Next;
  end;
  end;

то он теперь каждый раз заходит в бегин....если так

Код:

  begin
  ADOQuery2.First;
  while not ADOQuery1.Eof do
  begin
  d:= ADOQuery1['new_str1'];
  f:= ADOQuery2['garn'];
    if ADOQuery2.Locate(adoquery2.fieldbyname('garn').AsString, ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then
    begin
      ADOQuery2.Edit;
      k := ADOQuery1['datetime'];
      ADOQuery2.Post;
    end;
    ADOQuery2.Next;
  end;
  end;

то опять пролетает...

[poli-smen]

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

если пишу так

Код:

.....
    if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then
    begin
.....

то он теперь каждый раз заходит в бегин....

Не каждый раз, а только пи частичном совпадении с "эталонным" полем 'garn'. Если в какой-то записи это поле пустое, то очевидно что частичное совпадение будет для любой строки и тогда действительно будет заходить каждый раз

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

если так

Код:

.....
    if ADOQuery2.Locate(adoquery2.fieldbyname('garn').AsString, ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then
    begin
.....

то опять пролетает...

Первым параметром в методе Locate должны быть перечислены через ';' имена полей по которым нужно искать, поэтому второй вариант однозначно неправильный.

[Kis]

т.е. если я правильно понимаю то правильно будет так?

Код:

 if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsString, []) then

в этом случае он постоянно заходит в бегин. поля garn и new_str1 точно не пустые!

[Kis]

причем навожу курсор на asstring в этой строке

Код:

  if ADOQuery2.Locate(adoquery2.fieldbyname('garn').AsString, ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then

, показывает одинаковые значения у полей...но не заходит в бегин

[poli-smen]

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

т.е. если я правильно понимаю то правильно будет так?

Код:

 if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsString, []) then

в этом случае он постоянно заходит в бегин. поля garn и new_str1 точно не пустые!

Вставь проверку:

Код:

if ADOQuery2.Locate('garn', ADOQuery1.FieldByName('new_str1').AsString, []) then
begin
  ShowMessageFmt('Я зашёл сюда, потому что в ADOQuery2 в записи №%d поле garn имеет значение "%s"'+
    ' и в ADOQuery1 в записи №%d поле new_str1 тоже имеет значение "%s"', [
    ADOQuery2.RecNo,
    ADOQuery2.FieldByName('garn').AsString,
    ADOQuery1.RecNo,
    ADOQuery1.FieldByName('new_str1').AsString
  ]);
.....

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

причем навожу курсор на asstring в этой строке

Код:

  if ADOQuery2.Locate(adoquery2.fieldbyname('garn').AsString, ADOQuery1.FieldByName('new_str1').AsString, [loPartialKey]) then

, показывает одинаковые значения у полей...но не заходит в бегин

Ещё раз повторю: первым параметром метода Locate должны быть имена полей, а не их содержимое.

[Kis]

Решил не использовать локейт...написал такой код

Код:

begin
  adoquery1.First;
  while not adoquery2.Eof do
    begin
    ADOQuery2.First;
    while not ADOQuery1.Eof do
      begin
      d:= ADOQuery1['new_str1'];
      f:= ADOQuery2['garn'];
      if f=d then
          begin
          ADOQuery2.Edit;
          adoquery2['fio2'] := ADOQuery1['datetime'];
          ADOQuery2.Post;
          end;
    ADOQuery2.Next;
      end;
    adoquery1.Next;
    end;
end;

теперь прога виснет...как я понял, я написал "вечный цикл"? помогите исправить, а то не пойму где ошибка

[Kis]

все решил, всем спасибо за помощь!