Pregunta sobre Query

[__cadetill]

Empezado por jachguate

ups!!! no lo había leido

Gracias por la aclaración Juan Antonio

[silviodp]

Cadetill:
probé desde el Explorador de bases de datos de la Consulta lo siguiente:

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 Rubro BETWEEN 1 AND 2
ORDER BY Rubro.Nombre;

y me arroja el resultado que quiero, lo que hice fué sustituir los parámetros por valores (Rubro, 1,2,Rubro.Nombre), pero si a estos valores los sustituyo por los parámetros, es de decir:
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 %s BETWEEN :DESDE AND :HASTA
ORDER BY %s;

Y ejecuto:

procedure TForm18.ListarClick(Sender: TObject);
Var
 fmSQL:String;
Begin
 If Lista.Text='Rubro' Then
   begin
     ModeloDatos.Consulta1.Close;
     fmSQL:=Modelodatos.Consulta1.SQL.Text;
  3)   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Nombre','Rubro.Nombre']);
     ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
     ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
     ModeloDatos.Consulta1.Open;
   end;

no me arroja ningún resultado es decir 0 (cero) registros.
y sustituyendo en la línea 3 del código, 'Nombre' por 'Rubro' me da:

Error: 'Type mismatch in expression'.
Me parece que el problema puede estar en los parámetros, pero ya probé de muchas formas pero no lo puedo resolver.
Gracias.

Silvio.-

[__cadetill]

Por pates

Qué desde fuera de la app el SQL te funcione y desde la app..... me parece muy, pero que muy raro.
Vamos a intentar ha hacer una prueba para ver exactamente que sentencia te esta ejecutando, ok?

Intenta poner lo siguiente

with ModeloDatos.Consulta1 do
begin
  SQL.Clear;
  SQL.Add('SELECT');
  SQL.Add('Mueble.Codmueble, Mueble.Descripcion, Rubro.Nombre, Seccion.Nombre');
  SQL.Add('FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub');
  SQL.Add('               INNER JOIN Seccion ON Mueble.Seccion = Seccion.Codigo');
  SQL.Add('WHERE Rubro BETWEEN '' '+Desde1.Text+' '' AND '' '+Hasta1.Text+' '' ');
  SQL.Add('ORDER BY Rubro.Nombre');
  SQL.SaveToFile('c:\lolo.txt');
end;

Con esto en c:\lolo.txt tendrás la consulta que te lanza y así podrás revisarla

Por otro lado, el error que te da con 'Rubro' seguramente es pq no dices de qué tabla es el campo y puede que esté en las 2 tablas

[silviodp]

Gracias, Cadetill, ya encontré el error.
Saludos.

Silvio.-

[__cadetill]

Empezado por silviodp

Gracias, Cadetill, ya encontré el error.

Y puede saberso como lo has solucionado o cuál era el error???