условие в цикле

[demiware]

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

PHP код:

while not Datamodule3.ADOTable6.eof do
//    for i:=0 to Datamodule3.ADOTable6.RecordCount-1 do
    begin
    Datamodule3.ADOTable6.Edit;

    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='11' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p1;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='22' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p2;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='33' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p3; 


здесь должно быть Datamodule3.ADOTable6.Post;

PHP код:

    Datamodule3.ADOTable6.Next;
    end;
//    Datamodule3.ADOTable6.Post; 


Иначе нет никакого смысла в этом проходе по таблице - ничего никуда не сохраняется...

[govorun1]

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

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

вы поймите не видя кода и/или ошибки вам никто не поможет

С ЭТОЙ БЯКОЙ Я РАЗОБРАЛСЯ. МОЖЕТ НЕ СОВСЕМ ЦИВИЛИЗОВАННО, НО ВСЕ ЖЕ. Я УБРАЛ ТЕКСТ ЗАПРОСА ИЗ РЕДАКТОРА SQL И ВПЕНДЮРИЛ ЕГО В КОД.

    Datamodule3.ADOQuery7.SQL.Text:='INSERT INTO.....;
    Datamodule3.ADOQuery7.ExecSQL;
    Datamodule3.ADOQuery7.SQL.Text:='';
    Datamodule3.ADOTable6.Active:=false;
    Datamodule3.ADOTable6.Active:=true;

ТЕПЕРЬ ДРУГАЯ СЛОЖНОСТЬ

UPDATE PV_STR SET [Эквивалент]=K_VAL.[643]*PV_STR.[СУММА]WHERE PV_STR.[КОД ВАЛЮТЫ]=643

K_VAL.[643] НАХОДИТСЯ В ДРУГОЙ ТАБЛИЦЕ И ПОЛУЧАЕТСЯ ОШИБКА, ЧТО K_VAL.[643] НЕ ИМЕЕТ ЗНАЧЕНИЯ ПО УМОЛЧАНИЮ. НУЖНО КАК-ТО ПРОПИСАТЬ, ГДЕ БРАТЬ ЭТИ ДАННЫЕ, КАКОЙ-НИБУДЬ SELECT.
ВЫРУЧАЙТЕ...

[govorun1]

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

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

PHP код:

while not Datamodule3.ADOTable6.eof do
//    for i:=0 to Datamodule3.ADOTable6.RecordCount-1 do
    begin
    Datamodule3.ADOTable6.Edit;

    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='11' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p1;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='22' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p2;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='33' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p3; 


здесь должно быть Datamodule3.ADOTable6.Post;

PHP код:

    Datamodule3.ADOTable6.Next;
    end;
//    Datamodule3.ADOTable6.Post; 


Иначе нет никакого смысла в этом проходе по таблице - ничего никуда не сохраняется...

ЭТО УЖЕ ПРОЙДЕННЫЙ ЭТАП, НО ВСЕ РАВНО СПАСИБО ЗА КОМПЛИМЕНТ...
А ПРО 'POST' - КАК РАЗ СОХРАНЯЛОСЬ, ТОЛЬКО ВСЯКАЯ ХРЕНЬ

[eval]

так вы прочитайте про UPDATE вашей субд, как там заджойнить таблицы можно

[govorun1]

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

так вы прочитайте про UPDATE вашей субд, как там заджойнить таблицы можно

Если имеется в виду "связать таблицы" то мне это не годится.
Это не связанные таблицы. Связывать их как обычно в Access нельзя. Нужно что-то другое.

Или по другому никак?

[govorun1]

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

так вы прочитайте про UPDATE вашей субд, как там заджойнить таблицы можно

Мот что-нибудь такое

var
  x1 : real;
begin
  x1 := datamodule3.adotable9.fields.....;
  ADOQuery.SQL.Text := 'UPDATE PV_STR SET [Эквивалент]=x1*PV_STR.[СУММА]WHERE PV_STR.[КОД ВАЛЮТЫ]=643;
  ADOQuery.Parameters[0].Value := x1;
  ADOQuery.Open;

[eval]

я про sql а не про аксес

[govorun1]

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

я про sql а не про аксес

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

[govorun1]

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

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

НЕ ПОЙМУ, ЧЕГО ЗАПРОС ПОЛЕ 'СУММА' НЕ ВОСПРИНИМАЕТ

var
    D1:real;
begin
    D1:= STRTOFLOAT(DBEDITEH2.Text);
    Datamodule3.ADOQuery8.Active:=FALSE;
    Datamodule3.ADOQuery8.SQL.Text := 'UPDATE PV_STR SET [ЭКВИВАЛЕНТ]=:D1*[СУММА] WHERE [КОД ВАЛЮТЫ]=643';
    Datamodule3.ADOQuery8.Parameters[0].Value:=D1;
    Datamodule3.ADOQuery8.ExecSQL;
    Datamodule3.ADOTable6.Active:=false;
    Datamodule3.ADOTable6.Active:=true;
END;

[eval]

вместо того чтобы потратить пол часа на чтение как написать правильно апдейт, вы городите не пойми что и теряете на этом неделю. И вы еще про пенсию говорите..