Discussion :

[benjaminblazer]

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 !

[mactwist69]

Bonjour,

Alors....

1) Si "ça bloque", c'est que ça génère une Exception, une erreur quoi... Il s'arrête bien sur une ligne surligné en jaune ?
Il devrait y avoir un message d'erreur, ce qui serait utile.

2) Sinon des idées, il y en a plein : Erreur dans la chaîne de connexion, erreur dans le requête, mauvais objet de connexion...

[benjaminblazer]

Merci pour la réponse

Pas d'erreurs, l'application tourne mais n'affiche plus le contenus, ( uniquement le premier MessageBox est affiché )
la requête SQL est correcte (testé directement sur access )

la fonction Stat_Appel utilise le même objet de connexion et plus ou moins la même syntaxe... (et est appelé au même endroits)
Pourquoi le code de cette fonction, marche, et pas l'autre code