Bonjour
J'ai un windows seven 64 bits et je veux enregistrer des données dans une base access. J'ai essayé avec ce code mais un message d'erreur m'indique que Microsoft.Jet.OLEDB.4.0 n'est pas installé

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
29
30
31
32
33
34
35
 ''////////////////////////MODULE FONCTION ACCESS////////////////
 
    Dim MyConnection As New System.Data.OleDb.OleDbConnection()
    'procédure de connection a une bd access
    Public Sub connection(ByVal nombd As String)
        Try
            MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & nombd
            MyConnection.Open()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub
    'deconenction de la base
    Public Sub deconnection()
        Try
            MyConnection.Close()
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub
    Public Sub access(ByVal requetesql As String)
        Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter()
       Dim StrConnect As String
        Dim MyCommand As OleDbCommand
        Dim requete As String
        Try
            MyCommand = New OleDbCommand(requetesql, MyConnection)
            MyAdapter.SelectCommand = MyCommand
            'A ce niveau les donnes résultantes de la requete
            'se trouvent dans => MyDataSet.Tables(0)
 
        Catch ex As Exception
            MessageBox.Show("Impossible d'établir la connection à la base." & ex.Message)
        End Try
    End Sub


Merci de me répondre