Problemas con consulta SQL

[JerS]

Estoy haciendo una consulta sencilla con un ADODataset

Código Delphi [-]
    ADO.Close;
    ADO.commandtext:=('Select acceso from permisos p,detallepermisos d where cedula='+Quotedstr(cedula)+' and p.codigo=d.codigo and fecha=current_date()');
    ADO.Open;
      If Not ADO.RecordSet.EOF Then
        Permiso:=ADO.Recordset.Fields.Item[0].Value
      Else
        Permiso:=0;

la hace bien pero en cierto momento me arroja esta excepción y al parecer es que se esta embasurando el Commandtext, no se que opinan ustedes y en que me pueden ayudar?

he pensado en asignar la consulta a una variable tipo string y despues asignarla al Commandtext

*****Exepcion en el Cuerpo Principal del Sistema [MySQL][ODBC 5.1 Driver][mysqld-4.1.16-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

[Casimiro Notevi]

A simple vista lo que parece que está mal es el sql que has puesto.

[[newtron]]

¿Es posible que la variable "cedula" haya algún momento en el que el valor sea nulo o extraño?

[Neftali [Germán.Estévez]]

Estaría bien que mostraras (o almacenaras en algún sitio) las consultas que vas lanzando para ver qué es lo que realmente envías.
Otra opción es capturar la excepción y aprovechar para mostrar ahí la consulta que está fallando.

[JerS]

Empezado por Casimiro Notevi

A simple vista lo que parece que está mal es el sql que has puesto.

Casimiro que esta mal en la consulta??

[JerS]

Empezado por newtron

¿Es posible que la variable "cedula" haya algún momento en el que el valor sea nulo o extraño?

la variable cédula solo toma valor al inicio, y para poder llegar a esta consulta el valida con esa misma variable que exista alguien con dicha cédula, dudo que tome un valor extraño

[JerS]

Empezado por Neftali

Estaría bien que mostraras (o almacenaras en algún sitio) las consultas que vas lanzando para ver qué es lo que realmente envías.
Otra opción es capturar la excepción y aprovechar para mostrar ahí la consulta que está fallando.

Neftali estoy capturando la excepción y lo que logro capturar es esto

[MySQL][ODBC 5.1 Driver][mysqld-4.1.16-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

[*Caro*]

Empezado por JerS

Neftali estoy capturando la excepción y lo que logro capturar es esto

[MySQL][ODBC 5.1 Driver][mysqld-4.1.16-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

Hola JerS, lo que Neftali te dice es que además de mostrar la excepción, muestres también la consulta que se ha generado en ese momento y así poder ver en donde esta el error.

Código Delphi [-]
Try
  ............
Except
 .............
 showmessage(ADO.commandtext);
end;

También puedes probar de hacerlo con un AdoQuery y ver si ocurre lo mismo.

Saluditos

[JerS]

Empezado por Caro

Hola JerS, lo que Neftali te dice es que además de mostrar la excepción, muestres también la consulta que se ha generado en ese momento y así poder ver en donde esta el error.

Código Delphi [-]
Try
  ............
Except
 .............
 showmessage(ADO.commandtext);
end;

También puedes probar de hacerlo con un AdoQuery y ver si ocurre lo mismo.

Saluditos

Gracias Caro gracias por tu aporte lo tomare en consideración y someteré a prueba a ver que arroja y lo publicare

[Neftali [Germán.Estévez]]

Empezado por Caro

Hola JerS, lo que Neftali te dice es que además de mostrar la excepción, muestres también la consulta que se ha generado en ese momento y así poder ver en donde esta el error.

Eso mismo.
Gracias Caro, si es que eres la que mejor me entiende...