erreur de code en vb.net 2010 Fermé

Question

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.
Configuration: Windows / Firefox 56.0

Utilisateur anonyme · Answer

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.

Erreur de code en vb.net 2010

1 réponse

Discussions similaires