Error en codigo SQL!!

[Vales08]

Hola foro!

Estoy tratando de realizar una consulta para mi proyecto pero me salta el siguiente error y no puedo ubicarlo, me gustaria que me orienten si puede ser..

---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error
SQL error code = -104
Token unknown - line 1, char 138
'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

y el codigo que utilizo es el siguiente

Código Delphi [-]
with (DM.Q_pac )do
  begin
   SQL.Clear;
                            // Para mi el problema esta en esta primera linea, a lo que entiendo debe ser una comilla pero no se 
   SQL.Text:='select APELLIDO_Y_NOMBBRE, NUMERO_DOCUMENTO, EDAD, SEXO, LOCALIDAD,NOMBRE'+     
           'from PACIENTES, LOCALIDADES, COBERTURAS_MEDICAS'+
           'where LOCALIDADES.LOCALIDAD = ' + QuotedStr(loc.Text)+
           'and COBERTURAS_MEDICAS.NOMBRE = ' + QuotedStr(cm.Text)+
           'and LOCALIDADES.ID_LOC = PACIENTES.ID_LOC'+
           'and COBERTURAS_MEDICAS.ID_COBER = PACIENTES.ID_COBER';
   Open;
  end;

A lo mejor estoy haciendo cualquier cosa, pero es la primera vez que realizo una consulta y me estoy orientando con lo que ustedes aportan en los foros..

Desde ya muchas gracias... Saludos

[[newtron]]

Hola.

En principio veo que te faltan por separar con espacios varias instrucciones, tendrías que hacer esto:

Código Delphi [-]
  SQL.Text:='select APELLIDO_Y_NOMBBRE, NUMERO_DOCUMENTO,EDAD,SEXO,LOCALIDAD,NOMBRE'+
            ' from PACIENTES, LOCALIDADES, COBERTURAS_MEDICAS'+
            ' where LOCALIDADES.LOCALIDAD = ' + QuotedStr(loc.Text)+
            ' and COBERTURAS_MEDICAS.NOMBRE = ' + QuotedStr(cm.Text)+
            ' and LOCALIDADES.ID_LOC = PACIENTES.ID_LOC'+
            ' and COBERTURAS_MEDICAS.ID_COBER = PACIENTES.ID_COBER';

revísalo por si se me escapa alguno.

Saludos

[ecfisa]

Hola Vales.

Creo que el error se produce por la forma en que concantenas las constantes literales, más exáctamente la falta de espacios entre expresiones:

Código Delphi [-]
...from PACIENTES, LOCALIDADES, COBERTURAS_MEDICAS'+
   'where LOCALIDADES...

Ya que la cadena quedaría: "from PACIENTES, LOCALIDADES, COBERTURAS_MEDICASwhere LOCALIDADES..."

De todas formas te conviene acostumbrarte a utilizar parámetros para evitar la posibilidad de inyección SQL, por otro lado también es más óptimo.

Proba de este modo:

Código Delphi [-]
  with DM.Q_pac  do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT APELLIDO_Y_NOMBBRE, NUMERO_DOCUMENTO, EDAD, SEXO, LOCALIDAD,NOMBRE ');
    SQL.Add('FROM PACIENTES, LOCALIDADES, COBERTURAS_MEDICAS ');
    SQL.Add('WHERE LOCALIDADES.LOCALIDAD = :LOCALIDAD ');
    SQL.Add('AND COBERTURAS_MEDICAS.NOMBRE = :COBERTURA ');
    SQL.Add('AND LOCALIDADES.ID_LOC = PACIENTES.ID_LOC ');
    SQL.Add('AND COBERTURAS_MEDICAS.ID_COBER = PACIENTES.ID_COBER');
    ParamByName('LOCALIDAD').AsString:= loc.Text;
    ParamByName('COBERTURA').AsString:= cm.Text;
    Open;
  end;

Un saludo.

Edito: No había visto la respuesta del amigo newtron, pero como verás coincido con él en la apreciación.

[Vales08]

Ahh no me habia dado cuenta, como dije recien nunca hice una consulta de estas y menos concatenadas, ya solucione el problema...

ecfisa gracias por el consejo, la verdad asi es mas facil y ordenado y tiene menos posibilidades de error..
Muchas gracias por la solucion..
Saludos..
y Pasen muy Felicices Fiestas...

[[newtron]]

Empezado por Vales08

ecfisa gracias por el consejo, la verdad asi es mas facil y ordenado y tiene menos posibilidades de error..
Muchas gracias por la solucion..

De nada, de nada, me alegro de que hayas solucionado el problema.