谁看过李维的《Delphi 5.X ADO_MTS_COM+高级程序设计篇》这本书?
书的第九章中,关于更新数据库的一段代码,在mts中用As_Applyupdates更新数据,这段的代码对么?为什么编译不过去,另外,书中也没有提到UPdata的客户端代码怎么写,谁知道。
procedure TmtsUpdateCoorObj.UpdateBooks(vDatas: OleVariant;iMaxError: Integer;var iErrorCount: Integer);
var
ServerObj : IAppServer;
OwnerData : OleVariant;
begin
try
ServerObj := FMyDM.dcomcBooks.AppServer as IAppServer;
IAppServer.AS_Applyupdates('dspBooks', vDatas, iMaxError,iErrorCount, OnwerData);
SetComplete;
except
SetAbort;
end;
end;