Pregunta sobre Query

[silviodp]

procprocedure TForm18.ListarClick(Sender: TObject);
Var
 fmSQL:String;
begin
 If Lista.Text='Código' Then
  begin
   ModeloDatos.Consulta1.Close;
   fmSQL:=Modelodatos.Consulta1.SQL.Text;
   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['ORDEN']);
   ModeloDatos.Consulta1.ParamByName('ORDEN').AsString:=Modelodatos.TblMuebleCodMueble.FieldName;
   ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
   ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
   ModeloDatos.Consulta1.Open;
  endedure TForm18.ListarClick(Sender: TObject);

Consulta:
SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE :ORDEN BETWEEN ESDE AND :HASTA
ORDER BY %s;

Ese es el código.

[roman]

Empezado por silviodp

[code]
SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE :ORDEN BETWEEN ESDE AND :HASTA
ORDER BY %s;

Los dos puntos antes de ORDEN no van.

// Saludos

[__cadetill]

Sólo añadir a la respuesta de Román que, si ORDEN es un campo variable, es decir, que previamente no sabes que nombre va a tener el campo, puedes usar el mismo "truco" que para el Order By

SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s BETWEEN ESDE AND :HASTA
ORDER BY %s;

ModeloDatos.Consulta1.Sql.Text := Format(fmtSql, ['CAMPO', 'ORDEN']);

[silviodp]

Cadetill:
el código que me pasate anda perfecto para Mueble.CodMueble y Para Mueble.descripcion es decir:

procedure TForm18.ListarClick(Sender: TObject);

Pero fijate el código para la parte de 'Rubro', esa parte del códigome da el reporte vacío es decir sin ningún registro.
El código de la Consulta te recuerdo que es:

SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre

Por qué puede ser?
Gracias, saludos.

Silvio.-

[silviodp]

cadetill:
el código que quise poner antes es:

procedure TForm18.ListarClick(Sender: TObject);
Var
fmSQL:String;
begin
If Lista.Text='Código' Then
begin
ModeloDatos.Consulta1.Close;
fmSQL:=Modelodatos.Consulta1.SQL.Text;
Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['CodMueble','CodMueble']);
ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
ModeloDatos.Consulta1.Open;
end
Else
If Lista.Text='Descripción' Then
begin
ModeloDatos.Consulta1.Close;
fmSQL:=Modelodatos.Consulta1.SQL.Text;
Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Descripcion','Descripcion']);
ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
ModeloDatos.Consulta1.Open;
end
Else
If Lista.Text='Rubro' Then
begin
ModeloDatos.Consulta1.Close;
fmSQL:=Modelodatos.Consulta1.SQL.Text;
Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Nombre','Nombre']);
ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
ModeloDatos.Consulta1.Open;
end;

Y el de la Consulta es:

SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre
FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub
INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo
WHERE %s BETWEEN ESDE AND :HASTA
ORDER BY %s;

Disculpame que lo transcriba así, pero la no sé como se usa la etiqueta Code.
Gracias.-

[jachguate]

Empezado por silviodp

Disculpame que lo transcriba así, pero la no sé como se usa la etiqueta Code.

Para aprender a usarla, podes seguir el vínculo en mi firma.

Hasta luego.

[__cadetill]

a ver, no se si te he entendido bien

Dices que para las opciones de CodMueble y Descripcion funciona bien, pero en cambio, para la otra opción, Nombre, no te funciona

Para ver por donde anda el problema (ya que es de suponer que los muebles han de tener "nombre"), prueba poner un punto de ruptura en la linea donde asignas lo parámetros y ver que parámetros estás pasando y que sentencia SQL estás lanzando.

Prueba también a lanzar esa sentencia SQL desde fuera de Delphi a ver si te retorna resultados