Consulta con 3 inner join da error que falta operador

[Petolansa]

Gente vuelvo, gracias por la ultima observación agregue los campos y me sigue dando el mismo error, crei que era por el orden de asignación o sea que tendrían que estar invertidos los campos del otro lado del igual pero lo probé y naranjas.

PERSONAL

PNROLEGAJO NUMERO
PAPELLIDO TEXTO
PNOMBRE TEXTO
PFINGRESO FECHA
PCODACTIVIDAD NUMERO
PCODLUGAR NUMERO
PCODHORARIO NUMERO
PTELFIJO NUMERO
PTELCELULAR NUMERO
PGUARDIA LOGICO
PESTADO LOGICO
PFECHANAC FECHA
POBSERVA TEXTO


HORARIO

HCODHORARIO NUMERO
HTURNO TEXTO
HDESCTURNO TEXTO

LUGAR

LCODLUGAR NUMERO
LNOMBRELUGAR TEXTO
LDESCLUGAR TEXTO

ACTIVIDAD

ACODACTIVIDAD NUMERO
ATIPOACTIVIDAD TEXTO
ADESCACTIVIDAD TEXTO


Los campos numéricos son ENTEROS sin decimales

Les pido disculpas que no nombre el motor de base de datos es access y el entorno es D7

Se que access no es lo mejor pero agarre todo asi!

Sino escucho recomendaciones.

Gracias gente!

[MartinS]

Y si probas asi:

Código SQL [-]
Select * From Personal,Horario,Lugar,Actividad
Where Personal.PcodHorario = Horario.HCodHorario and
         Personal.PCodLugar = Lugar.LCodLugar and
         Personal.PCodActividad = Actividad.ACodActividad and
         Personal.PDni = :NroDni

Ojo!!! No se si anda, ademas fijate bien los nombres de los campos porque en el inner join pusiste que un campo de la tabla lugar era PCodLugar y la estructura de las tablas que adjuntaste en el mensaje anterior ese campo lo nombras como LCodLugar, Revisa bien los nombres de los campos.-

Saludos.-

[Casimiro Noteví]

Y de paso, una pregunta, ¿el mensaje de error exactamente es el que has indicado antes, en español, o lo has traducido para ponerlo aquí?

[olbeup]

Hola Petolansa,

El problema que te esta pasando no es más ni menos que los paréntesis, MSACCESS es raro ya por naturaleza y a la hora de trabajar con más de un INNER JOIN, necesita paréntesis, ¿el porque?, no lo se, pero así es como trabaja este motor de base de datos.

Cuando pones más de un INNER JOIN tienes que utilizar tantos paréntesis cómo INNER JOIN pongas, el primer paréntesis se coloca después del FROM y cerrando cómo INNER JOIN tengas excepto el último, es aquí tu caso.

Código SQL [-]
SELECT
    P.PNROLEGAJO
    ,P.PAPELLIDO
    ,P.PNOMBRE
    ,P.PFINGRESO
    ,P.PTELFIJO
    ,P.PTELCELULAR
    ,P.PGUARDIA
    ,P.PESTADO
    ,P.PFECHANAC
    ,P.POBSERVA
    ,H.TURNO
    ,H.DESCTURNO
    ,L.LNOMBRELUGAR
    ,L.DESCLUGAR
    ,A.TIPOACTIVIDAD
    ,A.ADESCACTIVIDAD
  FROM ((PERSONAL AS P
    INNER JOIN HORARIO AS H
      ON P.PCODHORARIO = H.HCODHORARIO)
    INNER JOIN LUGAR AS L
      ON P.PCODLUGAR = L.PCODLUGAR)
    INNER JOIN ACTIVIDAD AS A
      ON P.PCODACTIVIDAD = A.ACODACTIVIDAD
  WHERE P.PDNI=:NRODNI

¿Cuantos paréntesis hay?, pues 2, ¿Cuantos INNER JOIN hay?, pues 3.
Los paréntesis se colocan cuando hay más de un INNER JOIN y cerrando los paréntesis en cada INNER JOIN excepto el último.

Espero que se me haya entendido para los futuros INNER JOIN

Cómo dice Casimiro Notevi, es mucho mejor utilizar ALIAS en tus base de datos para evitar errores que te puedan llevar a muchos dolores de cabeza.

Un saludo

[Petolansa]

Casimiro, en español si, asi aparecia el error.
Olbeup gracias, la verdad que si, la vez que utilize sql fue con sql server y no utiliza parentesis. AHora ya lo se y es indispensable para tenerlo en cuent!a!
Ahora bien, La consulta que estoy realizando se encuentra dentro dequery dentro de un qreport, ya que es para que muestre la ficha personal del agente. Puedo agregar los campos en el query, lo puedo activar o desactivar si errores.


EL formulario del que lo llamo tiene el siguiente codigo.

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
begin
 try
    if qrfichapersonal.Query1.Active  then close;
    qrfichapersonal:=tqrfichapersonal.Create(self);
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := strtofloat(dbtext1.Caption);
//el parametro nrodni lo declaro de tipo float 
//el dbtext1 es un dbtext que se muestra en el form2 simple que tiene el campo de dni del agente,  que son dbedits asociados a la tabla personal conectados a un dbnavigator para mostrar los agentes.
    quickreport10.Query1.Open;
    quickreport10.PreviewModal;
finally
    quickreport10.Free;
    end;

En el qrfichapersonal tengo dbtext asociados al query1 que es el que realiza la consulta que hago con el select que armamos entre todos

Código SQL [-]
SELECT
     P.PNROLEGAJO
    ,P.PAPELLIDO
    ,P.PNOMBRE
    ,P.PFINGRESO
    ,P.PTELFIJO
    ,P.PTELCELULAR
    ,P.PGUARDIA
    ,P.PESTADO
    ,P.PFECHANAC
    ,P.POBSERVA
    ,P.PCODLUGAR
    ,H.HTURNO
    ,H.HDESCTURNO
    ,L.LNOMBRELUGAR
    ,L.LDESCLUGAR
    ,A.ATIPOACTIVIDAD
    ,A.ADESCACTIVIDAD
  FROM ((PERSONAL AS P
    INNER JOIN HORARIO AS H
      ON P.PCODHORARIO = H.HCODHORARIO)
    INNER JOIN LUGAR AS L
      ON P.PCODLUGAR = L.LCODLUGAR)
    INNER JOIN ACTIVIDAD AS A
      ON P.PCODACTIVIDAD = A.ACODACTIVIDAD
  WHERE P.PDNI=:NRODNI

EL problema es que no muestran nada los campos, que se puede estar escapando?

Gracias gente.

[MartinS]

Antes que nada

Código Delphi [-]
    // Cambia
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := strtofloat(dbtext1.Caption);
    // por
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := strtoInt(dbtext1.Caption); // Creo que decias que NroDNI era entero

Deberias comprobar si la consulta arroja algun resultado en algun DbGrid o similar para ver si realmente hace lo que queres que haga. Otro punto importante es darle al QReport el Dataset, en tu caso Query1.
Algo mas sencillo a mi entender es que en vez de dar como parametro el contenido de una etiqueta deberias darle el valor del campo que estas buscando por ejemplo:

Código Delphi [-]
     // Suponiendo que Query2 es de una consulta de los clientes/Personal/Etc.-
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := Query2.FieldByName('NroDoc').AsInteger;

[Petolansa]

Gracias a todos gente, ahi logre imprimir el qreport con la consulta. El codigo me quedo asi, reemplaze asignarle el text de un dbedit por el valor del campo de una tabla. Tambien cabie el tipo de variable de float a integer.

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
begin
try
   if quickreport10.Query1.Active  then close;
    quickreport10:=tquickreport10.Create(self);
    quickreport10.Query1.Params.ParamByName('nrodni').Value := form2.Table1.FieldByName('pdni').Value ;
    strtoint(dbedit6.Text);
    quickreport10.Query1.Open;
    quickreport10.PreviewModal;
finally
    quickreport10.Free;
    end;
end;
end.

SAludos!