Código de Conexión

Este es el código de conexión para enlazar la base de datos de MySQL:
Debemos crear un modulo con el nombre MODULO y en este colocar lo siguiente:


' Gambas module file

' declaracion de variables
PUBLIC cn AS NEW Connection
PUBLIC rs AS Result


PUBLIC SUB conectar()
' WITH MODULO.cn
cn.CLOSE
cn.Type = "mysql"
cn.host = "localhost" '===> 192.168.1.11
cn.login = "root"
cn.Port = "3306"
cn.password = "root"
cn.name = "tia"

TRY cn.open
IF ERROR THEN
Message.Error("Error al Abrir Base de Datos")
ELSE
Message.Info("Ingresando a Base de Datos")
ENDIF

END