三层结构
服务端保存函数
procedure TJXCSERVER.WriteData(Delta: OleVariant;
out Pmsg: WideString);
var
ErrorCount:integer;
begin
try
try
TYPEADOQuery.Open;
TYPEDataSet.ApplyUpdates(Delta,0,ErrorCount);
//Sleep(8000);
Pmsg:='保存成功';
except
Pmsg:='保存失败';
raise;
end;
finally
TYPEADOQuery.Close;
end;客户端调用保存函数
SOCKETCONNECTION.AppServer.WriteData(CLIENTDATASET.DELTA,Pmsg);
服务端保存函数
procedure TJXCSERVER.WriteData(Delta: OleVariant;
out Pmsg: WideString);
var
ErrorCount:integer;
begin
try
try
TYPEADOQuery.Open;
TYPEDataSet.ApplyUpdates(Delta,0,ErrorCount);
//Sleep(8000);
Pmsg:='保存成功';
except
Pmsg:='保存失败';
raise;
end;
finally
TYPEADOQuery.Close;
end;客户端调用保存函数
SOCKETCONNECTION.AppServer.WriteData(CLIENTDATASET.DELTA,Pmsg);
现在调用保存函数提示'保存成功',但实际并没有POST到SQL数据库里,当刷新CLIENTDATASET数据就变回原样了,我想应该是APPLYUPDATE时有错误,现在我要捕抓这个错误信息,如何做,(复制网上的就不要回了,因为我以看过,我需要的是真正的见解和事例)分数不够我另开贴再加