Saludos a Todos
Llevo varios dias intentando entrar en el mundo de SQl con FWH8.10(me alegra tenerlo) y xharbour y mi intencion es cargar el resultado obtenido por un store procedure en un recordset, he navegado tratando de encontrar la forma de hacerlo y aun no logro lo que deseo. la parte en concreto es la siguiente:
// ---- Conexion al SQL -------
oConnection := TOleAuto():New( "ADODB.Connection" )
TRY
oConnection:Open("Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
CATCH oErr
MsgAlert( "Error de CONEXION con la Base de Datos..." )
FreeLibrary(hRec)
RETURN nil
END TRY
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenDynamic
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oCmd:= TOleAuto():New( "ADODB.Command" )
oCmd:CommandType := adCmdStoredProc
oCmd:CommandText:= "sp_Menu"
oCmd:Activeconnection:=oConnection
oRs:Open(oCmd:Execute())
MsgAlert(oRs:RecordCount())
y el resultado que me muestra la ultima linea es (-1) con lo cual concluyo que el store no se ejecuta, el store sp_Menu es algo simple y es como sigue:
CREATE PROCEDURE sp_Menu
AS
SELECT * FROM MLC00 ORDER BY CNIV, COPC
GO
Agradecere me puedan apoyar indicando que estoy haciendo mal, y como debo trabajar Stores procedures y Recordset
Saludos
Luis