Ver Mensaje Individual
  #1 (permalink)  
Antiguo 14/10/2010, 10:48
sk8ertux
 
Fecha de Ingreso: enero-2010
Mensajes: 16
Antigüedad: 14 años, 4 meses
Puntos: 0
Crystal Report con Mysql desde archivo xml

Buen dia amigos del foro, tengo un problema con mis reportes, pues al no encontrar una forma de como conectar mysql con crystal reports, encontre otra solucion por alli creando un archivo xml a partir de una consulta sql desde mi BD en Mysql, bueno verifico el archivo con cada actualizacion y listo todo esta bien el archivo si cambia, pero el reporte no??? ni siquiera con el boton de refresar que contiene el crystalreportviewer, incluso tengo otro boton con el cual ejecuto un refreshreport, tambien un refresh en si al reporte y nada de nada, pero en el archivo si esta actualizado, que puede ser, dejo codigo de lo que he trabajado, espero que puedan ayudarme, gracias...

con este codigo, creo el archivo xml
Código:
Private Sub dsinfo(ByVal clienteid As String)
        Dim Ds2 As New DataSet
        Dim Con2 As New MySqlConnection
        Dim Cmd2 As New MySqlCommand
        Dim Da2 As New MySqlDataAdapter
        Ds2.Clear()

        Con2.ConnectionString = general.strconexion
        Cmd2.Connection = Con2

        Con2.Open()
        Cmd2.CommandText = "SELECT t.notel as TELEFONO_CORREO,c.nomtip as TIPO FROM telefonos t, tipotelefono c where t.tiptel=c.tiptel and t.tipuser='" + clienteid + "' and usuario='2'" & _
                                       "union select a.dircorreo as TELEFONO_CORREO, b.nomtip as TIPO from correos a, tipocorreos b where a.tipcorreo=b.tipcorreo and a.tipuser='2' and usuario='" + clienteid + "'"

        Da2.SelectCommand = Cmd2
        Da2.Fill(Ds2)
        Ds2.WriteXml("C:\infocli.xml", XmlWriteMode.WriteSchema)
        Con2.Close()
    End Sub
mediante el asistente llevo a cabo el diseño del reporte y mediante una aconexion y mediante una conexion ado.net conecto al archivo

luego coloco el siguiente codigo en el form que contiene el reporte
Código:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.Shared
Public Class reportinfoclientes

    Private Sub BarButtonItem1_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        crystalinfoclientes1.Refresh()
        CrystalReportViewer1.RefreshReport()
    End Sub
End Class
espero me puedan ayudar...gracias