Signaler

Erreur de code en vb.net 2010

Posez votre question france4 - Dernière réponse le 12 oct. 2017 à 20:19 par Whismeril
Bonjour,
je suis bloqué dans ma programmation d'une application en visual studio 2010. je ne comprend pas car tous semble être normal voici le syntaxe:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

       Dim ajout GestionDataSet.EXAMENRow()

        Enregistrer = GestionDataSet.EXAMEN.NewRow

        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("il y a un des champs qui estTextBox3.Text = "" vide, Veuillez remplir le ou les champs Vides SVP")
        Else
            Try
                Enregistrer.CodeExam = TextBox1.Text
                Enregistrer.NomExam = TextBox2.Text

                GestionDataSet.EXAMEN.Rows.Add(Enregistrer)
                EXAMENTableAdapter.Update(GestionDataSet.EXAMEN)

                MessageBox.Show("Enregistrement réussi", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)

                TextBox1.Text = ""
                TextBox2.Text = ""

            Catch ex As Exception
                MessageBox.Show("Enregistrement Impossible", "Erreur", MessageBoxButtons.OK)

            End Try

        End If

    End Sub
    Private Function Enregistrer() As Object
        Throw New NotImplementedException
    End Function

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If GestionDataSet.EXAMEN.Rows.Count <> 0 Then
            EXAMENBindingSource.RemoveCurrent()
            EXAMENTableAdapter.Update(GestionDataSet.EXAMEN)
            MsgBox("l'enregistrement a été Supprimé", MsgBoxStyle.Information)
            GoTo x
x:
        Else
            MsgBox("Aucun enregistrement a supprimé", MsgBoxStyle.Information)
        End If
    End Sub


la déclaration a t -elle de problème? si oui que faire?

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

Utile
+0
plus moins
Bonsoir

déjà ton code manque de cohérence, un coup tu mets du VB6
 MsgBox("il y a un des champs qui estTextBox3.Text = "" vide, Veuillez remplir le ou les champs Vides SVP")


un coup du VB.Net
MessageBox.Show("Enregistrement réussi", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)


Ça n'est pas parce que Microsoft tolère de mélanger les torchons et les serviettes que c'est une bonne chose.
Je ne peux que te conseiller d'enlever la référence Microsoft.VisaulBasic et ne coder qu'en .Net


En plus ton premier message alerte sur TextBox3, alors que tu testes 1 et 2.
D'ailleurs une autre mauvaise pratique est de laisser le nom par défaut aux contrôles.
Pour coder, et plus tard maintenir, il est plus efficace de donner un nom qui rappelle facilement à la fois le type de contrôle et son utilisation. Par exemple, le textbox pour saisir un prénom pourrait s'appeler tbxPrenom, ou tbx_Prenom, ou encore prenom_Tbx, le tout est d'avoir une logique et t'y tenir.

Là il manque quelque chose
Dim ajout GestionDataSet.EXAMENRow()


Corrige déjà tout ça et reposte le code en utilisant la coloration syntaxique (voir encadré ajouté par Crapoulou dans ta question), en précisant ce qui ne va pas, car on ne peut pas le deviner.
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !