FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Pregunta sobre Query
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. |
#2
|
|||
|
|||
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) Código:
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; Espero te sirva |
#3
|
|||
|
|||
Pregunta sobre Query
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.- |
#4
|
|||
|
|||
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? |
#5
|
||||
|
||||
Cita:
// Saludos |
#6
|
||||
|
||||
Cita:
fmSql = 'SELECT bla, bla, bla ORDER BY %s' y al momento de ejecutar la consulta sustituyo: Query.Sql.Text := Format(fmtSql, ['CodMueble']); // Saludos |
#7
|
|||
|
|||
Cita:
|
#8
|
|||
|
|||
Pregunta sobre Query
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.- |
#9
|
|||
|
|||
Bueno, Román se refería a algo así
Has de tener la siguiente sentencia SQL en tu Código:
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 Código:
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); |
#10
|
||||
|
||||
Cita:
Otra forma podría ser olvidarse de los parámetros de SQL y colocarlos todos como parámetros de Format: Código:
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 Código:
ModeloDatos.Consulta1.Sql.Text := Format(fmtSql, [Desde.Text, Hasta.Text, 'ORDEN']); ModeloDatos.Consulta1.Open; |
#11
|
|||
|
|||
Pregunta sobre Query
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.- |
#12
|
|||
|
|||
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) |
#13
|
|||
|
|||
Código:
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); 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 %s; Ese es el código. |
#14
|
||||
|
||||
Cita:
// Saludos |
#15
|
|||
|
|||
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
Código:
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']); |
#16
|
|||
|
|||
Pregunta sobre Query
Cadetill:
el código que me pasate anda perfecto para Mueble.CodMueble y Para Mueble.descripcion es decir: Código:
procedure TForm18.ListarClick(Sender: TObject); El código de la Consulta te recuerdo que es: Código:
SELECT Mueble.Codmueble,Mueble.Descripcion,Rubro.Nombre,Seccion.Nombre Gracias, saludos. Silvio.- |
#17
|
|||
|
|||
Pregunta sobre Query
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.- |
#18
|
||||
|
||||
Cita:
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#19
|
|||
|
|||
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 |
#20
|
|||
|
|||
Pregunta sobre Query
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.- |
|
|
|