Bonjour,

J'ai besoin de votre aide car j'ai un soucis avec le pilote ODBC. J'ai un message d'erreur sur VISUAL BASIC
"[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié"


Veuillez trouver ci-dessous le programme sur VISUAL BASIC

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Module BDD
 
    Public con As New ADODB.Connection
    Public rs As New ADODB.Recordset
 
    Public Sub Koneksyon()
        con.ConnectionString = "Driver = {MySQL ODBC 5.3 ANSI Driver}; Server=????;PWD=;UID=????;PORT=3306;Database=?????;"
        con.Open()
 
    End Sub
 
End Module
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Ajouter_rapport_bdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ajouter_bdd.Click
        Call Koneksyon()
        Dim rs = New ADODB.Recordset
        rs.Open("Select * from ?????? where BDDDate='" & DateTimePicker1.Text & "' and BDDNom= '" & ComboBox1.Text &
                "' And  BDDPoste='" & ComboBox2.Text & "' And BDDRapport= '" & RichTextBox1.Text & "'", con, 3, 3)
        If rs.EOF = True Then
            MsgBox("rapport   ajouter")
 
        End If
        rs = Nothing
        con.Close()
 
    End Sub
Merci d'avance pour vos réponse