Ejemplos con Zeos y Delphi

[hhuillcen]

Saludos amigos.

Nuevamente recurro ante ustedes para que me ayuden, soy nuevo en usar Zeos para conectarme ya sea a Mysql o Postgresql, asi que como ustedes sabem no hay mejor forma de aprender que con ejemplos, favor si alguien me podria enviar proyectos de base de datos (codigo), les agradeceria un monton.

GRacias anticipadamente:o

PD. estoy usando ZeosDBO 6.0.2 y Delphi 6

[theoffspring_15]

Yo tambien me acabo de instalar las librerias de zeos y busco ejemplos para poder empezar, ya puedo conectarme y mostrar seultados en una dbgrid pero quisiera ejemplos (claro si se puede) de insertar en una "edit" y buscar y eliminar lo clasico. GRacias de antemano.
Estoy usando delphi 7, Zeos 6.6.0 beta

[unreal4u]

ejemplo de la ejecución, delphi 7, zeos 6.1.5 stable, postgres 8:


// llenamos algunos datos (no los puse todos) y nos conectamos a la base:
zConnection1.HostName := host;
zConnection1.Port := puerto;
zConnection1.User := 'hola';
zConnection1.Password := 'mundo';
zConnection1.Connect;

// haciendo una consulta SQL:
zQuery1.SQL.Clear;
ZQuery1.SQL.Add('SET CLIENT_ENCODING TO ' + #39 + 'LATIN2' + #39 + ';');
zQuery1.SQL.Add('SELECT * FROM busca_CD(');
zQuery1.SQL.Append('NULL' + ',' +
#39 + cadena + #39 + ',' +
#39 + 'NULL' + #39 + ',' +
#39 + 'NULL' + #39);
zQuery1.SQL.Append(') AS ("Cód." char, "Título Principal" varchar, "Título Secundario" varchar, "Contenido" text);');
zQuery1.Active := TRUE;
// nos desconectamos
ZConnection1.Disconnect


el cual llama a esta función:


CREATE OR REPLACE FUNCTION busca_cd(bpchar, character varying, character varying, character varying)
RETURNS SETOF record AS
'
SELECT
CD.cod_amigable,
CD.titulo1,
CD.titulo2,
Contenido_CD.descripcion
FROM CD, Contenido_CD
WHERE
(((CD.cod_barra LIKE $1) OR
(CD.titulo1 LIKE ''%'' || $2 || ''%'') OR
(CD.titulo2 LIKE ''%'' || $3 || ''%'') OR
(Contenido_CD.descripcion LIKE ''%'' || LOWER($4) || ''%'')) AND
Contenido_CD.cod_barra = CD.cod_barra);
'
LANGUAGE 'sql' VOLATILE;




En el código delphi, #39 corresponde al caracter --> ' <-- (ALT+39), que lo ingresé así pq sino me cerraba el string en el código de delphi :P

Si quieres ver los datos, enlazas a un DBGrid y listo ;)

Saludos !!

[theoffspring_15]

Orale tu uso de postgres es mas avanzado que el mio jejejeje, me costo algo de trabajo entenderlo al principio, pero es un muy buen ejemplo, gracias!!! ha sido de gran utilidad.

[unreal4u]

para meter en un edit normal, común y corriente, lo que hago es primer dejar el valor en un DBEdit, enlazándolo a la conexión, y luego asignando:

Edit1.Text := DBEdit.Text;

(jijijji .. me había faltado eso :oops: )

Saludos !!

[torassapc]

Hola, tengo el problema de que quiero conectarme a mysql con las librerias Zeos pero me da un error de que me falta el archivo libmysql3.23.dll, me estoy iniciando en delphi, gracias.

[theoffspring_15]

lo que ocupas es poner las librerias de la version del mysql que tengas en la carpeta de c:/windows/system32, estas librerias vienen en la version de zeos que hayas descargado en la carpeta de lib

[torassapc]

ahi esta, me anduvo gracias, faltaba copiar la dll en system32,