Но попробуй так:
Код: Выделить всё
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