下面的代码依旧正常。 with Query1 do
begin
Close;
SQL.Text := 'update "customer.db" set Addr2 = :a where CustNo=:b';
ParamByName('a').AsString := 'Deep Sorrow';
ParamByName('b').AsInteger := 1354;
ExecSQL;
SQL.Text := 'select * from "customer.db"';
Open;
end;
begin
Close;
SQL.Text := 'update "customer.db" set Addr2 = :a where CustNo=:b';
ParamByName('a').AsString := 'Deep Sorrow';
ParamByName('b').AsInteger := 1354;
ExecSQL;
SQL.Text := 'select * from "customer.db"';
Open;
end;
看来只有直连oracle才会有这问题,不知哪位朋友有解决该问题相关经验,给分不是问题。