Вызов хранимой процедуры PostgreSQL, возвращающей множество

[Samyrro054]

Здравствуйте, подскажите, как в VBA вызвать функцию PostgreSQL, возвращающую множество. Стандартным способ через запись в Recordest не получается, выдаёт ошибку: "Функция, возвращающая множество, вызвана в контексте, где ему нет места".

Код: (vb)

Private Sub CommandButton1_Click()
Dim MyConnect As String
Set ConnPGSQL = New ADODB.Connection
DoEvents
UPSQL = Trim(Auth.TextBox3.Text)
PPSQL = Trim(Auth.TextBox4.Text)
PGServer = Trim(Auth.TextBox1.Text)
pgDB = Trim(Auth.TextBox2.Text)
MyConnect = "Provider=MSDASQL.1;Password=" & PPSQL & ";Persist Security Info=True;User ID=" & UPSQL & ";Extended Properties='DRIVER={PostgreSQL ANSI};DATABASE=" & pgDB & ";SERVER=" & PGServer & ";PORT=5432;UID=" & UPSQL & ";PWD=" & PPSQL & ";SSLmode=disable;ReadOnly=1;Protocol=7.4;FakeOidIndex=0;ShowOidColumn=0;RowVersioning=0;ShowSystemTables=0;ConnSettings=;Fetch=100;Socket=4096;UnknownSizes=0;MaxVarcharSize=255;MaxLongVarcharSize=8190;Debug=0;CommLog=0;Optimizer=1;Ksqo=1;UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0;BoolsAsChar=1;Parse=0;CancelAsFreeStmt=0;ExtraSysTablePrefixes=dd_;LFConversion=1;UpdatableCursors=1;DisallowPremature=0;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=0;UseServerSidePrepare=0;LowerCaseIdentifier=0;XaOpt=1;AB=10;';Initial Catalog=" & pgDB

If ConnPGSQL.State <> adStateOpen Then
   With ConnPGSQL
    .Mode = adModeRead
    .CursorLocation = adUseClient
    .Open MyConnect
    End With
End If

Dim RCSTemp As New ADODB.Recordset
Dim sQ As String
sQ = "SELECT find_all('380999999999')"
RCSTemp.Open sQ, ConnPGSQL, adOpenDynamic, adLockBatchOptimistic, adCmdText
TextBox1.Text = Trim(RCSTemp.Fields(0).Value)

End Sub

[Дмитрий Щербаков(The_Prist)]

Ищите ошибку в функции. Возможно, там внутри неправильно применен агрегатор или вывод сделан изначально неправильно.
В любом случае проблема в самой функции и нужен её текст тоже.

[Samyrro054]

Ошибка не в функции это точно. Есть программа которая успешно её использует, но у меня нет исходников этой проги, чтобы узнать, как она получает данные из запроса

[Дмитрий Щербаков(The_Prist)]

Ошибка не в функции это точно

откуда такая уверенность? Может эта функция просто не предназначена для использования так, как Вы хотите? Для начала надо хотя бы понимать что вообще функция возвращает и в каком виде, а уже потом пробовать применять.

программа которая успешно её использует

Видимо, она правильно её использует, передает правильные параметры и возможно, вообще не через Recordset это делает.
Вы кроме этого текста "Функция, возвращающая множество, вызвана в контексте, где ему нет места" никаких дополнительных данных об ошибке не получаете? И на какой строке? Сразу на Open?

Я бы вообще посоветовал на более профильный форум обратиться(по SQL). Хотя без текста функции вероятность получения ответа стремится к нулю.

[Samyrro054]

Ошибка сразу на Open, функция ОЧЕЕЕНЬ большая и сложная, это БД какой-то корпорации, она связана с большим кол-вом других больших функций. Но её суть одна - она собирает кучу данных из разных таблиц и в теле функции много раз написано select собранная инфа INTO _result; RETURN NEXT _result;