17/07/2010, 11:43
|
| | Fecha de Ingreso: enero-2010
Mensajes: 6
Antigüedad: 14 años, 11 meses Puntos: 0 | |
Ayuda con VB .net y MySQL Crystal Report Muy Buenas
Soy nuevo con esto de programar, estoy haciendo una aplicación, uno de los módulos requiere de reportes. En MySQL hay una opcion de transformar fechas que es STR_TO_DATE, ya que en MySQL el formato es año-mes-dia y en el sistema se muestra por dia-mes-año. Bien uno de los módulos presenta cheques emitidos por una empresa, estos reportes deben presentar los datos que esten entre determinadas fechas, por ejemplo del 1º de abril al 2 de mayo.
Primero se eligen las fechas de inicio y fin y se da clic en un boton que es el que filtra los datos y llama a una funcion que se encarga de mostrar el reporte, este es código:
cn = New MySqlConnection
cn.ConnectionString = "server= localhost;" _
& "user id=root; password=root ;database=bd_mcgregor" Dim cmdEjecucion As New MySqlCommand("SELECT * " & _ "from ejecucion WHERE Fecha_Emision BETWEEN STR_TO_DATE('" & Me.DateTimeInicio.Text & "', '%d/%m/%Y') and STR_TO_DATE('" & Me.DateTimeFin.Text & "', '%d/%m/%Y');", cn)
Imprimir()
Luego esta es la funcion imprimir Private Sub Imprimir() Try 'Código para mostrar el reporte
'Declaramos una instancia del Reporte Dim mi_rptCheckes As New rptCheques() 'Le indicamos al reporte que tome los datos
'del DataSet
mi_rptCheckes.SetDataSource(Me.Bd_mcgregorDataSet) 'Declaramos una instancia del formulario frmReprotes
Dim miForma As New frmReportes() 'Le indicamos que debe mostrar mi_rptCatClientes
miForma.crvReportes.ReportSource = mi_rptCheckes 'que muestre el titulo "Reporte de Cheques"
miForma.Text = "Datos de Ejecución de Cheques" 'Mostramos el formulario (el cual contiene el reporte)
miForma.Show() Catch ex As Exception
MessageBox.Show(ex.Message, "Imprimir", _
MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
End Sub
Bueno el problema es que no me filtra nada, me muestra todos los datos que se encuentran en esta tabla, sin importar la fecha, lo q quiero es que se filtre por fecha de emision.
Se les agradecerá grandemente su ayuda. |