J'ai une erreur dans le bout de code suivant :
J'ai importer :
1 2
| Imports System.Data
Imports System.Data.OleDb |
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
|
Dim ConnexionString As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mabase.mdb")
Dim objConnexion As New OleDbConnection
objConnexion.ConnectionString = ConnexionString
Dim temp As String
Dim Requete As String = ("SELECT Nom_Utilisateur FROM SESSION")
Dim Commande As New OleDbCommand(Requete, objConnexion)
Dim Reader as new OleDataReader
objConnexion.Open()
Reader = Commande.ExecuteReader()
Do While Reader.Read()
temp = Reader.Item("Nom_Utilisateur").ToString
If temp <> "" Then
CmbNomUtilisateur.Items.Add(temp)
End If
Loop
objConnexion.Close()
objConnexion.Dispose()
End Sub |
le code de l'erreur est
Échec de IErrorInfo.GetDescription avec E_FAIL(0x80004005).
je n'arrive pas a trouver mon erreur
Dans access la requete fonctionne correctement
Merci
Partager