中间层:
procedure TGasServerRemoteDataModule.ExecProc(const Param_time:WideString);
begin
StoredProc1.ParamByName('STRTIME').AsString := Param_time;
StoredProc1.Prepare;
StoredProc1.ExecProc;
end;客户端:
DCOMConnection1.Connected := True;
DComConnection1.AppServer.ExecProc('200301');
procedure TGasServerRemoteDataModule.ExecProc(const Param_time:WideString);
begin
StoredProc1.ParamByName('STRTIME').AsString := Param_time;
StoredProc1.Prepare;
StoredProc1.ExecProc;
end;客户端:
DCOMConnection1.Connected := True;
DComConnection1.AppServer.ExecProc('200301');
DatabaseName : ORACLE_DB
StoredProcName :PROCEDURE_GUANDAO
2.我在应用程序服务器中写了一个方法,使用TStoredProc控件来运行这个存储过程,实现的代码写在remote data module中。
3.在客户端调用这个方法,传入参数,执行存储过程。