Bases De Datos

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 ASBoolean
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.CloseELSE
‘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) THENvalor = 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 noes 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 ResultDIM 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))...