[VB.Net] Comment remplir une ListBox avec un DataReader ?
Bonjour! voilà: je cherche à faire le truc de base et c limite déprimant de pas y arriver...
Je veux remplir une listebox avec un datareader. Jusque là facile..
Mon code donne ça:
Code:
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
|
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'declaration de variables
'declaration de la connexion
Dim cnxTestStr As String = "Data Source=mabase ;server=monserveur"
Dim cnxTest As New SqlConnection(cnxTestStr)
' declaration de la commande
Dim cmdVsd As SqlCommand = New SqlCommand("select distinct versdeb
from niveau", cnxTest)
Dim rdrVsd As SqlDataReader
' ouverture de la connexion
cnxTest.Open()
rdrVsd = cmdVsd.ExecuteReader()
' remplissage de la listbox
MessageBox.Show("remplissage de listebox")
lbxVs.Items.Clear()
Do While rdrVsd.Read()
lbxVs.Items.Add(rdrVsd.GetDecimal(4))
Loop
'fermeture
rdrVsd.Close()
cnxTest.Close()
End Sub |
Je compile et mon programme bug à l'expression
Code:
1
2
|
rdrVsd = cmdVsd.ExecuteReader() |
et il me renvoie l'erreur suivante...
Citation:
"An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll
Additional information: System error."
J'ai essayé de déclarer ce maudit datareader de plusieurs manières, (avant la connection, après) et rien n'y fait.. Je commence à désespérer ( un ti peu:cry: )
A quoi Pourrai être due cette erreur?
Merci!!
