Código fuente y explicación sobre cómo acceder a un servidor de base de datos Oracle mediante Microsoft Visual Basic, Microsoft Remote Data Object (RDO) y ODBC.

En primer lugar instalaremos el Driver ODBC correspondiente al motor de base de datos a la que queramos acceder. Todos los fabricantes (Oracle, Access, SQL Server, MySQL, Informix, DB2, …) disponen de este software en su web. Si utilizamos como Sistema Operativo Microsoft Windows XP es muy posible que ya incluya la mayoría de ellos. En nuestro caso utilizaremos como ejemplo el driver de Oracle 9.2.

Crearemos un origen de datos nuevo desde «Inicio» – «Configuración» – «Panel de control» – «Herramientas administrativas» – «Orígenes de datos ODBC»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Pulsaremos en «Herramientas administrativas»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Y en «Orígenes de datos ODBC»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Si queremos que este origen de datos esté disponible para cualquier usuario del equipo pulsaremos en la pestaña «DSN de Sistema», pulsaremos en «Agregar»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Seleccionaremos el controlador correspondiente y pulsaremos en «Finalizar»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Introduciremos los datos necesarios para el origen de datos:

  • Data Source Name: nombre con el que se referenciará desde Visual Basic al origen de datos.
  • Description: una breve descripción del origen de datos.
  • TNS Service Name: nombre del servicio TNS (sólo en Driver ODBC de Oracle).
  • User ID: usuario con el que probaremos la conexión.
Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Si queremos realizar una prueba de conexión pulsaremos «Test Connection», en caso contrario guardaremos el Origen de datos pulsando en «OK».

Nota: esta ventana variará en función del tipo de controlador seleccionado (MySQL, SQL Server, DB2, Informix, …).

Abriremos Microsoft Visual Basic 6.0, pulsaremos en «Archivo» – «Nuevo proyecto», seleccionaremos «EXE Estándar» y pulsaremos en «Aceptar»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Elegiremos «EXE estándar»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Para visualizar las propiedades del formulario principal de nuestra aplicación Visual Basic pulsaremos en «Ver» – «Ventana Propiedades»:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Modificaremos las propiedades

  • Nombre: formMenuPrincipal
  • Caption: AjpdSoft Acceso Oracle VB
  • StartUpPosition: 2 – CenterScreen
Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Guardaremos el proyecto pulsando en «Archivo» – «Guardar proyecto» y especificaremos la ruta y el nombre del fichero del formulario principal y el nombre del propio proyecto:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Elegiremos la carpeta:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Y el nombre del fichero del proyecto:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Para poder utilizar las funciones propias de Microsoft Remote Data Object (RDO) deberemos añadir, desde «Proyecto» – «Referencias», este componente a la aplicación:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Seleccionaremos «Microsoft Remote Data Object», el cual necesitará la librería «MSRDO20.DLL» para su funcionamiento:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Añadiremos los componentes necesarios y modificaremos sus propiedades, en nuestro caso hemos utilizado 5 TextBox (dos de ellos con la propiedad Multiline a True para permitir múltiples líneas y uno de ellos con la propiedad PasswordChar a «*» para que al escribir la contraseña no se visualice). También hemos añadido 6 Label, un CheckBox y 2 CommandButton, el formulario resultante será el siguiente:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

A continuación mostramos los componentes usados en el formulario de nuestra aplicación y sus propiedades principales.

Para el Label:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

La propiedad Caption:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Para el TextBox:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

La propiedad Nombre:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

La propiedad PasswordChar:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

La propiedad Multiline:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Para el CommandButton:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

La propiedad Nombre:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

La propiedad Caption del Label:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Propiedad ScrollBars del TextBox txtContenido:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Componentes CheckBox:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Con su propiedad Caption:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

El CommandButton para bSalir:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

El TextBox para txtNumReg:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

Agregaremos el código Visual Basic correspondiente al botón bEjecutar:

Agregaremos el código Visual Basic correspondiente al botón bSalir:

3. Compilaremos la aplicación pulsando en «Ejecutar» – «Iniciar con compilación completa», el resultado será:

Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC

4. Generaremos el fichero ejecutable correspondiente, desde «Archivo» – «Generar accesoOracle.exe»