Bonjour,

L'affichage du contenu de ma base de données ne marche pas et je suis bloqué sur ce point.
Voici le code en question:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
26
27
28
 
 
Imports MySql.Data.MySqlClient
Public Class Form1
 
    Dim oConn As MySqlConnection = New MySqlConnection()
 
                 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oRpt As CrystalReport1
        oRpt = New CrystalReport1
        oConn.ConnectionString = "server=localhost;user id=root;password=achref;database=mabase"
        Dim myData As New DataSet
        Dim myCommand As New MySqlCommand
        Dim MyAdapt As New MySqlDataAdapter
        Dim myDataTable As New DataTable
        Dim strQuery As String
        Dim DataSet As DataSet1
 
 
        strQuery = "select * from test"
        myCommand.Connection = oConn
        myCommand.CommandText = strQuery
        MyAdapt.SelectCommand = myCommand
        MyAdapt.Fill(myDataTable)
        oRpt.SetDataSource(DataSet)
        CrystalReportViewer1.ReportSource = oRpt
    End Sub
End Class
Merci de m'aider.