[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 запросом.

Циклами так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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

Код:

1	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

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

Код:

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

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

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

Код:

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

[Kis]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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". Но все равно пробегает мимо бегина с эдитом

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

Код:

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

[Kis]

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

[poli-smen]

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

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

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

[Kis]

если пишу так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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

если пишу так

Код:

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

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

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

если так

Код:

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

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

[Kis]

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

Код:

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

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

[Kis]

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

Код:

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

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

[poli-smen]

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

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

Код:

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

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

Код:

1 2 3 4 5 6 7 8 9 10

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 в этой строке

Код:

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

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

[Kis]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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]

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