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 |
