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
Partager