Al otro lado de la pantalla
Bien. Primero, necesitamos el ejemplo original. Ponerle un buen nombre, si hace falta cambiarlo.
Aquí esta el que escribí en su día, el que usa el manual de Gambas.
Ok, hay una línea que tuve que cambiar en su día.
No sé si es ahora necesario. El ejemplo usaba como campo clave el titulo del libro.
Public Sub BtnAceptar_Click()
If Editando Then
Try HResul["titulo"] = TxtTitulo.Text
Try HResul["autor"] = TxtAutor.Text
Try HResul["fecha"] = TxtFecha.Text
Try HResul["precio"] = TxtPrecio.Text
Try HResul["descripcion"] = TxtDecripcion.Text
Try HResul.Update()
Else
'Problema del campo clave
'TRY hConn.Exec("insert into datos values (&1,&2,&3,&4,&5)", TxtTitulo.Text, TxtAutor.Text, CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), TxtDecripcion.Text)
Try hConn.Exec("insert into datos values (&1,&2,&3,&4,&5,&6)", Null, TxtTitulo.Text, TxtAutor.Text, CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), TxtDecripcion.Text)
Endif
Me.Close()
Catch
Message.Error("Imposible introducir los datos solicitados")
End
If Editando Then
Try HResul["titulo"] = TxtTitulo.Text
Try HResul["autor"] = TxtAutor.Text
Try HResul["fecha"] = TxtFecha.Text
Try HResul["precio"] = TxtPrecio.Text
Try HResul["descripcion"] = TxtDecripcion.Text
Try HResul.Update()
Else
'Problema del campo clave
'TRY hConn.Exec("insert into datos values (&1,&2,&3,&4,&5)", TxtTitulo.Text, TxtAutor.Text, CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), TxtDecripcion.Text)
Try hConn.Exec("insert into datos values (&1,&2,&3,&4,&5,&6)", Null, TxtTitulo.Text, TxtAutor.Text, CDate(TxtFecha.Text), CFloat(TxtPrecio.Text), TxtDecripcion.Text)
Endif
Me.Close()
Catch
Message.Error("Imposible introducir los datos solicitados")
End
Mí idea es que tomemos el ejemplo base y vayamos creando modificaciones, que las vayamos demostrando de alguna manera como mejora el código original.
Lo importante es dejar bien claro el motivo de por que se hace , la mejora y que el programador aprenda de esas mejoras. Que las pruebe y las vea.
El siguiente paso después de haber mejorado este ejemplo. Es la creación de un nuevo ejemplo en el que tengamos dos tablas, libros y autores
Hacer unas operaciones básicas. Cómo debemos administrar nuestras consultas, como podríamos aprovechar una consulta y que nos valga como base
para crear otras.
Y así poco a poco ir mejorando el ejemplo original. Tener distintos ejemplos del mismo que vaya avanzando en la comunidad,
ver los pasos como ha ido cambiando, que pueda bajarlo todo el que quiera y que tengamos un buen ejemplo todos los gamberos con
el que empezar el tema de base de datos.
Podemos decir por que es mejor usar un componente que otro para mostrar los datos.
Que mejoras tiene si usas uno u otro. Lo que se nos vaya ocurriendo.
Desde luego con el ejemplo original se van encontrar distintos problemas:
La fecha, el cierre de la conexión constante, el tipo de componente para mostrar los registros,
su estética, etc, etc.
Espero que os guste la idea.
Saludos
| MisLibros.tar.gz | ||
| Descripción: |  Descargar |
|
| Nombre del archivo: | MisLibros.tar.gz | |
| Tamaño: | 16.38 KB | |
| Descargado: | 64 veces | |
| MisLibros.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | MisLibros.tar.gz | |
| Tamaño: | 16.38 KB | |
| Descargado: | 64 veces | |
| MisLibros.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | MisLibros.tar.gz | |
| Tamaño: | 16.38 KB | |
| Descargado: | 64 veces | |
