Discussion :

[najoua01]

bonjour,
j'ai un tableau deviss2011(id,DEV_NUM,date,nom....)
je veux le résultat suivat
id DEV_NUM nom date
2010OP1 1 k 2010
2011OP10 10 x 2011
2011OP1 1 k 2011
je veux afficher dans une textbox l année+"OP"+le max de (DEV_NUM) de l'année actuelle

voici mon code

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
  Try
            cmd = New SqlCommand("select max(DEV_NUM) as num from DEVISS2011 where year(DEV_DAT_CREA)='" & Date.Now.Year & "'", con)
            con.Open()
            dr = cmd.ExecuteReader
            While dr.Read
                My.Forms.DEVIS.TXT_NUMD.Text = (Date.Now.Year & "OP") & (dr("num") + 1)
            End While
            dr.Close()
 
        Catch ex As Exception
            MsgBox("Exception :" & ex.Message)
        End Try
        con.Close()
        My.Forms.DEVIS.MdiParent = Me
        My.Forms.DEVIS.Show()
        MonthCalendar1.Hide()

et voici l'erreur:

la connexion n'est pas fermé l'état actuelle de la connexion est ouvert

merci d'avance

[mactwist69]

C'est que quelque part ailleurs tu as

Code :

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

Con.Open()

et que tu as oublier de faire

Code :

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

Con.Close()

Donc il faudrait trouver ou. Une solution de replis serait de faire:

Code :

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

1
2
3
If not Con.State = Open Then
      Con.Open()
End If

[najoua01]

merci mactwist69
il reste meme erreur
voici code

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
Dim open As Boolean = True
        Try
            If Not con.State = Open Then
                con.Open()
 
                cmd = New SqlCommand("select max(DEV_NUM) as num from DEVISS2011 where year(DEV_DAT_CREA)='" & Date.Now.Year & "'", con)
                dr = cmd.ExecuteReader
                While dr.Read
                    My.Forms.DEVIS.TXT_NUMD.Text = (Date.Now.Year & "OP") & (dr("num") + 1)
                End While
                dr.Close()
            End If
        Catch ex As Exception
            MsgBox("Exception :" & ex.Message)
        End Try
        con.Close()
        My.Forms.DEVIS.MdiParent = Me
        My.Forms.DEVIS.Show()

[mactwist69]

Attention, ton If - End If est mal placé, l’intérêt n'est juste de ne pas réouvrire la connexion si elle est déjà ouverte, pas de ne rien faire:

Code :

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

1
2
3
4
5
6
7
8
9
If Not con.State = Open Then 'METTRE UN POINT d'ARRET ICI
                con.Open()
  End If
                cmd = New SqlCommand("select max(DEV_NUM) as num from DEVISS2011 where year(DEV_DAT_CREA)='" & Date.Now.Year & "'", con)
                dr = cmd.ExecuteReader
                While dr.Read
                    My.Forms.DEVIS.TXT_NUMD.Text = (Date.Now.Year & "OP") & (dr("num") + 1)
                End While
                dr.Close()

Ensuite, mets un point d’arrêt sur la première ligne (la ou il y a le commentaire).
Quand le code arrive a cet endroit, et est mis en pause, place un espion sur Con.
Regarde sa propriétés State et dis nous ce qu'il y a dedans.

[najoua01]

j'ai fait tous les etapes
l'erreur danc cette ligne

Code :

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

If Not con.State = Open Then

[mactwist69]

Merci mais je m'en doutais, ce qui est important maintenant c'est :

Quand le code arrive a cet endroit, et est mis en pause, place un espion sur Con.
Regarde sa propriétés State et dis nous ce qu'il y a dedans.

C'est a dire: Quand la ligne du point d'arret est en jaune (prochaine ligne de code a executer, tu cliques droit sur "Con", et tu sélectionnes: "Ajouter un espion"

Une fenetre en bas apparait avec "Con" et un petit + sur la gauche, déroule le + et va voir ce qu'il y a a la propriétés "State".

Si c'est "open", alors le dernier code que je t'ai mis devrait marcher.

[najoua01]

merci bcp mactwist69 vraiment c'est gentil de ta part
j'ai fait tout les étapes
state:Open{1}
merci

[najoua01]

mais ça reste le même problème

[mactwist69]

Si tu utilises le code posté hier a 15h42...

Et que tu avances au pas a pas. (pour ce faire: mettre un point d’arrêt sur la première ligne et avancer ligne par ligne avec F10).

Ou il y a le bug, et quel bug ?

[najoua01]

oui j'ai déjà fait tous les étapes et j'ai trouvé le state comme ça:
state:Open{1}

[najoua01]

merci bcp mactwist69
le code ça marche très bien vraiment je te remercier
salutations