Sv Community El Salvador
Soporte y Tecnología => Programación => Mensaje iniciado por: NIGHTGHOST en junio 20, 2005, 09:53:25 am
-
:sos: Hoy si frank te quiero molestar, fijate que en mi aplicacion estoy utilizando un datareport
en el cual yo quiero que me muestre los datos en base al mes y año que le establesca en un formulario, Yo lo he ocupado siempre de la siguente manera(solo con un campo y una condicion) y me funciona:
Dim Filtro As String
Filtro = Trim$(Str$(Val(Text1.Text)))
DataEnvironment1.rsCommand2.Filter = "N_USUARIO=" + Filtro
Pero yo deseo agregar dos textbox(para el mes y para el año)
en el cual me imagino que debo de ocupar el month() y el year() en el campo de la fecha del DataEnvironment1.rsCommand2, pero ¿que tendria que hacer para que el "filter" me lea las dos condiciones(mes y año)?
No se si me explique bien, pero en pocas palabra quiero ocupar el "filter" para dos condiciones "Un campo con dos condiciones en el filter" cosa que yo solo le he hecho con un campo y una condicion, ¿o no se podrá asi? o ¿hay una forma mejor?
-
Mira viejo, fijate que ese filter te funciona para un solo campo, lo que yo te recomiendo es que hagas la consulta nuevamente en lugar de estar aplicando filtros por campos te sale muchiiiiiiiiiiiisimo mejor, esperame y te busco un manualito para los data reports...
Aqui te pongo unas instrucciones que encontre para hacer la busqueda nuevamente a partir de un comando de un dataenviroment ya existente, aqui te va:
Private Sub Command1_Click()
Dim Listado As ADODB.Command ‘Objeto de tipo comando
Dim Entorno As dteEntornoDatos ‘Nuestro entorno de datos
Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
Set Entorno = New dteEntornoDatos
Entorno.Listados.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source= directorio donde se encuentra biblio.mdb”
Set Listado = Entorno.Commands("acmLibrosPub_Grouping")
Listado.CommandType = adCmdText
Listado.CommandText = " SHAPE {SELECT Publishers.`Company Name`, Titles.Title, Titles.Comments FROM Titles, Publishers WHERE Titles.PubID = Publishers.PubID AND Publishers.`Company Name`='A SYSTEM PUBNS' ORDER BY Publishers.`Company Name`, Titles.Title} AS acmLibrosPub COMPUTE acmLibrosPub, COUNT(acmLibrosPub.'Title') AS TotalLibros BY 'Company Name'"
Load rptLibrosPub
Screen.MousePointer = vbDefault
rptLibrosPub.Show vbModal
End Sub
-
Que conste que el entorno no lo tenes que iniciar nuevamente, aqui en el ejemplo lo hacen porque suponen que no esta iniciado, lo unico que necesitas es crear un adodb.command para guardar ahi tu consulta, lo que si es super importante es lo siguiente:
Set Listado = Entorno.Commands("acmLibrosPub_Grouping")
Listado.CommandType = adCmdText
Listado.CommandText = " SHAPE {SELECT Publishers.`Company Name`, Titles.Title, Titles.Comments FROM Titles, Publishers WHERE Titles.PubID = Publishers.PubID AND Publishers.`Company Name`='A SYSTEM PUBNS' ORDER BY Publishers.`Company Name`, Titles.Title} AS acmLibrosPub COMPUTE acmLibrosPub, COUNT(acmLibrosPub.'Title') AS TotalLibros BY 'Company Name'"
Si no entendes avisame, nos vemos luego!!!
-
Lo voy a tomar en cuenta para la aplicacion, si tengo dudas te molesto de nuevo, Gracias Men.
Nota. Seria bueno que nos pasaras el manualito para ocupar el datareport , yo tenia uno pero se me perdio.
-
... Seria bueno que nos pasaras el manualito para ocupar el datareport , yo tenia uno pero se me perdio.
Ya te lo mande al correo de gmail, no lo subo aqui porque es muy grande, mide casi 1 MB
-
ehr esta en el correo de la comunidad?
-
Fijate que no, se lo mande al correo de el, pero por mi no hay problema de subirlo al correo de la comunidad
-
dale frank, por favorcito
-
Bueno pues, te lo mando, tambien voy a mandar unos pdf's de visual basic .net que me robe por ahi, supuestamente no los podia sacar de la capacitacion, pero ya ven, uno siempre se sale con la suya, ja ja ja :rofl: