Example: lrd_logon_ext

In the following example, the lrd_logon_ext function creates a simple database session.

lrd_init(&InitInfo, DBTypeVersion);
lrd_initialize_db(LRD_DBTYPE_ORACLE, 1, 0);
lrd_env_init(LRD_DBTYPE_ORACLE, &OraEnv1, 0, 0);
lrd_logon_ext(OraEnv1, &OraSvc1, "SCOTT", -1, "TIGER", -1, "hades", -1, 0);
lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm1, 0);
lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm2, 0);
lrd_ora8_stmt(OraStm1, "SELECT NVL(MAX(empno), 0) FROM emp", 1, 0, 0);
lrd_ora8_exec(OraSvc1, OraStm1, 0, 0, &uliRowsProcessed, 0, 0, 0, 0, 0);
lrd_ora8_bind_col(OraStm1, &OraDef1, 1, &NVL_MAX_EMPNO_0_D1, 0, 0);
lrd_ora8_fetch(OraStm1, 1, 1, &uliFetchedRows, PrintRow1, 2, 0, 0);
GRID8(1);
lrd_ora8_stmt(OraStm1, "INSERT INTO emp(empno, ename, job, sal, deptno) "
        "VALUES (:empno, :ename, :job, :sal, :deptno)", 1, 0, 0);
lrd_ora8_stmt(OraStm2, "SELECT dname FROM dept WHERE deptno = :1", 1, 0, 0);
lrd_handle_free(&OraStm1, 0);
lrd_handle_free(&OraStm2, 0);
lrd_logoff(&OraSvc1, 0);
lrd_handle_free(&OraEnv1, 0);
return VUSER_OK;