Подскажите, плз, где ошибка. Есть процедура на Оракле с одним входящим параметром. Проверял на Оракле возвращает нужное значение.
Хочу получить данные в Гриде.
Ругает MSHFlexGrid, хотя аналогичная процедура в СКЛ Сервере 2000 работает.


Private Sub Command3_Click()

Dim rst As ADODB.Recordset
Set rst = New Recordset

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter

pasword = "A1"
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=" & pasword & ";Persist Security Info=False;User ID=AISOIL;Data Source=AIS2"

Set cmd = New ADODB.Command
cnn.Open
Set cmd.ActiveConnection = cnn
cmd.CommandText = "KLIENT_1"
cmd.CommandType = adCmdStoredProc

NomerSpisok = 2 '----- Посылаем параметр

Set rst.ActiveConnection = cnn
Set prm = cmd.CreateParameter("NUM", adInteger, adParamInput, , NomerSpisok)
cmd.Parameters.Append prm

Set rst = cmd.Execute()
Set MSHFlexGrid1.Recordset = rst '-- Ругает,....

rst.Close

End Sub

------------------ Оракл - ХП

CREATE OR REPLACE PROCEDURE Klient_1(NUM IN NUMBER)
IS
IN_KLIENT VARCHAR2(30);
BEGIN
SELECT NAIMKLIENT INTO IN_KLIENT FROM KLIENT
WHERE KLIENT.idklient=NUM;
DBMS_OUTPUT.put_line('Это клиент- '||IN_KLIENT);
END KLIENT_1;

Так схема в строке подключения, или еще где надо?
User ID=AISOIL

Спасибо всем откликнувшимся. Ошибка в присоединненом файле.
Действительно нельзя так просто вернуть весь рекордсет из ХП.
Что просто в СКЛ. Никакой из Гридов бейсика с этим не хочет работать.

to bob
Как в Бейсике вызвать - подключить к одному из указанных Вами Гридов. Как вернуть из
Оракла весь сформированный набор?
В форуме по Ораклу подсказали что процедуру надо формировать так

CREATE PROCEDURE MyProc(MyParam in number, RS OUT SYS_REFCURSOR)
IS
begin
OPEN RS FOR
SELECT *
FROM MyTable
WHERE ID = MyParam;
END MyProc;

У меня под 8-й ОРА это не компилирует. В СКЛ плюсе говорит,
что процедура откомпилирована но с ошибками.
Может это только под 9-й.
Кто знает? Как тогда быть?