https://foro.gambas-es.org/viewtopic.php?f=3&t=60&p=1249#p1249
-----------------------------------
jolubae
Lunes, 30 Noviembre 2009, 16:51

Re: Problema Al Insetar Un Nuevo Registro
-----------------------------------
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.......


