Como abrir msql y usarla en gambas2

Como abrir una conexion a Mysql y usarla en GAMBAS2.0

Ejemplo 1. Creando una Nueva Conexión (MySQL).

Notas:
1. Deberas estar seguro de tener instalados todos los componentes../../comp/gb.db.mysql Component y todos los paquetes realcionados con MySQL.
2. Esto no es un ejemplo acerca de sentencias de MySQL.
3. Los privilegiso sobre la base de datos son asignados por MySQL no por Gambas.4. El gb.db - Componente para Acceso a Bases de Datos componente ha de estar seleccionado para su programa pueda tener acceso a la Base de Datos.

Recomendaciones:
1. La conexion a la Base de Datosde su programa debera ubicarse en un Modulo, para que asi pueda ser llamada desde cualquier parte del proyecto.
2. El Manejador de Base de Datos de Gambas es Genial!, pero si deseas crear buenasbases de datos en MySQL deberas usar la consola de MySQL, esto evita problemas a la hora de asignar los tipos de Datos.

Pasos:
1. Crear un nuevo modulo en tu proyecto, en mi caso he llamado al mioMODMain.

2. Crear una nueva variable para la conexion:

PUBLIC $Con AS NEW Connection

3.Ahora creamos un procedimiento para establecer la conexion:

PUBLIC PROCEDURE Connect()$Con.Close() ' Cierra la conexion
$Con.Type = "MySQL" ' Define el tipo de Conexion
$Con.Host = "localhost" ' Nombre del Servidor$Con.Login = "root" ' Usuario para la coenxion
$Con.Port = "3306" ' Puerto usado para la conexion, usualmente: 3306
$Con.Name = "Sophia"' Nombre de la base de datos a usar
$Con.Password = "root123" ' Clave de Usuario
$Con.Open() ' Abrimos la conexion
END

4.Ahora creamosun procedmiento para iniciar el programa:

PUBLIC SUB Main()
Connect() ' Ejecutamos el procedimiento conectar
FRMStart.Visible = TRUE ' hacemos visible...