Crear Un Origen de Datos y Profile de Conexion en PowerBuilder

CREAR UN ORIGEN DE DATOS
Ingresamos a panel de control, elegimos Herramientas administrativas

Seleccionamos Orígenes de datos (ODBC)









Seleccionamos el controlador para Access (*.mdb que pertenece al office 2003 y anteriores) y damos clic en finalizar.
Observación: Si queremos usar la base de datos Northwind 2007 que viene como ejemplo en el office 2007 la conexión seria exitosa, pero no podríamos ver los registros debido a que las tablas tienen al menos un atributo que se nombran con palabras separadas lo cual no soporta el SQL Anywhere.
Por eso para el ejemplo he creado una base de datos en Access con el nombre: db_ventas











Configuramos el ODBC de Access: Ponemos cualquier nombre de Origen de datos y una descripción. Luego seleccionamos la base de datos con la que vamos a trabajar (clic en seleccionar).







La base de datos que he creado lo busco en la unidad C, debido a que allí ha sido creado. Seleccionamos la DB, damos clic en Aceptar en todas las ventanas. Con ello el Origen de datos se abra creado.
























Creamos un Perfil de Conexión des Power Builder
Abrimos el Power Builder y damos clic en DataBase









Damos Clic derecho en ODB ODBC, Luego damos clic en New Profile














Le damos cualquier nombre en Profile Name y seleccionamos el Origen de Base de datos que creamos anteriormente.















Luego damos clic en el Tab Preview, copiamos el código y damos clic en Test Connection









Sale la primera ventana que debemos de ignorar esto se debe a la Falta de compatibilidad, pero después de ese mensaje debe salir un mensaje que indique que la conexión ha sido satisfactoria. Luego aplicamos y aceptamos.











En la imagen anterior se muestra seleccionada la base de datos, con el nombre de perfil: MiProfile. A este archivo le damos clic derecho y seleccionamos connect.












Conectar la base de datos con la aplicación en Power Builder
Creamos un nuevo proyecto en Power Builder, en la aplicación damos clic derecho y seleccionamos Edit y escribimos lo siguiente:
























/*Pegamos el código generado cuando creamos el Profile*/
// Profile MiProfile
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=MiDB;UID=;PWD='"

/*Escribimos la siguiente sentencia SQL*/

connect;

//Verificamos si la conexion ha tenido Exito.

if (sqlca.sqlcode = -1) then //sqlca.sqlcode = -1, error de conexion
messagebox("Verificar","Error en la conexion de la base de datos")
else
messagebox("Felicidades","La conexion de la base de datos es correcta")
end if