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 :DESDE 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 :DESDE 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]

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

[roman]

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

[__cadetill]

¿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

[roman]

Bueno, si no me equivoco sería algo así. Ahora te toca a ti probarlo

Je, je. Aunque no hubiera sido a lo que me refería tu respuesta es del todo correcta ;)

Otra forma podría ser olvidarse de los parámetros de SQL y colocarlos todos como parámetros de Format:


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 %s AND %s
ORDER BY %s


y ejecutar así:


ModeloDatos.Consulta1.Sql.Text :=
Format(fmtSql, [Desde.Text, Hasta.Text, 'ORDEN']);

ModeloDatos.Consulta1.Open;


// Saludos

[silviodp]

Cadetill:
probé como vos me detallaste, pero me da el siguiente error:
'Field in order by must be in result set' y si hago

Format(fmSQL,['CodMueble']); el error es 'Parameter not set in query string'.
fmSQL es de tipo String?
Gracias, saludos.

Silvio.-

[__cadetill]

Por qué no nos pones el código que usas para ver donde puede estar el error?

Acuerdate de usar las etiquetas [ code] y [ /code] (sin los espacios)

[silviodp]

procprocedure 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,['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);
ModeloDatos.Consulta1.Open;
endedure TForm18.ListarClick(Sender: TObject);

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

Ese es el código.

[roman]

[CODE]
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;


Los dos puntos antes de ORDEN no van.

// Saludos

[__cadetill]

Sólo añadir a la respuesta de Román que, si ORDEN es un campo variable, es decir, que previamente no sabes que nombre va a tener el campo, puedes usar el mismo "truco" que para el Order By


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;

ModeloDatos.Consulta1.Sql.Text := Format(fmtSql, ['CAMPO', 'ORDEN']);

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

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

[jachguate]

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]

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

[__cadetill]

sí, vale, pero.... no me dices si has probado lo de debugear, mirar qué sentencia SQL te está generando, probar esa sentencia SQL fuera de Delphi (y de tu app), mirar que parámetros le estás pasando (quizás los estén enviando en orden inverso estilo ZZZZ y AAAAA en ligar de AAAA y ZZZZZ y por eso no te devuelve nada),............

[jachguate]

ya que no entiendo bien lo del 'punto de ruptura'.no me dices si has probado lo de debugear

Punto de ruptura = Breakpoint
Debugear = (spanglish(debug)) acción destinada a depurar una aplicación, normalmente se realiza poniendo un breakpoint o punto de ruptura que rompe la ejecución del programa, permitiendo evaluar y cambiar el valor de las variables y continuar la ejecución paso a paso del mismo.

[__cadetill]

ya que no entiendo bien lo del 'punto de ruptura'.


ups!!! no lo había leido :D

Gracias por la aclaración Juan Antonio :p

[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]

Gracias, Cadetill, ya encontré el error.

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