VPF::переход к следующему элементу

dize

Дата 6.10.2009, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Необходимо реализовать перебор и update всех элементов выборки ADOQ_g.

Код


var
sql:string;
    begin
  ADOQ_g.Close;
  ADOQ_g.SQL.Text:='SELECT Dengi_b.Kod_klienta, Dengi_b.id_group FROM Dengi_b WHERE (Dengi_b.id_group Is Not Null)'+'AND (Kod_klienta = :Kod_klienta)'+'AND (id_group = :id_group)';
  ADOQ_g.Parameters.ParamByName('Kod_klienta').Value:=mainmenu.Nomerr.FieldByName('Kod_klienta').AsString;
  ADOQ_g.Parameters.ParamByName('id_group').Value:=mainmenu.Nomerr.FieldByName('id_group').AsInteger;
  ADOQ_g.Active:=True;

//  showmessage(ADOQ_g.Parameters.ParamByName('id_group').Value);

    sql:= 'UPDATE Dengi Set Dengi.id_group="'+ADOQ_g.Parameters.ParamByName('id_group').Value+'" WHERE Dengi.Kod_klienta="'+ADOQ_g.Parameters.ParamByName('Kod_klienta').Value+'"';
    ADOQ_g.Close;
    ADOQ_g.SQL.Clear;
    ADOQ_g.SQL.Text:=sql;
    ADOQ_g.ExecSQL;
    end;

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

dvamaster

Дата 6.10.2009, 12:21 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: нет
Всего: 10

Вопрос
mainmenu.Nomerr.FieldByName('Kod_klienta').AsString;

mainmenu - юнит?
Nomerr - запрос?

если так, то...

Код


  mainmenu.Nomerr.First;
  while not mainmenu.Nomerr.Eof do
    begin
      // здесь все что между бегином и ендом
      mainmenu.Nomerr.Next
    end;

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

dize

Дата 6.10.2009, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

dvamaster, спасибо =)

--------------------

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »