Pregunta sobre Query

[__cadetill]

Por qué no nos pones el código que usas para ver donde puede estar el error?

Acuerdate de usar las etiquetas [ code] y [ /code] (sin los espacios)

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