Bonjour,
Voilà mon message d'erreur, et je vous mets mon bout de code :
Mon code se bloque au niveau de la ligne
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 'Une 1ière requete Call connect() Dim req1 As String = "select CODE from MaTable" Dim cmd1 As New SqlCommand(req1, cnx) cmd1.CommandTimeout = 0 cmd1.Connection = cnx With cmd1.CommandTimeout = 0 End With With cnx.ConnectionTimeout = 0 End With reader1 = cmd1.ExecuteReader While reader1.Read() code = reader1(0) 'Une 2ième requête qui va utiliser le résultat de la 1ière requête Dim req2 As String = "select Adresse from MaTable2 where CODE like '" & code & "' " Dim cmd2 As New SqlCommand(req2, cnx) reader2 = cmd2.ExecuteReader() Do While reader2.Read() // un ceratin traitement end whileavec le message d'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part reader2 = cmd2.ExecuteReader()si quelqu'un pourrait m'aider.Un DataReader associé à cette commande est déjà ouvert. Il doit d'abord être fermé.
Merci.
Partager