base de données sql serveur

Version imprimable

Bonjour,
Dans ma procedure, j'ai executer une commande sql une première fois(ligne 11). Je souhaiterais, toujours dans cette meme procedure executer une deuxième commande sql. Quand j'essaye de donner la nouvelle commande sql à oCmd, il refuse car la variable oCmd existe déjà dans la procedure (ligne 30).

Comment attribuer la nouvelle commande sql ?

Merci d'avance.

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
33
34
35
  Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        Dim cstring As ConnectionStringsSection = config.ConnectionStrings
        Dim connStr As String
        Dim strbd As StringBuilder = New StringBuilder()
      
        connStr = cstring.ConnectionStrings("TOTAL.My.MySettings.Setting").ToString()
        ' on déclare la connexion
        Dim oConn As SqlConnection = New SqlConnection(connStr)
        ' on déclare la commande
      
        Dim oCmd As SqlCommand = New SqlCommand(sql1)

        'ouvre la connexion
        oConn.Open()
        'on assigne la connexion à la commande
        oCmd.Connection = oConn

        sqlDR = oCmd.ExecuteReader()
        While sqlDR.Read()
            nbclient = nbclient + 1
            POCLIENT(nbclient, 1) = sqlDR(0)
            POCLIENT(nbclient, 7) = sqlDR(1)

        End While
        sqlDR.Close()
        oConn.Close()
        strbd.Clear()


        Dim oCmd As SqlCommand = New SqlCommand(sql2)

        'ouvre la connexion
        oConn.Open()
        'on assigne la connexion à la commande
        oCmd.Connection = oConn

18/03/2013, 16h03
Pol63

dim sert à créer une variable, si elle existe déjà il suffit d'écrire dedans

donc remplacer le 2ème
Dim oCmd As SqlCommand = New SqlCommand(sql2)
par
oCmd = New SqlCommand(sql2)

après il est inutile d'en créer une 2ème, tu peux réutiliser la 1ère, tu peux juste changer le commandTexte qui contient la requete

il est aussi inutile de fermer la connexion pour la rouvrir dans la même milliseconde !

et au passage il faut utiliser sqlconnection et sqlcommand dans des blocs using/end using
18/03/2013, 16h49
aiglevb

Merci pour la réponse, je vais vérifier.

Maintenant, j'ai un nouveau message d'erreur ligne 42

Vous me dites de ne pas fermer la connexion mais il m'affiche d'autres messages d'erreur. Je suis un peu debutant.

ExecuteReader nécessite une Connection ouverte et disponible. La connexion est actuellement fermée.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
        Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        Dim cstring As ConnectionStringsSection = config.ConnectionStrings
        Dim connStr As String
        Dim strbd As StringBuilder = New StringBuilder()
        Dim compte As String
 
        RAZ()
 
        connStr = cstring.ConnectionStrings("TOTAL.My.MySettings.Setting").ToString()
        ' on déclare la connexion
        Dim oConn As SqlConnection = New SqlConnection(connStr)
        ' on déclare la commande
 
        Dim oCmd As SqlCommand = New SqlCommand(SQL1)
 
        'ouvre la connexion
        oConn.Open()
        'on assigne la connexion à la commande
        oCmd.Connection = oConn
 
        sqlDR = oCmd.ExecuteReader()
        While sqlDR.Read()
            nbclient = nbclient + 1
            POCLIENT(nbclient, 1) = sqlDR(0)
            POCLIENT(nbclient, 7) = sqlDR(1)
 
        End While
        sqlDR.Close()
        oConn.Close()
        strbd.Clear()
 
 
 
 
 
                oCmd = New SqlCommand(strbd.ToString)
 
 
 
                oCmd.Connection = oConn
 
                sqlDR = oCmd.ExecuteReader()
                While sqlDR.Read()
                    nbclient = nbclient + 1
                    'POCLIENT(nbclient, 1) = sqlDR(0)
                    'POCLIENT(nbclient, 7) = sqlDR(1)
 
                End While

19/03/2013, 12h39
infosam76
Tu as retiré l'ouverture de ta connexion mais pas la fermeture de celle-ci entre les 2 query.
Code:

1 2 3 4 sqlDR.Close() oConn.Close() strbd.Clear()
19/03/2013, 12h48
Bluedeep

Déjà, il y a une bizarrerie ou alors un problème de titre :

- Dans le titre il est question de MySql
- Dans le code, c'est le jeu de classes spécifiques à Sql Server qui est utilisé.

Merci de préciser l'environnement car là c'est flou.

Citation:

Maintenant, j'ai un nouveau message d'erreur ligne 42
Vous me dites de ne pas fermer la connexion mais il m'affiche d'autres messages d'erreur..

Quels message d'erreur ????

on est pas devin.:roll:
19/03/2013, 14h05
aiglevb

ExecuteReader nécessite une Connection ouverte et disponible. La connexion est actuellement fermée.

C'est sql server, je me suis trompé
19/03/2013, 14h10
Pol63

il faut réfléchir un peu à ce que tu écris et ne pas faire du copier coller bêtement

moi quand je vois ton code je lis

ouverture de connexion
exécution
fermeture de connexion
exécution

et tu as le message d'erreur "la connexion est fermée"

je te laisse méditer sur ce résumé
19/03/2013, 14h14
aiglevb

En enlevant la ligne 29,

Code:

oConn.Close()

A la ligne42 il me dit :

Un DataReader associé à cette Command est déjà ouvert. Il doit d'abord être fermé.
19/03/2013, 14h22
infosam76
Je pense que ton problème pourrait venir du fait que même si tu as bien fermé ton DataReader, le Garbage Collector ne l'a pas encore nettoyé et que donc il est toujours associé à ton SqlCommand.

Essaie ceci :
Code:

1 2 3 sqlDR.Close() sqlDR.Dispose()
Si cela ne marche pas crée un nouveau SqlCommand pour ta deuxième opération.
19/03/2013, 14h38
Bluedeep

Citation:

Envoyé par infosam76

Si cela ne marche pas crée un nouveau SqlCommand pour ta deuxième opération.

C'est ce qu'il fait. (ligen 36).

Mais je t'accorde que la relecture du code pique un peu les yeux et le nommage bizarre des variables n'aide pas.

Comme en plus on ignore ce que contienne les requêtes et la procédure "RAZ", on y va un peu à l'aveugle.

L'absence de "using" sur les objets utilisés n'aide pas non à y comprendre quelque chose.
19/03/2013, 15h20
aiglevb

RAZ = remise a zero de variable

Ne concerne pas l'acces à la base de données.
19/03/2013, 15h27
Bluedeep

Citation:

Envoyé par aiglevb

RAZ = remise a zero de variable

Ne concerne pas l'acces à la base de données.

Et les requêtes ???
19/03/2013, 15h37
infosam76

Citation:

Envoyé par Bluedeep

C'est ce qu'il fait. (ligen 36).

Mais je t'accorde que la relecture du code pique un peu les yeux et le nommage bizarre des variables n'aide pas.

Comme en plus on ignore ce que contienne les requêtes et la procédure "RAZ", on y va un peu à l'aveugle.

L'absence de "using" sur les objets utilisés n'aide pas non à y comprendre quelque chose.

Je l'ai vu mais après avoir posté ;-) autant pour moi ...

Il serait judicieux je pense qu'on ai TOUT le code concerné par ces 2 opérations. Donc cela va de la connexion, en passant par les requêtes etc ...
19/03/2013, 16h51
aiglevb

infosam76 a trouvé la solution.

J'ai fermé la connexion et j'ai fait un .dispose. Ensuite j'ai rouvert une autre connection et ca marche.

Merci à tous de m'avoir aidé pour ce problème.