11/1/2017
Agregar, editar, borrar | Gambas paso a paso
Gambas paso a paso
Slo otro sitio [Link]
Agregar, editar, borrar
Publicado el 6 octubre, 2010
Por su parte el botn de cancelacin simplemente cierra el formulario, sin actuar sobre los datos.
PUBLIC SUB btncancelar_click()
[Link]
End
Insertamos los datos mediante el siguiente cdigo en el evento click de btnaceptar:
TRY [Link] (insert into mitabla values (&1,&2,&3,&4,&5.&6),
txtid,txtnombre,txtapellido,txttelefono,txtmovil,txtcumple)
[Link]
CATCH
[Link](Imposible introducir los datos solicitados)
END
Le pedimos al objeto connection que inserte los datos en la tabla,mediante la instruccin insert intro nombre_de_la_tabla
values,el &1 indica que toma el primer valor a continuacin que es [Link], el &2 el siguiente([Link]) y as
sucesivamente.
Si todo va bien el formulario se cierra, si hay un error se captura con catch y nos muestra el mensaje de error.
Volvamos ahora al formulario principal y en el evento click de btnnuevo colocamos el siguiente cdigo;
PUBLIC SUB Btnnuevo_Click()
IF ConectarBase() THEN RETURN
[Link](hconn)
cerrarconexion()
Form_Open()
END
Primeros tratamos de conectarnos a nuestra base de datos, si no lo conseguimos nos salimos. Conseguida la conexin
llamamos al mtodo runnewde fdata.
Como este formulario se muestra en forma modal, el presente cdigo queda a la espera de que ingresemos datos en fdata o
[Link]
1/5
11/1/2017
Agregar, editar, borrar | Gambas paso a paso
simolemente lo cerremos.
A continuacin cierra la conexin y llama al metodo form_open que se encarga de recargar los datos para mostrar los
cambios realizados.
Continuando con el formulario principal, vamos a codificar el mtodo para borrar registros presionando la tecla suprimir.
PUBLIC SUB tabla_KeyRelease()
IF [Link] = [Link] THEN
IF [Link] = NULL THEN RETURN
IF [Link] = FALSE THEN RETURN
IF ConectarBase() THEN RETURN
TRY [Link](delete from mitabla where id=&1, [Link])
IF ERROR THEN
[Link](Imposible borrar el registro)
ELSE
[Link]()
ENDIF
ENDIF
END
Vemos primero si hay algn elemento en la tabla y si hay algo seleccionado, si no es as salimos del mtodo. Si hay alguno
seleccionado tratamos de abrir la coneccin y tras lograrlo, borramos de la base los datos del registro cuya clave coincida con
la del registro seleccionado. Si hay un error sale el mensaje informativo, es caso contrario se borra el registro tambin en
nuestro colunmview para reflejar el cambio en la base.
Aqu vemos que la instruccin sql usada es condicional y la palabra marcada en negrita where antecede a la condicin;
TRY [Link](delete from mitabla where id=&1, [Link])
Ahora vamos a ver como hacemos para modificar un registro, por ejemplo si un amigo cambia el mvil, basta con editar ese
campo.
Vamos a aprovechar el evento activitede nuestro control colunmview(tabla) para agregar esta funcionalidad . Dicho evento se
dispara al hacer doble click sobre alguna columna de la tabla.
PUBLIC SUB tabla_Activate()
DIM hresul AS Result
IF [Link] = NULL THEN RETURN
IF ConectarBase() THEN RETURN
hresul = [Link](mitabla, id=&1,
[Link])
[Link](hresul)
[Link][0] = hresul[id]
[Link]
2/5
11/1/2017
Agregar, editar, borrar | Gambas paso a paso
[Link][1] = hresul[nombre]
[Link][2] = hresul[apellido]
[Link][3] = hresul[telefono_fijo]
[Link][4] = hresul[telefono_movil]
[Link][5] = hresul[cumple]
cerrarconexion()
END
La lnea en negrita es la que llama al mtodo runedit de fdata. Como an no hemos creado este mtodo si tratamos de
ejecutarlo ahora no funcionar.
Volvamos por tanto a fdata y coloquemos las siguientes variables al principio del formulario para que sean accesibles desde
todo el formulario.
PRIVATE hconn AS Connection
PRIVATE hresul AS Result
PRIVATE editando AS Boolean
y agregamos el mtodo runedit cuyo cdigo es el siguiente:
PUBLIC SUB runedit(data AS Result)
hresul = data
editando = TRUE
[Link] = hresul[id]
[Link] = hresul[nombre]
[Link] = hresul[apellido]
[Link] = hresul[telefono_fijo]
[Link] = hresul[telefono_movil]
[Link] = hresul[cumple]
[Link]
END
Esto nos muestra fdata con los datos del registro seleccionado de modo que podamos editarlo.Y nos pone la variable editando
con el valor true. Esto es necesario para que mediante una instruccin condicional al hacer click en btnaceptar distinga entre
altas y modificaciones.
El nuevo cdigo de btnaceptar es el siguiente.
PUBLIC SUB btnaceptar_Click()
IF editando THEN
TRY hresul[id] = [Link]
TRY hresul[nombre] = [Link]
TRY hresul[apellido] = [Link]
[Link]
3/5
11/1/2017
Agregar, editar, borrar | Gambas paso a paso
TRY hresul[telefono_fijo] = [Link]
TRY hresul[telefono_movil] = [Link]
TRY hresul[cumple] = [Link]
TRY [Link]
ELSE
TRY [Link](insert into mitabla values (&1,&2,&3,&4,&5,&6), [Link], [Link], [Link],
[Link], [Link], [Link])
ENDIF
[Link]()
CATCH
[Link](Imposible introducir los datos solicitados)
END
Si hay una modificacin sita el valor de cada caja de texto con TRY y actualiza la base de datos con [Link], si hay un
error lo captura con CATCH y muestra el mensaje de error. Si editando es false contina con las intrucciones despes de else
que no es ms que la instruccin insert into ya vista en agregar registros.
Acerca de estos anuncios
Comparte esto:
Compartir
Me gusta
S el primero en decir que te gusta.
Relacionado
Formularios para introduccin de datos
En "programacin"
Ampliando el juego 3
En "programacin"
Formularios para introduccin de datos (II)
En "programacin"
Esta entrada fue publicada en programacin y etiquetada proyecto2-gambas. Guarda el enlace permanente.
Gambas paso a paso
Crea un blog o un sitio web gratuitos con [Link].
[Link]
4/5
11/1/2017
Agregar, editar, borrar | Gambas paso a paso
[Link]
5/5
