Mini tutorial Zeos + Firebird

[agustinbus]

Hola como estan? abro este hilo porque creo que ya hice varias preguntas en el foro y todavia no aporte nada.
Aunque sea muy pequeño este mini tutorial, creo que es mejor aportar algo que nada y me parece que a algunas personas va a servirle.
Me dejo de hablar y nos ponemos manos a la obra.

Voy a tomar como referencia el tutorial hecho por Caral en donde se explica como iniciarse con firebird.

Haremos un programita EXTREMADAMENTE sencillo utilizando los componentes ZEOS en donde mostraremos:

-Como conectarnos a una BD firebird
-Como insertar registros
-Como actualizar registros (o modificar)
-Como eliminar registros


Primero que nada creamos una tabla en firebird y le pondremos como nombre CONTACTOS y los siguientes campos:

ID- Integer - Autoincrement
NOMBRE - Varchar
APELLIDO - Varchar
TELEFONO - Varchar

como vemos en la imagen:




Para que nos funcione el campo ID y sea autoincrement tenemos que crear un Generador. Como es eso?

En el campo ID le damos doble clic al casillero AutoInc y se nos abrira una ventanita. En esa ventana seleccioanmos la pestaña Generador y luego marcamos el checkbox Crear generador. Despues de eso, dentro de la misma ventanita, vamos a la pestaña Disparador y seleccionamos el checkbox Crear disparador. Terminamos dandole OK a la ventanita







Listo!!! ya tenemos nuestra tabla y ahora que hacemos?

Pasamos a delphi!!!

Creamos un nuevo proyecto y colocamos en el form: 3 botones, 1 ZConnection, 1 ZQuery, 1 DBGrid, 1 DataSource



con las propiedades:

Boton de insercion:
-name: button1
-caption: Agregar contacto

Boton de edicion (o actualizacion o modificacion):
-name: button2
-caption: Modificar contacto

Boton de eliminacion:
-name: button3
-caption: Eliminar contacto


ZConnection:
-Database: (Seleccionamos la base de datos firebird en donde la hayamos guardado)
-HostName: si es un sistema en local, ponemos localhost
-Name: ZConection1
-Password: el pass de firebird que por lo general es: masterkey
-Protocol: firebird x.x (x.x es la version en la cual hayamos creado nuestra BD)
-User: por lo general es SYSDBA
-Connected: por ultimo connected a true.

ZQuery:
-Connection: seleccionamos el ZConnection1
-SQL: se nos abre una ventanita y escribimos: SELECT * FROM CONTACTOS
-Name: ZQuery1
-Active: True

DataSource:
-Name: DataSource1
-Dataset: seleccionamos el ZQuery1


DBGrid:
-Name: DBGrid1
-DataSource: DataSource1


Una vez que tenemos todos los componentes en nuestro form hacemos doble clic sobre el ZQuery, se nos abre una ventanita en donde vamos a hacer clic derecho add all fields.



Cuando se agreguen los campos (fields) seleccionamos ID (Autoincrement) y para que se genere automaticamente el numero, le cambiamos las propiedades:
-Required: False
-ProviderFlags
--pfInUpdate: False


Por falta de tiempo voy a tener que detenerme aca , pero protito agregare lo que falta.

Vayan guardando su proyecto!
PD: si algun moderador ve que me confundi en algo o falta algo, o esta mal explicado, diganme que con gusto lo corrijo!
Saludos!!!

[Casimiro Notevi]

Estupendo

Una duda, no conozco bien zeos, lo he usado poco, pero me ha resultado extraño esto:


ZConnection:
-Protocol: firebird x.x (x.x es la version en la cual hayamos creado nuestra BD)

Supongo que habrá sido un "desliz", se supone que ahí debe ir TCP/IP u otro protocolo.

[[white_zombie]]

Hola,

ZConnection:
-Protocol: firebird x.x (x.x es la version en la cual hayamos creado nuestra BD)

Esto es correcto, en Protocol debes especificar la base de datos con la que te vas a conectar (Postgres-7, Postgres-8, firebird-2.1, firebird-2.5, etc). En función de lo elegido establece internamente como debe conectarse a la base de datos, si es por ejemplo sqlite lo hace a través de la Dll correspondiente sin utilizar TCP/IP y si es otra como firebird lo hará con TCP/Ip, con lo cual tienes que rellenar los campos Hostname y Port.

Tampoco soy un gran conocedor de Zeos pero lo he usado alguna vez y creo que el funcionamiento es así.

Un Saludo.

[[Caral]]

Hola
Muchas gracias por el aporte.
Siempre estamos los que necesitamos aprender algo nuevo.
Gracias.
Saludos

[Casimiro Notevi]

Pues aclarada la duda

Pongo este tema "adherido" para que quede siempre en las primeras posiciones, ya que es un tema que se pregunta mucho.

[agustinbus]

hola hola! como dice white_zombie ahi en protocol se especifica la base de datos, ya que por lo poco y nada que se de Zeos, estos permiten conectarse a multiples motores de BD.

Mañana seguramente subire otra parte del tuto.

Pongo este tema "adherido" para que quede siempre en las primeras posiciones, ya que es un tema que se pregunta mucho.

Muuuuchas gracias! me encanta ser parte de esta hermosa comunidad!

[pedrolazarus]

Empezado por agustinbus

Hola como estan? abro este hilo porque creo que ya hice varias preguntas en el foro y
Por falta de tiempo voy a tener que detenerme aca , pero protito agregare lo que falta.

Vayan guardando su proyecto!
PD: si algun moderador ve que me confundi en algo o falta algo, o esta mal explicado, diganme que con gusto lo corrijo!
Saludos!!!

Carajo, porq no pase por aqui ase dos dias

Buen tuto

[agustinbus]

no uso DBEdits porque uso otros componentes con mascaras y validaciones de entradas de datos, y bueno ya me acostumbre a no usar dbedits. Por supuesto que es mas facil .

Me gustaría que en el ejemplo de Firebird pusiérais un campo de gráficos. Si no es mucho pedir. Me parecen muy importantes pero suelen quedarse fuera.

Ya con mas tiempo agrego eso , pero yo prefiero utilizar la ruta de la imagen para que no sea tan pesada la base de datos. Entonces leo el campo ruta de la tabla y mediante la ruta cargo la imagen en un TImage.

Carajo, porq no pase por aqui ase dos dias

Buen tuto

muchas gracias pedrolazarus!!

[santiago14]

Empezado por agustinbus

Me gustaría que en el ejemplo de Firebird pusiérais un campo de gráficos. Si no es mucho pedir. Me parecen muy importantes pero suelen quedarse fuera.

La manera mas razonable de tratar los gráficos en la BD es a través de un BLOB, luego en Delphi los podemos ver con los componentes pertinentes.
Para guardarlos y leerlos en y desde la BD hay que pasarlos a un flujo de bits (streaming) con unas clases bien hechas para tal fin.

Santiago.

[aprendiz123]

excelente tuto solo quiero preguntar que puedo hacer para que cuando ingrese un registro en la BD por IBExpert pueda a travez de un botón en el formulario de delphi actualizar los registros en el BDgrid, es decir que cuando ingrese ese registro en la BD y se este ejecutando la aplicacion en delphi no tenga la necesidad de cerrar y abrir la ventana para que me salga el nuevo registro si no que lo haga cuadole de click alboton actualizar.

[agustinbus]

Hola como estas? una manera de hacerlo es hacer la consulta nuevamente, por ejemplo:

Código Delphi [-]
 
ZQuery1.Close;
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('SELECT NOMBRE, APELLIDO, DNI FROM CLIENTES');
ZQuery1.Open;

Es un ejemplo de una tabla de clientes.
Saludos espero te sirva, cualquier cosa me avisas.