Autor Tema: Hey Frank hechame una Mano  (Leído 3111 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado NIGHTGHOST

  • Ghost User -
  • -^- Elite Gold -^-
  • Trade Count: (6)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 13
  • Mensajes: 2001
  • I'm Sparky... I'm NightWolf... User SVC
Hey Frank hechame una Mano
« : 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?


Desconectado °o.O[ F®ªnk ]O.o°

  • -^- Elite Gold -^-
  • Trade Count: (4)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 0
  • Mensajes: 2172
Re: Hey Frank hechame una Mano
« Respuesta #1 : junio 20, 2005, 10:39:45 pm »
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:

Citar
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

NO FUMEN!!!, es por su bien
LORD KARLITOZ, TE EXTRAÑAREMOS

Desconectado °o.O[ F®ªnk ]O.o°

  • -^- Elite Gold -^-
  • Trade Count: (4)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 0
  • Mensajes: 2172
Re: Hey Frank hechame una Mano
« Respuesta #2 : junio 20, 2005, 10:42:39 pm »
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:

Citar
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!!!

NO FUMEN!!!, es por su bien
LORD KARLITOZ, TE EXTRAÑAREMOS

Desconectado NIGHTGHOST

  • Ghost User -
  • -^- Elite Gold -^-
  • Trade Count: (6)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 13
  • Mensajes: 2001
  • I'm Sparky... I'm NightWolf... User SVC
Re: Hey Frank hechame una Mano
« Respuesta #3 : junio 21, 2005, 10:46:42 am »
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.


Desconectado °o.O[ F®ªnk ]O.o°

  • -^- Elite Gold -^-
  • Trade Count: (4)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 0
  • Mensajes: 2172
Re: Hey Frank hechame una Mano
« Respuesta #4 : junio 21, 2005, 09:05:36 pm »
... 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

NO FUMEN!!!, es por su bien
LORD KARLITOZ, TE EXTRAÑAREMOS

Desconectado Tio B

  • -^- Elite Gold -^-
  • Trade Count: (5)
  • The Communiter-
  • **
  • Thank You
  • -Given: 123
  • -Receive: 76
  • Mensajes: 10251
  • Vendo nanosuit barato, poco uso
Re: Hey Frank hechame una Mano
« Respuesta #5 : junio 22, 2005, 01:34:55 pm »
ehr esta en el correo de la comunidad?

Desconectado °o.O[ F®ªnk ]O.o°

  • -^- Elite Gold -^-
  • Trade Count: (4)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 0
  • Mensajes: 2172
Re: Hey Frank hechame una Mano
« Respuesta #6 : junio 23, 2005, 02:34:11 pm »
Fijate que no, se lo mande al correo de el, pero por mi no hay problema de subirlo al correo de la comunidad

NO FUMEN!!!, es por su bien
LORD KARLITOZ, TE EXTRAÑAREMOS

Desconectado Tio B

  • -^- Elite Gold -^-
  • Trade Count: (5)
  • The Communiter-
  • **
  • Thank You
  • -Given: 123
  • -Receive: 76
  • Mensajes: 10251
  • Vendo nanosuit barato, poco uso
Re: Hey Frank hechame una Mano
« Respuesta #7 : junio 24, 2005, 06:29:04 pm »
dale frank, por favorcito

Desconectado °o.O[ F®ªnk ]O.o°

  • -^- Elite Gold -^-
  • Trade Count: (4)
  • The Communiter-
  • **
  • Thank You
  • -Given: 0
  • -Receive: 0
  • Mensajes: 2172
Re: Hey Frank hechame una Mano
« Respuesta #8 : junio 24, 2005, 10:20:10 pm »
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:

NO FUMEN!!!, es por su bien
LORD KARLITOZ, TE EXTRAÑAREMOS