Foros Club Delphi - Consultas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Consultas (https://www.clubdelphi.com/foros/showthread.php?t=13082)

CONSULTA 1

Código:

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

Código:

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:

Código:

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.-

Cita:

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.

;)

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.-

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.

;)

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 :confused:

Te respondere yo... :D

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

;)

Cita:

Empezado por jachguate

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 :)