* Definimos las propiedades de Conexión
oDb.handle_driver = oDb.driver_Mysql_351
oDb.handle_server = "localhost"
oDb.handle_user = "root"
oDb.handle_password = "root"
oDb.handle_database = "emp001"
oDb.handle_port = oDb.port_Mysql
* Definimos Propiedades de Estado de Conexión
oDb.handle_Network = .t. && Si mantiene permanente la conexión
oDb.handle_Reconnection = .f. && Si se intenta re-conectar al servidor
oDb.handle_Verify = .f. && Si Verifica el estado de la conexión al servidor
* Definimos mensajes de Depuración y Error de la librería
oDb.debug = .T. && Depurar mostrando paso a paso lo que hace la librería
oDb.error_Show = .t. && Mostrar Errores SQL devueltos por Aerror()
nHand = oDb.Connect(.t.) && Aquí estamos indicando que comparta la conexión.
oDb.Use("cuentas_contables")
messagebox(oDb.handle,64,"hand")
*!* ELSE
*!* WAIT WINDOWS "Error de Conexión al Servidor, Código de Error:" + str(oDb.error_Code)
*!* ENDIF
DO FORM cuentas.scx