Lotsia PLM: Форум по семейству систем PLM/PDM/TDM/ERP/Workflow

Код: Выделить всё

  Dim lCon,lRecSet
  Set lCon = GetADOConnect()
  Set lRecSet = LCon.Execute("CALL lsdbo.xpGetArray... ? 

Код: Выделить всё

  Dim lCon,lRecSet,sql
  Set lCon = GetADOConnect()
  Set lRecSet = CreateObject("ADODB.RecordSet")
  sql="CALL lsdbo.xpGetArray...
  lRecSet.Open sql,lCon

Код: Выделить всё

  Dim lCon,lRecSet,sql
  Set lCon = GetADOConnect()
  Set lRecSet = CreateObject("ADODB.RecordSet")
  sql="SELECT * FROM lsdbo.xpGetArray(...
  lRecSet.Open sql,lCon

Код: Выделить всё

CREATE FUNCTION LSDBO.GetRezFromBase 
(	
	-- Add the parameters for the function here
	@p1 int, 
	@p2 char
)
RETURNS TABLE 
AS
RETURN 
(
	SELECT * from ........
)
GO

Код: Выделить всё

select * from LSDBO.GetRezFromBase(1,2)

Код: Выделить всё

ALTER  function [LSDBO].[Ric........
        (@Obj_Mnemo char(256) )
Returns table
 as
  return
( 
  SELECT 
         vv0.value AS ...,
         vv1.value AS ...,
         vv2.value AS ...,
         vv3.value AS ...
...
)

Код: Выделить всё

f_EmbeddedSQLSelect ( this , 'select pRating, pObjDescr, pAtrVendor, 0 as pBt, pObjID from LSDBO.Ric...(~''+ vProductTypeCurrent +'~') Order by  '+ if( p_TOP=0,'pObjDescr','pRating desc, pObjDescr') , '' , 'pFormPrice' )
f_RetrieveForm ( this , '' ,  'pFormPrice'  )