|
En el ejemplo siguiente se supone que hay disponible un origen de datos ODBC llamado MiFoxPRGSS y que el Id. de usuario para el origen de datos es MiConn. Se ejecuta SQLCONNECT( ) y su valor devuelto se almacena en una variable de memoria llamada gnConnHandle.
Si se conecta correctamente al origen de datos, SQLCONNECT( ) devuelve un número positivo, aparece un cuadro de diálogo y se usa SQLDISCONNECT( ) para desconectarse del origen de datos.
Si no puede conectarse al origen de datos, SQLCONNECT( ) devuelve un número negativo y aparece un mensaje.
STORE SQLCONNECT('MiFoxPRGSS', 'MiConn') TO gnConnHandle
IF gnConnHandle <= 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexión')
ELSE
= MESSAGEBOX('Conexión realizada', 48, 'Mensaje de conexión')
= SQLDISCONNECT(gnConnHandle)
ENDIF
|