con este codigo, creo el archivo xml
Código:
mediante el asistente llevo a cabo el diseño del reporte y mediante una aconexion y mediante una conexion ado.net conecto al archivoPrivate 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
luego coloco el siguiente codigo en el form que contiene el reporte
Código:
espero me puedan ayudar...gracias 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


