FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#1
|
|||
|
|||
Consultas
CONSULTA 1
Código:
SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil,Mueble.Amortizacion FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo WHERE %s=:Secelegida AND %s BETWEEN :Desde AND :Hasta ORDER BY Rubro.Nombre; Código:
SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil, Mueble.Amortizacion 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; Código:
procedure TForm28.ListarClick(Sender: TObject); Var fmSQL:String; begin If Secelegida.Text<>'' Then begin ModeloDatos.Consulta1.Close; fmSQL:=Modelodatos.Consulta1.SQL.Text; Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Seccion.Nombre','Fecbaja']); ModeloDatos.Consulta1.ParamByName('SECELEGIDA').AsString:=Secelegida.Text; ModeloDatos.Consulta1.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text); ModeloDatos.Consulta1.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text); ModeloDatos.Consulta1.Open; Form27:=TForm27.Create(Self); Form27.QRLabel13.Caption:=Secelegida.Text; Form27.ListadoBienUso.Preview; Form28.Close; end Else begin ModeloDatos.Consulta2.Close; fmSQL:=Modelodatos.Consulta2.SQL.Text; Modelodatos.Consulta2.SQL.Text:=Format(fmSQL,['Fecbaja','Seccion.Nombre']); ModeloDatos.Consulta2.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text); ModeloDatos.Consulta2.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text); ModeloDatos.Consulta2.Open; Form14:=TForm14.Create(Self); Form14.QRLabel13.Caption:='TODAS'; Form14.ListadoBienUso.Preview; Form28.Close; end; end; Estoy trabajando con Delphi 5, Paradox 7, con el BDE. Gracias. Silvio.- |
#2
|
||||
|
||||
Cita:
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
|||
|
|||
Consultas
Si yo sustituyo en el Explorador de BD, en la solapa SQL, los parámetros de la consulta por valores concretos me arroja resultados, es decir registros que cumplen con la condición del Where hay...
Silvio.- |
#4
|
||||
|
||||
Te recomiendo el uso del SQL Navigator para ver las sentencias SQL que se están enviando al servidor, y los valores de los parámetros. Alguna discrepancia debe haber en la lógica que seguis para sustitituir los parámetros en el programa y la que seguis para sustituirlos manualmente.
Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#5
|
||||
|
||||
Si en el explorer no te da error obviamente la consulta está bien hecha, ahora viendo el código no entiendo esto
donde dices que fmsql es igual al modelo.... y después dices que modelo... es igual a fmsql... si puedes explicarme esto please
__________________
Por qué todas las personas saben exactamente cómo debemos vivir nuestra vida, y nunca tienen idea de cómo deben vivir sus propias vidas.
|
#6
|
||||
|
||||
Te respondere yo...
Has visto el texto de las consultas.. lo que está haciendo es usar esto para sustituir los marcadores de strigns (%s) de la consulta. Obviamente esto funcionará solo la primera vez, y yo asumí que la consulta se usaría solo una vez durante la ejecución del programa, y que en todo caso, no tiene ninguna incidencia con el problema planteado. Hasta luego
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
|
|
|