base de données sql serveur

**aiglevb** · 18/03/2013, 15h52

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 :

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
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

**Pol63** · 18/03/2013, 16h03

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

**aiglevb** · 18/03/2013, 16h49

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

**aiglevb** · 19/03/2013, 12h21

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 :

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
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

**infosam76** · 19/03/2013, 12h39

Tu as retiré l'ouverture de ta connexion mais pas la fermeture de celle-ci entre les 2 query.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        sqlDR.Close()
        oConn.Close()
        strbd.Clear()

**Bluedeep** · 19/03/2013, 12h48

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.

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.

**aiglevb** · 19/03/2013, 14h05

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

C'est sql server, je me suis trompé

**Pol63** · 19/03/2013, 14h10

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é

**aiglevb** · 19/03/2013, 14h14

En enlevant la ligne 29,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oConn.Close()

A la ligne42 il me dit :

Un DataReader associé à cette Command est déjà ouvert. Il doit d'abord être fermé.

**infosam76** · 19/03/2013, 14h22

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
sqlDR.Close()
sqlDR.Dispose()

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

**Bluedeep** · 19/03/2013, 14h38

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.

**infosam76** · 19/03/2013, 15h37

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 ...

**aiglevb** · 19/03/2013, 15h20

RAZ = remise a zero de variable

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

**Bluedeep** · 19/03/2013, 15h27

Envoyé par aiglevb

RAZ = remise a zero de variable

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

Et les requêtes ???

**aiglevb** · 19/03/2013, 16h51

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.

base de données sql serveur [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager