Provider non pris en compte

Fermé
mehdi.cheddani Messages postés 9 Date d'inscription mardi 13 novembre 2012 Statut Membre Dernière intervention 22 avril 2013 - 1 mars 2013 à 14:41
Bonjour,

je souhaite me connecter à une bd access a travers oledb mais le malheur c'est que ça ne marche pas dans les deux cas.
Cas 1:
Dim con As OleDbConnection = New OleDbConnection()
Dim cm As New OleDbCommand
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\BD_RABAT.mdb;User ID=Admin;Password=; "
Try
con.Open()
cm.Connection = con
cm = New OleDbCommand("select N_Ordre_Eco from RABAT; ", con)
Dim da As OleDbDataReader
da = cm.ExecuteReader()
While da.Read()
ComboBox1.Items.Add(da("N_Ordre_Eco"))
End While
Catch ex As Exception
MsgBox("Erreur de connexion à la base de données!", MsgBoxStyle.Critical)
End Try
avec Provider dans la chaine de connexion il me sort une erreur le mot provider n'est pas pris en compte.
cas 2:
Dim con As OleDbConnection = New OleDbConnection()
Dim cm As New OleDbCommand
cn.ConnectionString = "Provider=Data Source=d:\BD_RABAT.mdb;User ID=Admin;Password=; "
Try
con.Open()
cm.Connection = con
cm = New OleDbCommand("select N_Ordre_Eco from RABAT; ", con)
Dim da As OleDbDataReader
da = cm.ExecuteReader()
While da.Read()
ComboBox1.Items.Add(da("N_Ordre_Eco"))
End While
Catch ex As Exception
MsgBox("Erreur de connexion à la base de données!", MsgBoxStyle.Critical)
End Try
dans ce cas ma connexion ne marche pas!!