Bonjour,

J'essaie de consulter ma base de donnée Access sur mon programme en VB.net
Pour se faire je réutilise des syntaxes que j'avais déjà testé :

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
 
 Dim prix(4) As Integer
 
        Obj_Command = New OleDbCommand()
        Obj_Command.Connection = laConnection
        Obj_Command.CommandText = "SELECT COUNT(COM_RESUME) FROM COMMANDE_CLIENT WHERE COM_RESUME <> '' GROUP BY COM_RESUME ORDER BY COUNT(COM_RESUME) DESC"
        Obj_Reader = Obj_Command.ExecuteReader()
        Dim i As Integer
        i = 0
 
        While Obj_Reader.Read()
            If i < 5 Then
                MessageBox.Show(i)
                prix(i) = Obj_Reader.GetValue(0)
                MessageBox.Show(prix(i))
                i = i + 1
            End If
        End While
 
        Obj_Reader.Close()
Le programme est bloqué a l'entrée de la boucle,
ce code se situe dans " Private Sub Graph_Art_Accueil2()" qui lui même est appelé dans "Private Sub Form_Accueil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load" qui est dans "Public Class Form_Accueil"

la fonction Stat_Appel fonctionne si elle est appelé dans "Graph_Art_Accueil2()" (au même endroits que notre 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
 
Public Function Stat_Appel(ByVal requete As String) As String
        Dim resultat As String = toMoney("0").ToString() + " €"
 
        'Instancier un objet Commande
        Obj_Command = New OleDbCommand()
        'initialiser l'objet Command
        Obj_Command.Connection = laConnection
        Obj_Command.CommandText = requete
 
        Obj_Reader = Obj_Command.ExecuteReader()
        If Obj_Reader.Read() Then
            resultat = toMoney(Obj_Reader.GetValue(0).ToString()).ToString() + " €"
        End If
        Obj_Reader.Close()
 
        Return resultat
    End Function
La syntaxe semble correspondre, mais cela ne marche pas...
Si vous avez une idée je suis preneur ! Merci d'avance !