souci de vérification avant l'insertion

**ottoayoub** · 02/01/2014, 15h49

bonjour, je rencontre un petit souci au niveau de la vérification deux la présence de 2 champs avant de faire une insertion dans la base de données MySQL.
les 2 messages d'erreur s'affiche parfaitement mais l'insertion ne passe pas, ça mouline sans faire le traitement demandé. ci-joint le 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim resultat As String
 
        Dim cmd As New MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        Try
            'début du test, si les zonnes de text sont vide, faire
            If TextBoxTitreLivre.Text = "" Or TextBoxNomAuteur.Text = "" Or TextBoxNumGenre.Text = "" Then
                MsgBox("case vide !!!", MsgBoxStyle.Information)
            Else
                'ouverture de la connexion
                connexion.Open()
                'contenir les données
                With cmd
                    .Connection = connexion
                    .CommandText = "select titrelivre, auteurlivre from bibliotheques where titrelivre='" & TextBoxTitreLivre.Text & "' and auteurlivre='" & TextBoxNomAuteur.Text & "'"
                    'éxecution 
                    resultat = cmd.ExecuteNonQuery
                    ' si l'indo existe déjà dans la base de données
                    If resultat = 0 Then
                        MsgBox("record exists", MsgBoxStyle.Information)
                        connexion.Close()
                    Else
                        ajout("insert into bibliotheques (titrelivre, genre, auteurlivre, dateEntre, numenregistrement, nbrpartie, infopublication, source, etagere, edition) values('" & TextBoxTitreLivre.Text.ToString & "', '" & TextBoxNumGenre.Text.ToString & "', '" & TextBoxNomAuteur.Text.ToString & "', '" & TextBoxDateEntree.Text.ToString & "', '" & TextBoxNumEnregistrement.Text.ToString & "', '" & TextBoxNbPartie.Text.ToString & "', '" & TextBoxInfoPublication.Text.ToString & "', '" & TextBoxSource.Text.ToString & "', '" & TextBoxEtagere.Text.ToString & "', '" & TextBoxEdition.Text.ToString & "')")
                        connexion.Close()
                        Me.Hide()
                        Form1.Show()
                    End If
                End With
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

**maradona_9** · 02/01/2014, 16h01

bonjour,

Montre nous l'erreur (dans quelle ligne l'exception se déclenche).

**ottoayoub** · 02/01/2014, 16h10

Envoyé par maradona_9

bonjour,

Montre nous l'erreur (dans quelle ligne l'exception se déclenche).

Aucune exception n'est déclenchée. ça mouline sans rien ajouter à la base de données
PS: l'ajout se fait sans le moindre souci si j'enlève la condition de vérification avant une insertion.

**ottoayoub** · 02/01/2014, 16h14

Je veux dire, que si j'insert "titrelivre" et "auteurlivre" sans faire une vérification de leur existence dans la base de données, le sql d'ajout passe, mais si je laisse le test de vérification eh bien l'ajout ne passe pas et je n'arrive pas à savoir pourquoi. j'en ai aucune idée.

**callo** · 02/01/2014, 16h37

Bonjour,
- Les bonnes pratiques recommandent l'utilisation des requêtes paramétrées par exécuter ses instructions sql. De plus, tu bénéficies de plus de sécurité contre les attaques de type injection SQL.

- Attention aux espaces aux début et à la fin dans les valeurs de tes textbox. Tu peux utiliser la fonction Trim à cet effet.

- Fait un débogage pas à pas pour voir le comportement de ton code.

**Kropernic** · 02/01/2014, 16h45

Ca pourrait aussi être utile d'avoir le code de la fonction/procédure "ajout" qui reçoit une requête sql en paramètre.

**maradona_9** · 02/01/2014, 16h51

bonjour,

Essaye ça si ça marche je t'explique

.

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
Dim resultat As SqlDataReader
 
        Dim cmd As New MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        Try
            'début du test, si les zonnes de text sont vide, faire
            If TextBoxTitreLivre.Text = "" Or TextBoxNomAuteur.Text = "" Or TextBoxNumGenre.Text = "" Then
                MsgBox("case vide !!!", MsgBoxStyle.Information)
            Else
                'ouverture de la connexion
                connexion.Open()
                'contenir les données
                With cmd
                    .Connection = connexion
                    .CommandText = "select titrelivre, auteurlivre from bibliotheques where titrelivre='" & TextBoxTitreLivre.Text & "' and auteurlivre='" & TextBoxNomAuteur.Text & "'"
                    'éxecution 
                    resultat = cmd.ExecuteReader
                    ' si l'indo existe déjà dans la base de données
                    If resultat.HasRows Then
                        MsgBox("record exists", MsgBoxStyle.Information)
                        connexion.Close()
                    Else
                        ajout("insert into bibliotheques (titrelivre, genre, auteurlivre, dateEntre, numenregistrement, nbrpartie, infopublication, source, etagere, edition) values('" & TextBoxTitreLivre.Text.ToString & "', '" & TextBoxNumGenre.Text.ToString & "', '" & TextBoxNomAuteur.Text.ToString & "', '" & TextBoxDateEntree.Text.ToString & "', '" & TextBoxNumEnregistrement.Text.ToString & "', '" & TextBoxNbPartie.Text.ToString & "', '" & TextBoxInfoPublication.Text.ToString & "', '" & TextBoxSource.Text.ToString & "', '" & TextBoxEtagere.Text.ToString & "', '" & TextBoxEdition.Text.ToString & "')")
                        connexion.Close()
                        Me.Hide()
                        Form1.Show()
                    End If
                End With
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

**ottoayoub** · 02/01/2014, 17h03

Envoyé par Kropernic

Ca pourrait aussi être utile d'avoir le code de la fonction/procédure "ajout" qui reçoit une requête sql en paramètre.

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
 
Public Sub ajout(ByVal sql As String)
        Try
            'ouverture de la connexion
            connexion.Open()
            'contenir les données
            With cmd
                .Connection = connexion
                .CommandText = sql
                'éxecution 
                resultat = cmd.ExecuteNonQuery
                If resultat = 0 Then
                    MsgBox("pas d'enregistrement", MsgBoxStyle.Information)
                Else
                    MsgBox("enregistrement OK")
                End If
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        connexion.Close()
    End Sub

**ottoayoub** · 02/01/2014, 17h09

toujours pas d'enregistrement.
PS: j'utilise Mysql, SqlDataReader redevient mysqldatareader

Envoyé par maradona_9

bonjour,

Essaye ça si ça marche je t'explique

.

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
Dim resultat As SqlDataReader
 
        Dim cmd As New MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        Try
            'début du test, si les zonnes de text sont vide, faire
            If TextBoxTitreLivre.Text = "" Or TextBoxNomAuteur.Text = "" Or TextBoxNumGenre.Text = "" Then
                MsgBox("case vide !!!", MsgBoxStyle.Information)
            Else
                'ouverture de la connexion
                connexion.Open()
                'contenir les données
                With cmd
                    .Connection = connexion
                    .CommandText = "select titrelivre, auteurlivre from bibliotheques where titrelivre='" & TextBoxTitreLivre.Text & "' and auteurlivre='" & TextBoxNomAuteur.Text & "'"
                    'éxecution 
                    resultat = cmd.ExecuteReader
                    ' si l'indo existe déjà dans la base de données
                    If resultat.HasRows Then
                        MsgBox("record exists", MsgBoxStyle.Information)
                        connexion.Close()
                    Else
                        ajout("insert into bibliotheques (titrelivre, genre, auteurlivre, dateEntre, numenregistrement, nbrpartie, infopublication, source, etagere, edition) values('" & TextBoxTitreLivre.Text.ToString & "', '" & TextBoxNumGenre.Text.ToString & "', '" & TextBoxNomAuteur.Text.ToString & "', '" & TextBoxDateEntree.Text.ToString & "', '" & TextBoxNumEnregistrement.Text.ToString & "', '" & TextBoxNbPartie.Text.ToString & "', '" & TextBoxInfoPublication.Text.ToString & "', '" & TextBoxSource.Text.ToString & "', '" & TextBoxEtagere.Text.ToString & "', '" & TextBoxEdition.Text.ToString & "')")
                        connexion.Close()
                        Me.Hide()
                        Form1.Show()
                    End If
                End With
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

**ottoayoub** · 02/01/2014, 17h13

ok ça marche, peux-tu stp m'expliquer le code et merci.

Envoyé par maradona_9

bonjour,

Essaye ça si ça marche je t'explique

.

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
Dim resultat As SqlDataReader
 
        Dim cmd As New MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        Try
            'début du test, si les zonnes de text sont vide, faire
            If TextBoxTitreLivre.Text = "" Or TextBoxNomAuteur.Text = "" Or TextBoxNumGenre.Text = "" Then
                MsgBox("case vide !!!", MsgBoxStyle.Information)
            Else
                'ouverture de la connexion
                connexion.Open()
                'contenir les données
                With cmd
                    .Connection = connexion
                    .CommandText = "select titrelivre, auteurlivre from bibliotheques where titrelivre='" & TextBoxTitreLivre.Text & "' and auteurlivre='" & TextBoxNomAuteur.Text & "'"
                    'éxecution 
                    resultat = cmd.ExecuteReader
                    ' si l'indo existe déjà dans la base de données
                    If resultat.HasRows Then
                        MsgBox("record exists", MsgBoxStyle.Information)
                        connexion.Close()
                    Else
                        ajout("insert into bibliotheques (titrelivre, genre, auteurlivre, dateEntre, numenregistrement, nbrpartie, infopublication, source, etagere, edition) values('" & TextBoxTitreLivre.Text.ToString & "', '" & TextBoxNumGenre.Text.ToString & "', '" & TextBoxNomAuteur.Text.ToString & "', '" & TextBoxDateEntree.Text.ToString & "', '" & TextBoxNumEnregistrement.Text.ToString & "', '" & TextBoxNbPartie.Text.ToString & "', '" & TextBoxInfoPublication.Text.ToString & "', '" & TextBoxSource.Text.ToString & "', '" & TextBoxEtagere.Text.ToString & "', '" & TextBoxEdition.Text.ToString & "')")
                        connexion.Close()
                        Me.Hide()
                        Form1.Show()
                    End If
                End With
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

**maradona_9** · 02/01/2014, 17h19

ok

ton probléme c'était au niveau de ExecuteNonQuery car on l'a utilise que lorsque nous voulons savoir le nombre des lignes affectées par les requêtes Update, Insert et Delete PAS SELECT.

**ottoayoub** · 02/01/2014, 17h22

Envoyé par maradona_9

ok

ton probléme c'était au niveau de ExecuteNonQuery car on l'a utilise que lorsque nous voulons savoir le nombre des lignes affectées par les requêtes Update, Insert et Delete PAS SELECT.

Je comprends, merci

souci de vérification avant l'insertion

VB.NET

Discussions similaires

Partager

Partager