create or replace procedure mainstore."DT_GX_CCGC"(
GX_TPYE IN number,
GX_TIME IN date,
GX_id out number
)
AS
BL_TIME Date;
OraStoredProc3.StoredProcName := 'mainstore.DT_GX_CCGC';
OraStoredProc3.PrepareSQL;
OraStoredProc3.ParamByName('GX_TPYE').Value := '3';
OraStoredProc3.ParamByName('GX_TIME').Value:=FormatDateTime('YYYY-MM-DD',Now);
OraStoredProc3.Execute;
Result:=OraStoredProc3.ParamByName('GX_id').AsString;为什么 我返回值是空呢?
GX_TPYE IN number,
GX_TIME IN date,
GX_id out number
)
AS
BL_TIME Date;
OraStoredProc3.StoredProcName := 'mainstore.DT_GX_CCGC';
OraStoredProc3.PrepareSQL;
OraStoredProc3.ParamByName('GX_TPYE').Value := '3';
OraStoredProc3.ParamByName('GX_TIME').Value:=FormatDateTime('YYYY-MM-DD',Now);
OraStoredProc3.Execute;
Result:=OraStoredProc3.ParamByName('GX_id').AsString;为什么 我返回值是空呢?
with OraStoredProc3 do
begin
StoredProcName := 'mainstore.DT_GX_CCGC';
prepare;
ParamByName('GX_TPYE').Value := '3';
ParamByName('GX_TIME').Value:=FormatDateTime('YYYY-MM-DD',Now);
prepare;
execproc;
getresults;
Result:=ParamByName('GX_id').AsString;
end;
OraStoredProc3.Prepare;
OraStoredProc3.ParamByName('GX_TPYE').Value := '3';
OraStoredProc3.ParamByName('GX_TIME').Value:=FormatDateTime('YYYY-MM-DD',Now);
OraStoredProc3.Prepare;
OraStoredProc3.ExecProc;
Result:=OraStoredProc3.ParamByName('GX_id').AsString;改成跟您一样了。。 我怎么还是获得不到值?
而用您的就好使?
就那个Tstoredproc会没有这方法?
我用的dlphi6
这个是oracle access -》OraStoredProc3