Comunidad Gambas-es

buenos tardes Marcos, aqui te doy mi humilde ayuda
creo que le das muchas vueltas mira:

create una variable en

PRIVATE contacto AS Result (esto te mostrara el resultado de tu tabla)

y esto va debajo de tu RETURN FALSE, colocando
ELSE
contacto = hconn.Exec("Select * from tutabla")
IF contacto.Available THEN Mostrar
END IF

tedebes crear esto para mostrar tus datos

PUBLIC SUB Mostrar()
txtusuario.text = tutabla["Usuario"]
txtmatricula.text = tutabla["Matricula"]
txtseccion.text = tutabla["Sección"]
txtplanta.text = tutabla["Planta"]
txtobservacion = tutabla["Observación"]
END

a parte del boton de nuevo create dos, uno que guarda y otro que cancela

PUBLIC SUB btnNuevo_Click()
Btnguardar.Visible = TRUE
Btncancelar.Visible = TRUE
txtusuario.text = ""
txtmatricula.text = ""
txtseccion.text = ""
txtplanta.text = ""
txtobservaciones.text = ""
END

luego:

PUBLIC SUB Btnguardar_Click()
DIM VarResult AS Result
VarResult = hconn.Create("tutabla")
VarResult["Usuario"] = txtusuario.Text
VarResult["Matricula"] = txtmatricula.Text
VarResult["Sección"] = txtseccion.Text
VarResult["Planta"] = txtplanta.Text
VarResult["Observaciones"] = txtobservaciones.Text
VarResult.Update
contacto = hconn.Exec("Select * from tutabla")
Btnguardar.Visible = FALSE
Btncancelar.Visible = FALSE
END

PUBLIC SUB Btncancelar_Click()
Btnguardar.Visible = FALSE
Btncancelar.Visible = FALSE
Mostrar
END

bueno camarada espero que esto te funcione, sin embargo no es todo mio tambien tiene que ver mucho mi camarada Pablo,

saludo.......

manuel y si pruebas esto a lo mejor es una tonteria pero puede servir
tu tienes esto
TRY hconn.EXEC(insert y lo demas
pon esto
TRY hconn.exec( insert y lo demas
una vez tube el mismo error