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.