Ayuda con MYSQL y Zeos

[[AzidRain]]

La forma mas simple:

Pon un componente TZQuery, le asignas la conexion (que ya sabes como crearla) a un componenten TZConnection. Luego editas la propiedad SQL que es en donde vas a poner el codigo SQL que quieres que tu consulta ejecute. Para empezar puedes usar esto "SELECT * FROM NOMBRE_TABLA" que es muy general pero para practicar esta bien. Y tu query se comportará como una tabla "plana" la cual puedes manipular como se hace en aquellas.

[Muchachin]

Gracias, me sirvio el ejemplo.

Pero hay algo que aun no puedo hacer, agregar el contenido de un TEdit o un Combobox a mi consulta.

Esto es lo que estoy haciendo:

procedure TForm1.Button1Click(Sender: TObject);
begin
        ZQuery1.SQL.Add('SELECT * FROM datposte WHERE feccenso="'+Edit1.Text+'"');
        ZQuery1.Active;
        ZQuery1.ExecSQL;
end;

Cuando lo ejecuto me sale un aviso que dice que no encuentra un archivo
Source File Not Found: ZDbcMySqlUtils.pas

Y luego me manda un error de sintaxis de mysql, aunque dicha sentencia este correcta.

Si alguien sabe como solucionar esto o sabe donde conseguir ese archivo que me pide, se los agradeceria

[[Caral]]

Hola
feccenso es una fecha? o que?
Saludos

[[eduarcol]]

Prueba con esta instruccion

Código SQL [-]
        ZQuery1.SQL.Add('SELECT * FROM datposte WHERE feccenso=ar');
        ZQuery1.ParambyName('par').value := Edit1.Text;
        ZQuery1.Active;
        ZQuery1.ExecSQL;

Y respecto al file not found, prueba añadir la carpeta build del paquete de instalacion respectivo de zeos a ver si se soluciona.

//suerte

[[Caral]]

Hola
Suponiendo que sea una fecha:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
        ZQuery1.SQL.Add('SELECT * FROM datposte WHERE feccenso= '+DateToStr(Edit1.Text));
        ZQuery1.Active;
       ZQuery1.ExecSQL;
end;

Suponiendo que sea un numero (integer):

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
        ZQuery1.SQL.Add('SELECT * FROM datposte WHERE feccenso= '+IntToStr(Edit1.Text));
          ZQuery1.Active;
         ZQuery1.ExecSQL;
end;

Si fuera float:

Código Delphi [-]
WHERE feccenso= '+FloatToStr(Edit1.Text));

Y asi sucesivamente.
Saludos

[Muchachin]

Si feccenso es una fecha.

Ahorita reviso si me funciona tu codigo eduarcol

Gracias por su pronta respuesta.

[[Caral]]

Hola
Si es una fecha no va a funcionar el codigo de eduarcol, como esta, tienes que modificar el value asi:

Código Delphi [-]
ZQuery1.SQL.Add('SELECT * FROM datposte WHERE feccenso =  :Par');
        ZQuery1.ParambyName('Par').AsDate := Edit1.Text;
        ZQuery1.Active;
        ZQuery1.ExecSQL;

Lo mas seguro es que eduarcol, tuviera la misma duda que yo al respecto.
Saludos

[[egostar]]

Perdonen mi ignorancia sobre los componentes Zeos,

Pero esto no me suena muy bien

Código Delphi [-]
 
ZQuery1.Active;
ZQuery1.ExecSQL;

No sería solo

Código Delphi [-]
 
ZQuery1.Open;

Salud OS.

[[Caral]]

Hola egostar
Nada de ignorancia Maestro.
Tienes toda la razon, las dos juntas no se necesitan a abres o ejecutas, es esencialmente lo mismo.
Active o open : devuelven el resultado.
ExecSQL: ejecuta pero no devuelve nada.
Estas en todas, maestro
Por cierto no tiene nada que ver los componentes zeos en esto.
Saludos