C/Visual C - CRecordset

#include <windows.h>

#include <sql.h>

#include <sqlext.h>

#include <iostream>

void executeStoredProcedure(SQLHDBC hdbc) {

    SQLHSTMT hstmt;

    SQLRETURN ret;

    // Crear un statement

    SQLAllocHandle(SQL_HANDLE_STMT, hdbc, &hstmt);

    // Preparar el stored procedure

    const char* sql = "{call cim_getnext_seqno(?, ?, ?)}";

    ret = SQLPrepare(hstmt, (SQLCHAR*)sql, SQL_NTS);

    // Comprobar si la preparación fue exitosa

    if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO) {

        std::cerr << "Error al preparar el stored procedure." << std::endl;

        return;

    }

    // Definir los parámetros de entrada

    const char* param1 = "MSD0";

    const char* param2 = "NMLBLFIL";

    SQLLEN param1Len = SQL_NTS;

    SQLLEN param2Len = SQL_NTS;

    // Vincular los parámetros de entrada

    SQLBindParameter(hstmt, 1, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_CHAR, 0, 0, (SQLPOINTER)param1, 0, &param1Len);

    SQLBindParameter(hstmt, 2, SQL_PARAM_INPUT, SQL_C_CHAR, SQL_CHAR, 0, 0, (SQLPOINTER)param2, 0, &param2Len);

    // Definir el parámetro de salida

    SQLCHAR outvar[20];

    SQLLEN outvarLen = 0; // Longitud del parámetro de salida

    // Vincular el parámetro de salida

    SQLBindParameter(hstmt, 3, SQL_PARAM_OUTPUT, SQL_C_CHAR, SQL_CHAR, sizeof(outvar), 0, outvar, sizeof(outvar), &outvarLen);

    // Ejecutar el stored procedure

    ret = SQLExecute(hstmt);

    // Comprobar si la ejecución fue exitosa

    if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO) {

        std::cout << "El valor de salida es: " << outvar << std::endl;

    } else {

        std::cerr << "Error al ejecutar el stored procedure." << std::endl;

    }

    // Limpiar

    SQLFreeHandle(SQL_HANDLE_STMT, hstmt);

}

int main() {

    SQLHENV henv;

    SQLHDBC hdbc;

    // Inicializar ODBC

    SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);

    SQLSetEnvAttr(henv, SQL_ATTR_ENVIRONMENT, (SQLPOINTER)SQL_OV_ODBC3, 0);

    SQLAllocHandle(SQL_HANDLE_DBC, henv, &hdbc);

    // Conectar a la base de datos (ajusta la cadena de conexión según sea necesario)

    SQLCHAR connStr[] = "DSN=YourDataSource;UID=YourUsername;PWD=YourPassword;";

    SQLDriverConnect(hdbc, NULL, connStr, SQL_NTS, NULL, 0, NULL, SQL_DRIVER_COMPLETE);

    // Ejecutar el stored procedure

    executeStoredProcedure(hdbc);

    // Desconectar y liberar recursos

    SQLDisconnect(hdbc);

    SQLFreeHandle(SQL_HANDLE_DBC, hdbc);

    SQLFreeHandle(SQL_HANDLE_ENV, henv);

    return 0;

}