Consulta SQL con Zeos

[franroju]

kapcomx los nombres están bien. No se, sigo sin encontrarle respuestas.

Amigo darkbits, yo no necesito un insert, los datos ya están en la base. Lo que quiero es corroborar si los datos ingresados en los edits son correctos chequeando la base. Por eso necesito el select.

Gracias a los 2 por responder, pero no he avanzado!

[gmontes]

yo trabajo con zeos y firebird y esto hago

Close;

    DMSIU.cdsMedicos.Active:=false;
    SQL.Clear;
    SQL.Add('SELECT * FROM Medicos WHERE 1=1');
    case rdgBuscar.ItemIndex of
     0:SQL.Add(' AND nombre LIKE ''%'+txtNombreBusq.Text+'%''');
     1:SQL.Add(' AND rfc STARTING '''+txtRfcBusq.Text+'''');
    end;
    case rdgOrden.ItemIndex of
     0:SQL.Add(' ORDER By nombre');
     1:SQL.Add(' ORDER BY RFC');
    end;
    Open;
    DMSIU.cdsMedicos.Active:=true;

otro ejemplo es

Close;
     SQL.Clear;
     DMSIU.cdsFac.Active:=false;
     sql.add('select f.clavef, f.documento, f.remision, c.nombre, f.fechae, f.paciente, f.estatus, f.importet, f.condicion, f.sustitu, f.sdoc, fechacan');
     sql.add('from facturas f, clientes c where f.tipo =''F'' and SUBSTRING(f.documento from 1 for 1) = ''A'' and f.clavec = c.clavec and '+sCampo+' Like ''%'+Edit1.Text+'%'' ORDER BY f.documento DESC');
     Open;

algunos pasos de parametros estan muy a fuerzas, pero no me he tomado el timpo de corregir eso

[Casimiro Noteví]

Copia el mensaje de error aquí

[kapcomx]

franroju, he checado fisicamente la consulta como la pusiste y me funciona bien la prueba la hice en D7 y Mysql 5......
tal vez si seria bueno ver tu codigo o como bien dice Casimiro poner el mensaje tal cual te aparece.

Saludos

[franroju]

Gente, copio error.

Primero me aparece lo siguiente:

"Source File not found: ZDbcMySqlUtils.pas"

Y si a ese error le pongo Cancelar o Ignorar me dice lo siguiente:

"Project Proyect1.exe raised exception class EZSQLException with message 'SQL error: You have an error in your sql syntax; check the manual that corresponds to your MySql server version for de right syntax to use near 'LIKE 'usuarios'' at line 1'. Process stopped... bla bla".

Será algún fallo de instalación de Zeos?

Repito el código para refrescar la memoria:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
     sql: string;
begin
  query.Close;
  query.SQL.Clear;
  sql := 'select * from usuarios where usuario = :usu  and contrasenia = :contra';
  query.SQL.Add(sql);
  query.ParamByName('usu').AsString:= edit1.Text;
  query.ParamByName('contra').AsString:= edit2.Text;
  query.Open;
end;

Gracias por responder, y espero solucionarlo (o que me ayuden a hacerlo, je)!

[Casimiro Noteví]

Empezado por franroju

"Source File not found: ZDbcMySqlUtils.pas"

Pero ¿lo tienes?.

[jpgonzalez]

Empezado por Casimiro Notevi

Pero ¿lo tienes?.

Respecto a lo que te comenta Casimiro, fijate de tener las carpetas de Zeos en el LibraryPath.
Por lo que dice ahi, no encuentra el punto pas, y eso puede ser porque no tener las carpetas agregadas en el libraryPath y/o no tenes agregada la variable de entorno de windows.
Te dejo un link que explica como instalar Zeos... Revisa si hiciste todos los pasos al instalar Zeos en tu Delphi.

http://www.youtube.com/watch?v=1jfhvkCFI4I

Espero te sirva, abrazo!!!

[jpgonzalez]

Empezado por franroju

Gente, copio error.

Primero me aparece lo siguiente:

"Source File not found: ZDbcMySqlUtils.pas"

Y si a ese error le pongo Cancelar o Ignorar me dice lo siguiente:

"Project Proyect1.exe raised exception class EZSQLException with message 'SQL error: You have an error in your sql syntax; check the manual that corresponds to your MySql server version for de right syntax to use near 'LIKE 'usuarios'' at line 1'. Process stopped... bla bla".

Será algún fallo de instalación de Zeos?

Repito el código para refrescar la memoria:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
     sql: string;
begin
  query.Close;
  query.SQL.Clear;
  sql := 'select * from usuarios where usuario = :usu  and contrasenia = :contra';
  query.SQL.Add(sql);
  query.ParamByName('usu').AsString:= edit1.Text;
  query.ParamByName('contra').AsString:= edit2.Text;
  query.Open;
end;

Gracias por responder, y espero solucionarlo (o que me ayuden a hacerlo, je)!

Hola franroju...
Yo te diría lo siguiente, copia la consulta y metela en el cliente MySQL que tengas (SQLYog, Workbench, etc)...
Si la consulta ahi funciona bien, es que el problema esta con el componente Zeos en algun lado... De esta manera descartas que el error sea de la sentencia MySQL...
Abrite el cliente MySQL y pone: select * from usuarios where usuario = 'usuario' and contrasenia = 'contraseña'.
Si eso te arroja resultados, revisa el componente Zeos.

Respecto de Zeos, cuando yo lo comence a usar me tiraba un error por no tener la libreria libmysql.dll. Fijate de tener esta libreria en C:\Windows\System.
Luego Revisa que este apuntando a la base correcta, y que tenga el root, password y procotol correcto.

Espero te sirva, Abrazo!!!!