EDIT de Sankasssss : Discussion provenant de cette discussion ayant été cloturée : Combobox et access


Salut tous le monde

Pouviez vous me dire pourquoi y a un problème dans votre code que j'ai modifier que le "PROVIDER" comme suit:

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
36
37
38
39
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.SqlClient
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        remplirCombo(chargementBDD)
    End Sub
 
    Private Sub remplirCombo(ByVal dr As OleDbDataReader)
 
        Using dr
 
            While dr.Read()
                ComboBox1.Items.Add(dr("NOperations").ToString)
            End While
 
        End Using
 
    End Sub
 
    Private Function chargementBDD() As OleDbDataReader
        Dim Mycommand As OleDbCommand
        Dim MyConnexion As OleDbConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =F:\Contacts.mdb")
 
        Try
            Using MaConnexion
                MyConnexion.Open()
                Mycommand = New OleDbCommand("SELECT NOperations FROM Amis", MaConnexion)
                Return Mycommand.ExecuteReader
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return Nothing
        End Try
 
    End Function
End Class
l’Erreur est déclarée à la ligne While dr.Read()

-L'exception InvalidOperationException n'a pas été gérée
-Tentative d'appel de Read non valide lorsque le lecteur est fermé.

Merci