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