Connexion d'un Rapport CrystalReport Vb.Net à une BD MySQL

Version imprimable

Bonsoir

Est-ce que vous pouvez m’aider à définir une connexion d’une application vb.net à une BD MySql.

J’ai utilisé une classe à cet effet comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Imports System.Data
Imports System.Data.OleDb
Public Class DataSetConfiguration
    Private Const CONNECTION_STRING As String ="Provider=SQLOLEDB;server=localhost;User Id=root;Persist Security Info=True;database=mydb"
    'Private Const CONNECTION_STRING As String = "server=127.0.0.1;User Id=root;Persist Security Info=True;database=mydb"
    Private Const QUERY_STRING As String = "SELECT * FROM VOITURE"
    Private Const DATATABLE_NAME As String = "VOITURE"
    Private Const DIRECTORY_FILE_PATH As String = "D:\App-SuiviVoitures\SuiviVoitures\SuiviVoitures"
 
    Public Shared ReadOnly Property CR_DataSet() As DataSet
        Get
            Dim myCRDataSet As mydbDataSet = New mydbDataSet()
            Dim myOleDbConnection As OleDbConnection = NewOleDbConnection(CONNECTION_STRING)
            Dim myOleDbDataAdapter As OleDbDataAdapter = NewOleDbDataAdapter(QUERY_STRING, myOleDbConnection)
myOleDbDataAdapter.Fill(myCRDataSet, DATATABLE_NAME)
            Return myCRDataSet
        End Get
    End Property
End Class

mes, j’ai eu des problèmes à l’exécution.
Merci beaucoup

28/09/2013, 00h05
DeWaRs

Bonjour,

"Des problemes à l'excution", cela ne veut malheureusement pas dire grand chose. Peux tu nous donner plus de détails sur l'erreur, et quand elle se produit ? En mode pas-à-pas, sur quelle ligne le programme plante ?

Cordialement.

DeWaRs
28/09/2013, 00h48
mddkkr

Merci pour la réponse :)

À l’exécution, il se plante au niveau de l’instruction :

Code:

myOleDbDataAdapter.Fill(myCRDataSet, DATATABLE_NAME)

et affiche le message suivant

[DBNETLIB][ConnectionOpen (Connect()).]Ce serveur SQL n'existe pas ou son accès est refusé.

Cordialement

Lorsque j’ai géré l’exception pour cette instruction comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Try
                myOleDbDataAdapter.Fill(myCRDataSet, DATATABLE_NAME)
 
            Catch e As OleDbException
                Dim errorMessages As String
                Dim i As Integer
 
                For i = 0 To e.Errors.Count - 1
                    errorMessages += "Index #" & i.ToString() & ControlChars.Cr _
                                   & "Message: " & e.Errors(i).Message & ControlChars.Cr _
                                   & "NativeError: " & e.Errors(i).NativeError & ControlChars.Cr _
                                   & "Source: " & e.Errors(i).Source & ControlChars.Cr _
                                   & "SQLState: " & e.Errors(i).SQLState & ControlChars.Cr
                Next i
 
                Dim log As System.Diagnostics.EventLog = New System.Diagnostics.EventLog()
                log.Source = "My Application"
                log.WriteEntry(errorMessages)
                Console.WriteLine("An exception occurred. Please contact your system administrator.")
            End Try

j’ai eu le message suivant :

Impossible de charger le fichier ou l'assembly 'file:///C:\Program Files\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' ou une de ses dépendances. Le fichier spécifié est introuvable.

En réalité, j’utilise la version CrystalReport for VB 2010 que je l’ai téléchargé à partir du site Officiel et je ne sais est-ce que je dois avoir une licence pour l’utiliser ou non ?

28/09/2013, 01h32
DeWaRs

Hello,

Regarde ici

Cordialement.

DeWaRs
28/09/2013, 01h52
mddkkr

Hi :)

Ça commence à être résolu

Maintenant, le rapport s’exécute, mais il n’affiche pas les données ; déjà au niveau de l’aperçu du rapport, les données ne s’affichent pas aussi ! je voie des chaines aléatoires qui ne sont pas enregistrées dans ma BD

Cordialement
29/10/2015, 23h11
lazio2008

Merci
la solution est excellente