| hbetancur |
24 de mayo de 2023 00:16 |
Uso del ADO y JOIN en Power Cobol
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. |
