recherche d'un élément dans la bdd en vb.net 2010

Question

bonjour  
s'il vous plait je veux effectuer une recherche par id_article dans ma base de données j'ai écris le code mais il me donne l'erreur suivante " type de donnée incompatible avec l'expression de critère " dans chaque requête . voila mon code :
 
txt_cherEn.Text = txt_idarti.Text
        txt_dateentrer.Text = ""
        txt_uti.Text = ""
        txt_prix.Text = ""
        Txt_quanti.Text = ""
        Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\user\Desktop\application gst\gestion de stock1.accdb;"
        Dim requitte As String = "SELECT nom_article FROM article where id_article='" & txt_cherEn.Text & "'"


        Dim myconnexion As New OleDbConnection(ConnString)
        Dim commande As New OleDbCommand(requitte, myconnexion)
        Try
            myconnexion.Open()
            Dim reader As OleDbDataReader = commande.ExecuteReader()

            While reader.Read

                Label10.Text = reader.GetString(0)
                Label9.Visible = True
                Label10.Visible = True
            End While

            reader.Close()
            myconnexion.Close()

        Catch ex As Exception
            MsgBox("l'erreur1 suivante a été rencontré:" & ex.Message)
        End Try
        ' Get prenom
        Dim requette1 As String " select id_entrer from entrer where id_article'" & txt_cherEn.Text & "'"

        Dim con As New OleDbConnection(ConnString)

        Dim commande1 As New OleDbCommand(requette1, con)

        Try
            con.Open()

            Dim reader1 As OleDbDataReader = commande1.ExecuteReader()

            While reader1.Read
                txt_identrer.Text = reader1.GetInt32(0)


            End While

            reader1.Close()

            con.Close()

        Catch ex As Exception
            MsgBox("l'erreur2 suivante a été rencontré:" & ex.Message)
        End Try



        Dim requette2 As String " select date_entrer from entrer where id_article'" & txt_cherEn.Text & "'"

        Dim conn As New OleDbConnection(ConnString)

        Dim commande2 As New OleDbCommand(requette2, conn)

        Try
            conn.Open()

            Dim reader2 As OleDbDataReader = commande2.ExecuteReader()


            While reader2.Read

                txt_dateentrer.Text = reader2.GetDateTime(0)
            End While

            reader2.Close()

            conn.Close()

        Catch ex As Exception
            MsgBox("l'erreur3 suivante a été rencontré:" & ex.Message)
        End Try
        'get adress
        Dim requette3 As String " select quantite_entrer from entrer where id_article'" & txt_cherEn.Text & "'"
        Dim conne As New OleDbConnection(ConnString)

        Dim commande3 As New OleDbCommand(requette3, conne)
        Try
            conne.Open()

            Dim reader3 As OleDbDataReader = commande3.ExecuteReader()

            While reader3.Read

                Txt_quanti.Text = reader3.GetInt32(0)
            End While

            reader3.Close()
            conne.Close()

        Catch ex As Exception
            MsgBox("l'erreur4 suivante a été rencontré:" & ex.Message)
        End Try
        Dim requette4 As String " select prix from entrer where id_article'" & txt_cherEn.Text & "'"
        Dim connen As New OleDbConnection(ConnString)

        Dim commande4 As New OleDbCommand(requette4, connen)
        Try
            connen.Open()

            Dim reader4 As OleDbDataReader = commande4.ExecuteReader()

            While reader4.Read

                txt_prix.Text = reader4.GetInt32(0)
            End While

            reader4.Close()
            connen.Close()

        Catch ex As Exception
            MsgBox("l'erreur5 suivante a été rencontré:" & ex.Message)
        End Try
        Dim requette5 As String " select nom_utulisateur from entrer where id_article'" & txt_cherEn.Text & "'"
        Dim connex As New OleDbConnection(ConnString)

        Dim commande5 As New OleDbCommand(requette5, connex)
        Try
            connex.Open()

            Dim reader5 As OleDbDataReader = commande5.ExecuteReader()

            While reader5.Read

                txt_uti.Text = reader5.GetString(0)
            End While

            reader5.Close()
            connex.Close()

        Catch ex As Exception
            MsgBox("l'erreur6 suivante a été rencontré:" & ex.Message)
        End Try

cs_ShayW · Answer

Salut

ce n'est pas en postant 40 lignes de codes
qui va t'aider et ce n'est pas à nous à analyser
ton code 

tu peux dire au moins  à quelle ligne l'erreur survient
apprend à te servir du debugger et à exécuter ton
prog pas à pas

lovely1999 · Answer

j'ai précisé que l'erreur de type de critère dans chaque txt_***.text=reader*.Get****
je vois que les type sont corrects mais il me pose ce problème je c pas pour quoi j'ai analysé ce code toute la journée mais ça marche pas et si j'ai posé la question ici c'est seulement car j'ai pas trouvé des solution toute seule et merci pour ta réponse

ucfoutu · Answer

Ce n'est de toutes manières en aucun cas du :
 Forum > Visual Basic 6
une fois de plus (et une fois de trop) 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

lovely1999 · Answer

Mr ucf vous avez commencez !!!!

cs_ShayW · Answer

ici

ucfoutu · Answer

Mr ucf vous avez commencez !!!!

et il en sera ainsi tant que .... nom de nom !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

lovely1999 · Answer

????????????????????????

ucfoutu · Answer

Le pire est sans aucun doute cette suite de points d'interrogation, qui montre que rien n'a été compris des remarques faites antérieurement. C'est juste désespérant et cela parait sans remède ! 
Bonne chance dans tes errements.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

lovely1999 · Answer

please don't talk to me because i hate your way of talking to me i can't get what's the mater with you so i am in way and you in another way OK

ucfoutu · Answer

Le seul problème est que votre "voie" n'est pas du tout celle de ce forum. 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

lovely1999 · Answer

et le tien Mr ucf?????? tu ne sais même si parler avec les autres alors ne parle pas avec moi OK you don't understand stay away from me

Recherche d'un élément dans la bdd en vb.net 2010

11 réponses

Votre réponse

Discussions similaires