Pregunta sobre Query

[roman]

Empezado por cadetill

Lo que pasa es que no vas a poder ordenar una Query por una columna que no esté incluida en la sentencia Select

¿Y esto? Acabo de probar con MySql y sí se puede. ¿En otros casos no?

// Saludos

[__cadetill]

Empezado por roman

¿Y esto? Acabo de probar con MySql y sí se puede. ¿En otros casos no?

Bueno, las pruebas las hice desde el SQLExplorer contra Paradox y no lo permitió. Aunque he de reconocer que lo acabo de probar en Firebird y funciona sin problemas

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