PUBLIC FUNCTION Comprobar_Configuracion_BaseDatos()
DIM $ConexionPrueba AS NEW Connection
$ConexionPrueba.Type = FConfiguracion.CBTipo.Text ' Define el tipo de Conexion
$ConexionPrueba.Host = FConfiguracion.TxtServidor.Text ' Nombre del Servidor
$ConexionPrueba.Login = FConfiguracion.TxtUsuario.Text ' Usuario para la coenxion
$ConexionPrueba.Port = FConfiguracion.TxtPuerto.Text ' Puerto usado para la conexion, usualmente: 3306
$ConexionPrueba.Name = FConfiguracion.TxtBaseDatos.Text ' Nombre de la base de datos a usar
$ConexionPrueba.Password = FConfiguracion.TxtPasswd.Text
TRY $ConexionPrueba.Open()
IF ERROR THEN
Message.Error("No se tiene conexión con la base de datos:\n" & Error.Text)
ELSE
Message.Info("La conexión se ha realizado correctamente.\nRecomendamos que la guarde.")
ENDIF
END
DIM $ConexionPrueba AS NEW Connection
$ConexionPrueba.Type = FConfiguracion.CBTipo.Text ' Define el tipo de Conexion
$ConexionPrueba.Host = FConfiguracion.TxtServidor.Text ' Nombre del Servidor
$ConexionPrueba.Login = FConfiguracion.TxtUsuario.Text ' Usuario para la coenxion
$ConexionPrueba.Port = FConfiguracion.TxtPuerto.Text ' Puerto usado para la conexion, usualmente: 3306
$ConexionPrueba.Name = FConfiguracion.TxtBaseDatos.Text ' Nombre de la base de datos a usar
$ConexionPrueba.Password = FConfiguracion.TxtPasswd.Text
TRY $ConexionPrueba.Open()
IF ERROR THEN
Message.Error("No se tiene conexión con la base de datos:\n" & Error.Text)
ELSE
Message.Info("La conexión se ha realizado correctamente.\nRecomendamos que la guarde.")
ENDIF
END