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