Pregunta sobre Query

[silviodp]

Roman:
cuando te referís a ejecutar la consulta, te referías a hecrlo en el código asociado donde hago esto:

procedure TForm18.ListarClick(Sender: TObject);
begin
If Lista.Text='Código' Then
begin
Form21.ListadoBienUso.DataSet:=ModeloDatos.Consulta1;
ModeloDatos.Consulta1.Close;
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;
end;

También le asigno a la variable fmSql las sentencias de la consulta SQL en éste lugar?
Disculpame y gracias.

Silvio.-

[__cadetill]

Bueno, Román se refería a algo así

Has de tener la siguiente sentencia SQL en tu

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

y desde código hacer algo como

ModeloDatos.Consulta1.Close;

fmSql := ModeloDatos.Consulta1.Sql.Text;
ModeloDatos.Consulta1.Sql.Text := Format(fmtSql, ['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);

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

[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