Formulario Bajas

' Gambas class file
PUBLIC rs AS Result

PRIVATE SUB updateFieldValue()
TextBox1.Text = rs!No_control
TextBox2.Text = rs!Nombre
TextBox3.Text = rs!Apellidos
TextBox4.Text = rs!Grado
TextBox5.Text = rs!Grupo
TextBox6.Text = rs!Direccion
TextBox7.Text = rs!Telefono

END

PRIVATE SUB limpiarCampos()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
END

PUBLIC SUB Form_Open()
IF (NOT MDB.Connect()) THEN ME.Close()
rs = MDB.cn.Exec("SELECT * FROM alumno")
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
END IF
END

PRIVATE SUB consulta(filtro AS String) AS Boolean

rs = MDB.cn.Exec("SELECT * FROM alumno" & filtro)
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
RETURN TRUE
END IF
RETURN FALSE
END


PUBLIC SUB Button1_Click() ' Codigo del boton de buscar
IF NOT consulta(" WHERE No_control = '" & TextBox1.Text & "'") THEN
Message.Info("Registro no encontrado.")
limpiarCampos()
ENDIF
END

PUBLIC SUB ToolButton1_Click() 'Codigo del boton dar de baja
IF Message.Question("Seguro?", "Yes", "No") = 1 THEN
rs = MDB.cn.Exec("DELETE FROM alumno WHERE No_control = '" & TextBox1.Text & "'")
ENDIF
consulta("")
END

Codigo del modulo con nombre MDB

PUBLIC cn AS NEW Connection

PUBLIC PROCEDURE Connect() AS Boolean
cn.Close()
cn.Type = "mysql"
cn.Host = "localhost"
cn.Login = "root"
cn.Password = "12345"
cn.Name = "reportes"
cn.Open
RETURN TRUE
CATCH
Message.Error("Error abriendo la base de datos!!!\n" & Error.Text)
RETURN FALSE
END

Consulta con un Gridview

' Gambas class file
PUBLIC rs AS Result
PRIVATE SUB updateFieldValue(filtro AS String)
DIM intRow AS Integer = 0
DIM strType AS String = ""
IF (NOT MDB.Connect()) THEN ME.Close()
rs = MDB.cn.Exec("SELECT * FROM alumno" & filtro)
IF rs.Available THEN
rs.MoveFirst
GridAlumnos.Columns.Count = 7
GridAlumnos.Rows.Count = rs.Count
FOR EACH rs
GridAlumnos[intRow, 0].Text = rs!No_control
GridAlumnos[intRow, 1].Text = rs!Nombre
GridAlumnos[intRow, 2].Text = rs!Apellidos
GridAlumnos[intRow, 3].Text = rs!Grado
GridAlumnos[intRow, 4].Text = rs!Grupo
GridAlumnos[intRow, 5].Text = rs!Direccion
GridAlumnos[intRow, 6].Text = rs!Telefono
INC intRow
NEXT
GridAlumnos.Row = intRow - 1
ENDIF
CATCH
Message.Error(Error.Class.Name & ": " & Error.Where & ": " & Error.Text)
END

PUBLIC SUB Form_Open()
updateFieldValue("")
END

'Boton de buscar
PUBLIC SUB ToolButton1_Click()
updateFieldValue(" WHERE No_control = '" & TextBox1.Text & "'")

END

'Boton mostrar todos los registros
PUBLIC SUB Button1_Click()
updateFieldValue("")
END

Formulario Altas

' Gambas class file
PUBLIC rs AS Result

PRIVATE SUB updateFieldValue()
TextBox1.Text = rs!No_control
TextBox2.Text = rs!Nombre
TextBox3.Text = rs!Apellidos
TextBox4.Text = rs!Grado
TextBox5.Text = rs!Grupo
TextBox6.Text = rs!Direccion
TextBox7.Text = rs!Telefono

END

PRIVATE SUB limpiarCampos()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
END

PUBLIC SUB Form_Open()
IF (NOT MDB.Connect()) THEN ME.Close()
rs = MDB.cn.Exec("SELECT * FROM alumno")
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
END IF
END

PUBLIC SUB ToolButton1_Click()
limpiarCampos()
ToolButton1.Enabled = FALSE 'El de nuevo
ToolButton2.Enabled = TRUE 'El de guardar
ToolButton3.Enabled = TRUE 'El de cancelar
ToolButton4.Enabled = FALSE 'El de primero
ToolButton5.Enabled = FALSE 'El de anterior
ToolButton6.Enabled = FALSE 'El de siguiente
ToolButton7.Enabled = FALSE 'El de ultimo
END

PUBLIC SUB ToolButton3_Click()
DIM xresult AS Result
DIM xQuery AS String
DIM xParam AS Integer
xresult = MDB.cn.Create("alumno")
xresult!No_control = TextBox1.Text
xresult!Nombre = TextBox2.Text
xresult!Apellidos = textbox3.Text
xresult!Grado = Val(textbox4.Text)
xresult!Grupo = Textbox5.Text
xresult!Direccion = Textbox6.Text
xresult!Telefono = Val(textbox7.Text)
xresult.Update
Message.Info("Datos Guardados")
IF ERROR THEN Message.Error(Error.Text)
rs = MDB.cn.Exec("SELECT * FROM alumno")
rs.MoveFirst
limpiarCampos()
ToolButton1.Enabled = TRUE
ToolButton2.Enabled = FALSE
ToolButton3.Enabled = FALSE
ToolButton4.Enabled = TRUE
ToolButton5.Enabled = TRUE
ToolButton6.Enabled = TRUE
ToolButton7.Enabled = TRUE
END

PUBLIC SUB ToolButton4_Click()
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton7_Click()

rs.MoveLast
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton5_Click()

rs.MovePrevious
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton6_Click()

rs.MoveNext
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton2_Click()
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
ToolButton1.Enabled = TRUE
ToolButton2.Enabled = FALSE
ToolButton3.Enabled = FALSE
ToolButton4.Enabled = TRUE
ToolButton5.Enabled = TRUE
ToolButton6.Enabled = TRUE
ToolButton7.Enabled = TRUE

END