Consultas

[silviodp]

CONSULTA 1

SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil,Mueble.Amortizacion
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
                        INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s=:Secelegida AND %s BETWEEN :Desde AND :Hasta
ORDER BY Rubro.Nombre;

CONSULTA 2

SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil, Mueble.Amortizacion
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
                        INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s BETWEEN :Desde AND :Hasta
ORDER BY %s;

EJECUCION DE LA CONSULTA:

procedure TForm28.ListarClick(Sender: TObject);
Var
 fmSQL:String;
begin
 If Secelegida.Text<>'' Then
  begin
   ModeloDatos.Consulta1.Close;
   fmSQL:=Modelodatos.Consulta1.SQL.Text;
   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Seccion.Nombre','Fecbaja']);
   ModeloDatos.Consulta1.ParamByName('SECELEGIDA').AsString:=Secelegida.Text;
   ModeloDatos.Consulta1.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text);
   ModeloDatos.Consulta1.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text);
   ModeloDatos.Consulta1.Open;
   Form27:=TForm27.Create(Self);
   Form27.QRLabel13.Caption:=Secelegida.Text;
   Form27.ListadoBienUso.Preview;
   Form28.Close;
  end
 Else
  begin
   ModeloDatos.Consulta2.Close;
   fmSQL:=Modelodatos.Consulta2.SQL.Text;
   Modelodatos.Consulta2.SQL.Text:=Format(fmSQL,['Fecbaja','Seccion.Nombre']);
   ModeloDatos.Consulta2.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text);
   ModeloDatos.Consulta2.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text);
   ModeloDatos.Consulta2.Open;
   Form14:=TForm14.Create(Self);
   Form14.QRLabel13.Caption:='TODAS';
   Form14.ListadoBienUso.Preview;
   Form28.Close;
  end;

end;

Por que puede ser que esa consulta me arroge un reporte vacio es decir no lista lo que quiero, pero no me da error???
Estoy trabajando con Delphi 5, Paradox 7, con el BDE.
Gracias.

Silvio.-

[jachguate]

Empezado por silviodp

Por que puede ser que esa consulta me arroge un reporte vacio es decir no lista lo que quiero, pero no me da error???

Porque la sintaxis de la consulta ha de ser correcta pero en la base de datos no hay registros que cumplan con la condición del where (resultado de la consulta = vacio <> error).

Hasta luego.

[silviodp]

Si yo sustituyo en el Explorador de BD, en la solapa SQL, los parámetros de la consulta por valores concretos me arroja resultados, es decir registros que cumplen con la condición del Where hay...

Silvio.-

[jachguate]

Te recomiendo el uso del SQL Navigator para ver las sentencias SQL que se están enviando al servidor, y los valores de los parámetros. Alguna discrepancia debe haber en la lógica que seguis para sustitituir los parámetros en el programa y la que seguis para sustituirlos manualmente.

Hasta luego.

[Pablo Carlos]

Si en el explorer no te da error obviamente la consulta está bien hecha, ahora viendo el código no entiendo esto

Código Delphi [-]
fmSQL:=Modelodatos.Consulta1.SQL.Text;
   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Seccion.Nombre','Fecbaja']);

donde dices que fmsql es igual al modelo.... y después dices que modelo... es igual a fmsql... si puedes explicarme esto please

[jachguate]

Te respondere yo...

Has visto el texto de las consultas.. lo que está haciendo es usar esto para sustituir los marcadores de strigns (%s) de la consulta.

Obviamente esto funcionará solo la primera vez, y yo asumí que la consulta se usaría solo una vez durante la ejecución del programa, y que en todo caso, no tiene ninguna incidencia con el problema planteado.

Hasta luego

[Pablo Carlos]

Empezado por jachguate

Te respondere yo...

Has visto el texto de las consultas.. lo que está haciendo es usar esto para sustituir los marcadores de strigns (%s) de la consulta.

Obviamente esto funcionará solo la primera vez, y yo asumí que la consulta se usaría solo una vez durante la ejecución del programa, y que en todo caso, no tiene ninguna incidencia con el problema planteado.

Hasta luego

Gracias.... entonces el problema lo debe tener en el report... debería poner valores a los parámetros... abrir el query y trabajar con el report haciendo vista previa...
Saludos y sigo aprendiendo