Pregunta sobre Query

[roman]

Empezado por cadetill

Bueno, si no me equivoco sería algo así. Ahora te toca a ti probarlo

Je, je. Aunque no hubiera sido a lo que me refería tu respuesta es del todo correcta

Otra forma podría ser olvidarse de los parámetros de SQL y colocarlos todos como parámetros de Format:

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 %s AND %s
ORDER BY %s

y ejecutar así:

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

ModeloDatos.Consulta1.Open;

// Saludos

[silviodp]

Cadetill:
probé como vos me detallaste, pero me da el siguiente error:
'Field in order by must be in result set' y si hago

Format(fmSQL,['CodMueble']); el error es 'Parameter not set in query string'.
fmSQL es de tipo String?
Gracias, saludos.

Silvio.-

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