souci de vérification avant l'insertion

Version imprimable

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:

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

02/01/2014, 17h01
maradona_9

bonjour,

Montre nous l'erreur (dans quelle ligne l'exception se déclenche).
02/01/2014, 17h10
ottoayoub

Citation:

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.
02/01/2014, 17h14
ottoayoub

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.
02/01/2014, 17h37
callo

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.
02/01/2014, 17h45
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.

bonjour,

Essaye ça si ça marche je t'explique ;).

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

Citation:

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:

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

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

Citation:

Envoyé par maradona_9

bonjour,

Essaye ça si ça marche je t'explique ;).

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

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

Citation:

Envoyé par maradona_9

bonjour,

Essaye ça si ça marche je t'explique ;).

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

02/01/2014, 18h19
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.
02/01/2014, 18h22
ottoayoub

Citation:

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