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