Pregunta sobre Query

[silviodp]

Necesito incluir en una consulta un parámetro que tome como valor el nombre de un campo de una tabla, porque yo en mi Query tengo una sentencia que hace un ORDER BY con el valor de ese parámetro. Según éste valor, que es un campo de mi tabla, ordeno el resultado de la consulta.

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 ORDEN;

Código Ejecución:

procedure TForm18.ListarClick(Sender: TObject);
begin
If Lista.Text='Código' Then
begin

ModeloDatos.Consulta1.Close;
ModeloDatos.Consulta1.ParamByName('ORDEN').AsString:='CodMueble';
ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
ModeloDatos.Consulta1.Open;
end;


Como se moldea un String con un TField, si se puede?
ya que me parece que el error está en la incompatibilidad de tipos.

[__cadetill]

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

Para empezar, lo incluyes en la Select y, luego puedes hacer algo así (no lo he probado por lo que a lo mejor no funciona)

SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre, :campo
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 :campo;


procedure TForm18.ListarClick(Sender: TObject);
begin
If Lista.Text='Código' Then
begin

ModeloDatos.Consulta1.Close;
ModeloDatos.Consulta1.ParamByName('ORDEN').AsString := 'CodMueble';
ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger := StrToInt(Desde.Text);
ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger := StrToInt(Hasta.Text);
ModeloDatos.Consulta1.ParamByName('campo').AsString := MiTablaMiCampo.FieldName;
ModeloDatos.Consulta1.Open;
end;

lo de FieldName lo digo de memoria, quizás no es exactamente así la propiedad de TField, pero puedes investigar por allí

Espero te sirva

[silviodp]

Cadetill:
hice esto:

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 :Mueble.CodMueble;



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

Y me da éste error:

'Invalid use of keyword'
Token: BY
Line Number: 5.

La verdad es que no sé porque, gracias.

Silvio.-

[__cadetill]

Hola

Ya dije que no lo había probado y lo acabo de hacer y, no, no deja pasar como parámetro el nombre del campo

Tendrás que construir toda la sentencia en ejecución, pero bueno, no es muy complicado, no?

[roman]

Empezado por cadetill

Tendrás que construir toda la sentencia en ejecución, pero bueno, no es muy complicado, no?

En estos casos lo que yo hago es almacenar la consulta sql en una constante con parámetros para Format, por ejemplo:

fmSql = 'SELECT bla, bla, bla ORDER BY %s'

y al momento de ejecutar la consulta sustituyo:

Query.Sql.Text := Format(fmtSql, ['CodMueble']);

// Saludos

[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