Problème d'exécution de requête
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:
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:
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 !
