Hola, soy novato en este tema de Bases de datos y estoy tratando de usar ADO y unir varias tablas con JOIN. Sigo el ejemplo de ADO que viene en Power Cobol y no logro ver como procesar el metodo "Ececute" en el objeto Command a find e obtener el objeto recordSet y leer la informacion. Alguien podria darme una guia de como hacerlo. Publico el codigo hasta donde llego.
Código COBOL:
MOVE POW-FALSE TO "Enabled" OF Load_Data
MOVE "ADODB.Connection" TO WK
INVOKE COM "CREATE-OBJECT" USING WK RETURNING CNNOBJ *>Open the ADODB.Connection object.
* Set the ADO Connection object to SQL Server Provider.
INVOKE CNNOBJ "SET-CursorLocation" USING WK-CURLOC
MOVE "Data Source=HotelnetDB;Initial Catalog=Rooms01" TO WK
INVOKE CNNOBJ "OPEN" USING WK
MOVE "ADODB.Command" TO WK
INVOKE COM "CREATE-OBJECT" USING WK RETURNING CMDOBJ *>Create ADODB.Command object.
INVOKE CMDOBJ "SETREF-ActiveConnection" USING CNNOBJ *>Set connection to ADODB.Command object.
MOVE "SELECT NrohabHa,DescTp
- " FROM Rooms01 JOIN Roomtypes ON Rooms01.TiphabHa = Roomtypes.TipopTp" To Wk.
INVOKE CMDOBJ "SET-CommandText" USING WK
* Create the parameter for the procedure using with Array object.
INVOKE ARRAY "NEW" USING PARAM-TYPE ARRAY-DIM AXIS RETURNING PRMARY
* Set the "GOODS" parameter.
MOVE 1 TO ELM-DATA
MOVE 1 TO ELM-NO
INVOKE PRMARY "SET-DATA" USING ELM-DATA ELM-NO
* Get the ADO Recordset object.
MOVE 0 TO WK-DUMMY
INVOKE CMDOBJ "Execute" USING WK-DUMMY PRMARY RETURNING RSTOBJ
Como puedo obtener la referencia la objeto Recordset ?.
Gracias por cualquier tipo de ayuda.