Необходимо реализовать перебор и 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;
|
|