Bonjour j'ai un petit soucis depuis peu avec mes combobox. Je ne suis plus capable de voir mes données qui sont situé dans mon access.

Voici mon code
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
Public Class Form4
 
    Dim buzz As Integer ' compteur livraison
 
    Private WithEvents pd As Printing.PrintDocument
    ' storage for form image
    Dim formImage As Bitmap
    ' create API prototype
    Private Declare Function BitBlt Lib "gdi32.dll" Alias _
       "BitBlt" (ByVal hdcDest As IntPtr, _
       ByVal nXDest As Integer, ByVal nYDest As _
       Integer, ByVal nWidth As Integer, _
       ByVal nHeight As Integer, ByVal _
       hdcSrc As IntPtr, ByVal nXSrc As Integer, _
       ByVal nYSrc As Integer, _
       ByVal dwRop As System.Int32) As Long
    ' Declaration de l'objet PrintDocument.
    Private WithEvents docToPrint As New Printing.PrintDocument
    Dim ss, at, taxe1, taxe2, aa, bb, st As Double 'sous total avant taxe
    Dim chat As Integer 'compteur pour vérification dans fournisseur
 
 
    Sub fillcombo()
        MsgBox("10")
        str = "select * from table2 "
        Dim acmd As New OleDb.OleDbCommand
        acmd.CommandText = str
        MsgBox("9")
        acmd.Connection = acconn
        acsdr = acmd.ExecuteReader
        MsgBox("8")
        While (acsdr.Read())
            MsgBox("7")
            cb_choix1.Items.Add(acsdr("fournisseur"))
 
 
        End While
        acmd.Dispose()
        acsdr.Close()
 
    End Sub
 
    Sub fillcombox()
 
        strr = "select * from table4 "
        Dim acmdd As New OleDb.OleDbCommand
        acmdd.CommandText = strr
        acmdd.Connection = acconnn
        acsdrr = acmdd.ExecuteReader
 
        While (acsdrr.Read())
 
            cb_fourni.Items.Add(acsdrr("livre"))
 
 
        End While
        acmdd.Dispose()
        acsdrr.Close()
 
    End Sub
 
 Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tx_q7.ReadOnly = True
 
        Module1.connect()
 
        Module1.connect()
 
        Me.fillcombo()
        Me.fillcombox()
        MsgBox("noob121%>ADMIN")
 
 
    End Sub
 
Private Sub bt_addfourni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addfourni.Click
        str = " select * from table2 where fournisseur = '" & cb_choix1.Text & "'"
        Dim acscmd As New OleDb.OleDbCommand
        MsgBox("1")
        acscmd.CommandText = str
        acscmd.Connection = acconn
        MsgBox("2")
 
        acsdr = acscmd.ExecuteReader
        MsgBox("3")
        If (acsdr.Read = True) Then
            MsgBox("4")
            If rb_choix.Checked Then
------------------------------------------------
 
 
    Dim strConnect As String
    Public acconn As New OleDb.OleDbConnection
    Public acsdr As OleDbDataReader
    Public str As String
 
 
    'Public cnn As New OleDb.OleDbConnection
    'Public cdr As OleDbDataReader
    'Public rawr As String
 
 
    Dim strConnectt As String
    Public acconnn As New OleDb.OleDbConnection
    Public acsdrr As OleDbDataReader
    Public strr As String
 
    Sub connect()
 
        acconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
        acconn.Open()
 
        acconnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
        acconnn.Open()
 
        '        cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=U:\pass.accdb"
        '       cnn.Open()
 
        'cnn.Close()
 
 
    End Sub
Je sais mes noms sont pas fameux je suis flemme de se programme. Et les msgbox m'aidait a voir qu'elle ne passait pas et le 4, 7,8, 9 ,10 ne passent pas!

Merci de l'aide !