Code: Select all
ZStoredProc1.Connection := OracleConnection;
ZStoredProc1.Params.CreateParam(ftLongWord, 'pGlobalID', ptResult);
ZStoredProc1.StoredProcName := 'GetNextGlobalID';
ZStoredProc1.Connection.Connect;
ZStoredProc1.ExecProc;
Code: Select all
ZStoredProc1.Connection := OracleConnection;
ZStoredProc1.StoredProcName := 'GetNextGlobalID';
ZStoredProc1.Params.CreateParam(ftLongWord, 'pGlobalID', ptResult);
ZStoredProc1.Connection.Connect;
ZStoredProc1.ExecProc;