1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'print
Dim strQuery As String = "SELECT * from client"
Dim myConnexionString As String = LireLaChaineDeConnexionDansLeFichierDeConnexion()
Dim myConnexion As New MySqlConnection(myConnexionString)
Dim myDataset As New DataSet
Dim myDataAdapter As New MySqlDataAdapter(strQuery, myConnexion)
Dim mycmdbuilder As New MySqlCommandBuilder(myDataAdapter)
'remplissage
myDataAdapter.Fill(myDataset)
myDataset.WriteXml(Application.StartupPath & "\Data\Reports\client.xml", XmlWriteMode.WriteSchema)
print_preview.client1.Load(Application.StartupPath & "\Data\Crystals\client.rpt")
print_preview.CrystalReportViewer1.ReportSource = print_preview.client1
print_preview.CrystalReportViewer1.Refresh()
print_preview.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub |
Partager