Discussion :

[mehdi.cheddani]

bonjour,

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
con.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco"
        d = CDate(MaskedTextBox1.Text)
        con.Open()
        cmd = New SqlCommand("select N_CPT_POS from COMPTEURS;", con)
        da = cmd.ExecuteReader
        While da.Read
            If da(0) = Val(TextBox13.Text) Then
                MsgBox("Un compteur avec le même numéro existe déja!", MsgBoxStyle.Critical)
                da.Close()
            Else
                Try
                    com = New SqlCommand("insert into COMPTEURS(N_ORD_ECO,SOUS_QUART,CIL,QUART,NOM_CLT,AV_ACC,PORTE,RUE,N_CPT_DEPO,N_SERIE,DER_IND_LU,TP_CAL,MAR_DEPO,N_CPT_POS,IND_DEPO,DATE_DEPO,CAL_POS,MAR_POS) values('" & ComboBox1.SelectedItem.ToString & "','" & TextBox1.Text & "','" & Val(TextBox2.Text) & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & Val(TextBox6.Text) & "','" & TextBox7.Text & "','" & Val(TextBox8.Text) & "','" & Val(TextBox9.Text) & "','" & Val(TextBox10.Text) & "','" & Val(TextBox11.Text) & "','" & TextBox12.Text & "','" & Val(TextBox13.Text) & "','" & Val(TextBox14.Text) & "','" & d & "','" & Val(TextBox16.Text) & "','" & TextBox17.Text & "''" & RichTextBox1.Text & "');", con)
                    com.ExecuteNonQuery()
                    MsgBox("Compteur ajouté avec succés", MsgBoxStyle.OkOnly)
                Catch ex As Exception
                    MsgBox("Erreur d'insertion des données:" & ex.ToString)
                End Try
            End If
        End While
        con.Close()

lorsque j'insère une donnée qui n'existe pas le message d'erreur que j'ai est:
un datareader associé à cette commande est déjà ouvert et doit être ferme

[_Ez3kiel]

L'objet DataReader utilise l'objet Connection en mode exclusif. Si l' objet DataReader est toujours ouvert, tu ne peux réutiliser ta connexion.

Ici ta connexion (con) est exclusive à ton DataReader (da), tu dois fermer ton reader avant de faire ton insertion.

Tu peux passer par un booléen, si tu as un compteur avec un numéro existant, tu passes ton booléen à True, tu sors de la boucle, tu fermes ton DataReader, et avant ton insertion tu testes que ton booléen ne soit pas à true.

Je ne m'explique pas très bien alors parfois du code explique mieux ...

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
 
        Dim existe As Boolean = False
        con.ConnectionString = "Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco"
        d = CDate(MaskedTextBox1.Text)
        con.Open()
        cmd = New SqlCommand("select N_CPT_POS from COMPTEURS;", con)
        da = cmd.ExecuteReader
        While da.Read Or Not existe
            If da(0) = Val(TextBox13.Text) Then
                MsgBox("Un compteur avec le même numéro existe déja!", MsgBoxStyle.Critical)
                existe = True
            End If
        End While
 
        da.Close()
 
        If Not existe Then
            Try
                com = New SqlCommand("insert into COMPTEURS(N_ORD_ECO,SOUS_QUART,CIL,QUART,NOM_CLT,AV_ACC,PORTE,RUE,N_CPT_DEPO,N_SERIE,DER_IND_LU,TP_CAL,MAR_DEPO,N_CPT_POS,IND_DEPO,DATE_DEPO,CAL_POS,MAR_POS) values('" & ComboBox1.SelectedItem.ToString & "','" & TextBox1.Text & "','" & Val(TextBox2.Text) & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & Val(TextBox6.Text) & "','" & TextBox7.Text & "','" & Val(TextBox8.Text) & "','" & Val(TextBox9.Text) & "','" & Val(TextBox10.Text) & "','" & Val(TextBox11.Text) & "','" & TextBox12.Text & "','" & Val(TextBox13.Text) & "','" & Val(TextBox14.Text) & "','" & d & "','" & Val(TextBox16.Text) & "','" & TextBox17.Text & "''" & RichTextBox1.Text & "');", con)
                com.ExecuteNonQuery()
                MsgBox("Compteur ajouté avec succés", MsgBoxStyle.OkOnly)
            Catch ex As Exception
                MsgBox("Erreur d'insertion des données:" & ex.ToString)
            End Try
 
        End If
 
        con.Close()

[mehdi.cheddani]

j ai l'erreur suivante:
Tentative non valide de lecture lorsque aucune donnée n'est présente.
sur la ligne if da(0)=textbox13.text.
merci

[DotNetMatt]

La solution d'_Ez3kiel est correcte, mais je voudrais juste ajouter qu'il ne faut pas hésiter à utiliser le mot clef USING, qui permet de libérer complètement l'objet. Du coup, plus besoin de se soucier de la fermeture des connexions par exemple, c'est fait automatiquement (si l'objet implémente IDisposable).

Dans ton cas, ça donnera quelque chose comme ceci :

Code VB.NET :

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
Dim existe As Boolean = False
Using con = new SqlConnection("Data Source=MEHDI-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=eco")
    d = CDate(MaskedTextBox1.Text)
    con.Open()
    Using cmd = New SqlCommand("select N_CPT_POS from COMPTEURS;", con)
        Using (da = cmd.ExecuteReader)
            While da.Read Or Not existe
                If da(0) = Val(TextBox13.Text) Then
                    MsgBox("Un compteur avec le même numéro existe déja!", MsgBoxStyle.Critical)
                    existe = True
                End If
            End While
        End Using
    End Using
    If Not existe Then
        Try
            Using com = New SqlCommand("insert into COMPTEURS(N_ORD_ECO,SOUS_QUART,CIL,QUART,NOM_CLT,AV_ACC,PORTE,RUE,N_CPT_DEPO,N_SERIE,DER_IND_LU,TP_CAL,MAR_DEPO,N_CPT_POS,IND_DEPO,DATE_DEPO,CAL_POS,MAR_POS) values('" & ComboBox1.SelectedItem.ToString & "','" & TextBox1.Text & "','" & Val(TextBox2.Text) & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & Val(TextBox6.Text) & "','" & TextBox7.Text & "','" & Val(TextBox8.Text) & "','" & Val(TextBox9.Text) & "','" & Val(TextBox10.Text) & "','" & Val(TextBox11.Text) & "','" & TextBox12.Text & "','" & Val(TextBox13.Text) & "','" & Val(TextBox14.Text) & "','" & d & "','" & Val(TextBox16.Text) & "','" & TextBox17.Text & "''" & RichTextBox1.Text & "');", con)
 
                com.ExecuteNonQuery()
                MsgBox("Compteur ajouté avec succés", MsgBoxStyle.OkOnly)
 
            End Using
        Catch ex As Exception
            MsgBox("Erreur d'insertion des données:" & ex.ToString)
        End Try
    End If
End Using

(Je ne sais pas si les objets com et cmd sont déjà déclarés plus haut, donc il y a peut-être quelques ajustements à faire)

[mehdi.cheddani]

Merci j ai résolu le problème.
Enfait il fallait que je j'enlève or not existe.

[_Ez3kiel]

j ai l'erreur suivante:
Tentative non valide de lecture lorsque aucune donnée n'est présente.
sur la ligne if da(0)=textbox13.text.
merci

A première vue, et sans vouloir te vexer, vérifie que ta table contient des données ...
N'oublie pas de toujours tester tes readers avant de les parcourir.
.read() retourne un booléen.

Code :

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

1
2
3
4
5
6
7
8
 
        If da.read Then
            While da.read
 
            End While
        Else
            MsgBox("Aucunes données recupérées")
        End If

@DotNetMatt, bon à savoir, merci.