база mdb подключаюсь через ADO
код SQL| Код |
update stoim_obj set ost_bal_st=:ost,vost_st=:vost,iznos=:iznos
where id_obj=:id
|
код проги
| Код |
procedure tform1.Button1Click(Sender: TObject);
var
inv:string;
i:integer;
ost,vost,iznos,id:variant;
begin
for i:=1 to adoquery2.RecordCount do
begin
if pos('01/7',adoquery2.FieldValues['счет'])=0 then
begin
inv:=adoquery2.FieldValues['номер'];
inv:=copy(inv,1,1)+copy(inv,3,7);
adotable1.Filter:='inv_nomer='''+inv+'''';
adotable1.Filtered:=true;
if adotable1.recordcount>0 then
begin
id:=adotable1.FieldValues['id_zdan'];
ost:=adoquery2.FieldValues['Остаточная стоимость (бухгалтерская оценка)'];
vost:=adoquery2.FieldValues['Начальная стоимость (бухгалтерская оценка)'];
iznos:=vost-ost;
adoquery1.Parameters.ParamValues['ost']:=ost;
adoquery1.Parameters.ParamValues['vost']:=vost;
adoquery1.Parameters.ParamValues['iznos']:=iznos;
adoquery1.Parameters.ParamValues['id']:=id;
adoquery1.ExecSQL;
ost:=0;
vost:=0;
iznos:=0;
id:=0;
end;
end;
adoquery2.Next;
end;
end;
|
где-то на третьем объекте выдается ошибка:несоответствие типов данных в выражении условия отбора
кто-нибудь сталкивался с этим? |