请测试
with DataModule1.ADOQuery2 do
begin
Close;
SQL.Clear ;
SQL.Add(sqlstr);
SQL.Add('Update tree');
SQL.Add('set NumberID=:NumID,Textstr=:Textx,UnitNum=:Unitx,SizeNum=:Sizex,Numberfield=:numberstr,DateNum=:Datex,Manufacturer=:manufac,MemoStr=:Memox,ParentSoft=:parentsoftx');
SQL.Add('where IDxx like '':hby''');
parameters.ParamByName('NumID').Value :=NumID;
parameters.ParamByName('Textx').Value :=Textx;
parameters.ParamByName('Unitx').Value :=Unitx;
parameters.ParamByName('Sizex').Value :=Sizex;
parameters.ParamByName('Numberstr').Value :=numberstr;
parameters.ParamByName('Datex').Value :=Datex;
parameters.ParamByName('manufac').Value :=manufac;
parameters.ParamByName('Memox').Value :=Memox;
parameters.ParamByName('parentSoftx').Value :=parentsoftx;
parameters.ParamByName('hby').Value :=IDx;
Prepared:=true;
ExecSQL;
end;
with DataModule1.ADOQuery2 do
begin
Close;
SQL.Clear ;
SQL.Add(sqlstr);
SQL.Add('Update tree');
SQL.Add('set NumberID=:NumID,Textstr=:Textx,UnitNum=:Unitx,SizeNum=:Sizex,Numberfield=:numberstr,DateNum=:Datex,Manufacturer=:manufac,MemoStr=:Memox,ParentSoft=:parentsoftx');
SQL.Add('where IDxx like '':hby''');
parameters.ParamByName('NumID').Value :=NumID;
parameters.ParamByName('Textx').Value :=Textx;
parameters.ParamByName('Unitx').Value :=Unitx;
parameters.ParamByName('Sizex').Value :=Sizex;
parameters.ParamByName('Numberstr').Value :=numberstr;
parameters.ParamByName('Datex').Value :=Datex;
parameters.ParamByName('manufac').Value :=manufac;
parameters.ParamByName('Memox').Value :=Memox;
parameters.ParamByName('parentSoftx').Value :=parentsoftx;
parameters.ParamByName('hby').Value :=IDx;
Prepared:=true;
ExecSQL;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货