with TADOQuery.Create(nil) do
begin
try
Close;
SQL.Clear;
SQL.Add('update 新生表 set 公寓代码=:no1 where 姓名=:name1');
Parameters.ParamByName('no1').Value := StrToInt(cbb1.Text); //说这里找不到参数no1
Parameters.ParamByName('name1').Value := qry1.FieldByName('姓名').AsString;
ExecSQL;
finally
Free;
qry1.Refresh;
end;
end;
求解
begin
try
Close;
SQL.Clear;
SQL.Add('update 新生表 set 公寓代码=:no1 where 姓名=:name1');
Parameters.ParamByName('no1').Value := StrToInt(cbb1.Text); //说这里找不到参数no1
Parameters.ParamByName('name1').Value := qry1.FieldByName('姓名').AsString;
ExecSQL;
finally
Free;
qry1.Refresh;
end;
end;
求解
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货