Pregunta sobre Query

[silviodp]

Cadetill:
el código que me pasate anda perfecto para Mueble.CodMueble y Para Mueble.descripcion es decir:

procedure TForm18.ListarClick(Sender: TObject);

Pero fijate el código para la parte de 'Rubro', esa parte del códigome da el reporte vacío es decir sin ningún registro.
El código de la Consulta te recuerdo que es:

SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre

Por qué puede ser?
Gracias, saludos.

Silvio.-

[silviodp]

cadetill:
el código que quise poner antes es:

procedure TForm18.ListarClick(Sender: TObject);
Var
fmSQL:String;
begin
If Lista.Text='Código' Then
begin
ModeloDatos.Consulta1.Close;
fmSQL:=Modelodatos.Consulta1.SQL.Text;
Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['CodMueble','CodMueble']);
ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
ModeloDatos.Consulta1.Open;
end
Else
If Lista.Text='Descripción' Then
begin
ModeloDatos.Consulta1.Close;
fmSQL:=Modelodatos.Consulta1.SQL.Text;
Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Descripcion','Descripcion']);
ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
ModeloDatos.Consulta1.Open;
end
Else
If Lista.Text='Rubro' Then
begin
ModeloDatos.Consulta1.Close;
fmSQL:=Modelodatos.Consulta1.SQL.Text;
Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Nombre','Nombre']);
ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
ModeloDatos.Consulta1.Open;
end;

Y el de la Consulta es:

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 ESDE AND :HASTA
ORDER BY %s;

Disculpame que lo transcriba así, pero la no sé como se usa la etiqueta Code.
Gracias.-

[jachguate]

Empezado por silviodp

Disculpame que lo transcriba así, pero la no sé como se usa la etiqueta Code.

Para aprender a usarla, podes seguir el vínculo en mi firma.

Hasta luego.

[__cadetill]

a ver, no se si te he entendido bien

Dices que para las opciones de CodMueble y Descripcion funciona bien, pero en cambio, para la otra opción, Nombre, no te funciona

Para ver por donde anda el problema (ya que es de suponer que los muebles han de tener "nombre"), prueba poner un punto de ruptura en la linea donde asignas lo parámetros y ver que parámetros estás pasando y que sentencia SQL estás lanzando.

Prueba también a lanzar esa sentencia SQL desde fuera de Delphi a ver si te retorna resultados

[silviodp]

En realidad el tema es así:

para Mueble.CodMueble y Mueble.Descripcion funciona bien es decir me lista ordenado por esos campos y según la seleccion que yo haya hecho, pero para Rubro.Nombre y Seccion.Nombre, cuando quiero ordenar por uno de esos campos, me devuelve el reporte en blanco es decir sin ningún registro, pero no me da ningún error. Solamente que no hace lo que debiera.
Los campos que yo selecciono en mi consulta son esos cuatro.
Gracias, saludos.

Silvio.-

[__cadetill]

Empezado por silviodp

para Mueble.CodMueble y Mueble.Descripcion funciona bien es decir me lista ordenado por esos campos y según la seleccion que yo haya hecho, pero para Rubro.Nombre y Seccion.Nombre, cuando quiero ordenar por uno de esos campos, me devuelve el reporte en blanco es decir sin ningún registro, pero no me da ningún error. Solamente que no hace lo que debiera.
Los campos que yo selecciono en mi consulta son esos cuatro.

Probaste lo de mi mensaje anterior?

[silviodp]

El código que uso es tal cual así:

procedure TForm18.ListarClick(Sender: TObject);
Var
 fmSQL:String;
begin
 If Lista.Text='Código' Then
  begin
   ModeloDatos.Consulta1.Close;
   fmSQL:=Modelodatos.Consulta1.SQL.Text;
   Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['CodMueble','CodMueble']);
   ModeloDatos.Consulta1.ParamByName('DESDE').AsInteger:=StrToInt(Desde.Text);
   ModeloDatos.Consulta1.ParamByName('HASTA').AsInteger:=StrToInt(Hasta.Text);
   ModeloDatos.Consulta1.Open;
  end
 Else
   If Lista.Text='Descripción' Then
   begin
     ModeloDatos.Consulta1.Close;
     fmSQL:=Modelodatos.Consulta1.SQL.Text;
     Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Descripcion','Descripcion']);
     ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
     ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
     ModeloDatos.Consulta1.Open;
   end
 Else
   If Lista.Text='Rubro' Then  
   begin
     ModeloDatos.Consulta1.Close;
     fmSQL:=Modelodatos.Consulta1.SQL.Text;
     Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Nombre','Nombre']);
     ModeloDatos.Consulta1.ParamByName('DESDE').AsString:=Desde1.Text;
     ModeloDatos.Consulta1.ParamByName('HASTA').AsString:=Hasta1.Text;
     ModeloDatos.Consulta1.Open;
   end;

y el de la Consulta SQL es:

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;

En la parte de 'Rubro', del código es donde no funciona bien, no probé con tu respuesta anterior ya que no entiendo bien lo del 'punto de ruptura'.
Gracias.

Silvio.-