Conectarse a MySql y Guardar Datos

En primer lugar debe asegurarse de tener instalado Mysql en su pc. Personalmente recomiendo tambien la instalacion de PhpMyadmin que es un programa para administrar y crear bases de datos con Mysql. Si desea mas informacion de como instalar un servidor LAPM (Linux Apache Php Mysql), este link lo puede ayudar.

Ok instalado Mysql en su equipo, podemos crear nuestra base de datos bien sea por phpmyadmin o usando el gestor de base de datos que trae Gambas, el cual se accede en: Herramientas -> Gestor de base de Datos…

Al principio te pide una contraseña para encriptarla, esto para hacer mas segura tu BD. Luego puedes crear la BD y sus tablas de forma muy sencilla e intuitiva.

UN EJEMPLO.

Nada mejor que un ejemplo para ilustrar como se hace para conectar la BD creada y nuestro formulario.

Formulario: En este ejemplo, el formulario se encarga de agregar informacion sobre unos productos a nuestra BD. El aspecto es el siguiente:

Codigo: El codigo, un poco extenso, es el siguiente:

‘ Gambas class file
‘estas son las variables de conexion a la base de datos
PUBLIC cn AS NEW Connection
PUBLIC rs AS Result
‘variables booleanas para evaluacion de expresiones
PUBLIC valor AS Boolean
PUBLIC valor1 AS Boolean
PUBLIC valor2 AS Boolean

PUBLIC SUB BtnCerrar_Click()

ME.Hide

END

PUBLIC SUB Form_Open()
‘este evento permite crear la conexion a la base de datos
WITH cn
.type = «mysql»
.host = «localhost»
.login = «root»
.password = «102172»
.name = «cibercafe»

TRY .OPEN
IF ERROR THEN
Message.Error(«Error abriendo la base de datos!!!\n» & Error.Text)
ME.Close
ELSE
‘se selecciona los campos de la tabla que contiene la BD
rs = cn.Exec(«SELECT * FROM productos»)
rs.MoveFirst
END IF
END WITH

END

PRIVATE SUB Evaluacion()

IF IsNumber(texto2.Text) THEN
valor = TRUE
ELSE
Message.Info(«el valor no es numerico\n» & «usted introdujo:\n» & texto2.Text)
valor = FALSE
END IF

IF IsNumber(texto3.Text) THEN
valor1 = TRUE
ELSE
Message.Info(«el valor no es numerico\n» & «usted introdujo:\n» & texto3.Text)
valor1 = FALSE
END IF

IF IsNumber(texto4.Text) THEN
valor2 = TRUE
ELSE
Message.Info(«el valor no es numerico\n» & «usted introdujo:\n» & texto4.Text)
valor2 = FALSE
END IF

END

PUBLIC SUB BtnGuardar_Click()
‘este es el evento que permite agregar los datos ingresados
‘mediante el formulario a la base de datos
DIM xresult AS Result
DIM xQuery AS String
DIM xParam AS Integer
Evaluacion()
IF valor = FALSE OR valor1 = FALSE OR valor2 = FALSE THEN
ClearField()
RETURN
END IF

xresult = cn.Create(«productos»)
xresult!tipo = UCase(Combo1.Text)
xresult!descripcion = Trim(UCase(texto1.Text))
xresult!precio = Val(Trim(texto2.Text))
xresult!stock = Val(Trim(texto3.Text))
xresult!precio_final = Val(Trim(texto4.Text))
xresult.Update
Message.Info(«Datos Guardados»)
IF ERROR THEN Message.Error(Error.Text)

rs = cn.Exec(«SELECT * FROM usuarios»)
rs.MoveFirst
ClearField()

END

PRIVATE SUB ClearField()

texto1.Text = «»
texto2.Text = «»
texto3.Text = «»
texto4.Text = «»
combo1.SetFocus

END

PUBLIC SUB BtnModificar_Click()

‘FrmOperadores.Hide
FrmModificaProducto.Show

END