Menu

Problème 'End Sub' erreur BC30026 [Résolu]

Messages postés
42
Date d'inscription
mercredi 24 octobre 2018
Statut
Membre
Dernière intervention
9 juillet 2019
- - Dernière réponse : iReVElB
Messages postés
42
Date d'inscription
mercredi 24 octobre 2018
Statut
Membre
Dernière intervention
9 juillet 2019
- 30 juin 2019 à 12:53
Bonjour,

mon logiciel fonctionnait quand je click sur "Démarrer'", je n'avais pas d'erreur, et le je relance visual studio, je reteste le logiciel et il y a une fenêtre qui me dit "des erreurs de build se sont produites. Voulez-vous continuer et exécuter la dernière build réussie ?" Donc moi je fais non mais sa me mais l'ancienne fenêtre de mon logiciel, donc je regarde les erreurs et il me dise qu'il me manque un "End Sub", je regarde dans le code tout ce qui commence par Sub et qu'ils ont bien "End Sub" à la fin, sauf que tout les "Sub" on leur "End Sub" a la fin. Je ne comprends pas. Je vous mais le code.
(ce tout petit) (Me critiquait pas ces justes un logiciel perso donc tout ce qui est faille je m'en fous un peux)

Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Form1


    Dim connexion As MySqlConnection

    Private Sub Button_connexion_Click(sender As Object, e As EventArgs) Handles button_connexion.Click

        If button_connexion.Text = "Connexion" Then

            connexion = New MySqlConnection("SERVER=127.0.0.1;PORT=;DATABASE=stage;UID=" & TextBox_utilisateur.Text & ";PWD=" & TextBox_motdepasse.Text)
            Try
                If connexion.State = ConnectionState.Closed Then
                    connexion.Open()
                    button_connexion.Text = "Deconnexion"
                    TextBox_utilisateur.Text = ""
                    TextBox_motdepasse.Text = ""
                End If
            Catch ex As Exception
                MessageBox.Show("Erreur")
            End Try
        Else
            connexion.Close()
            button_connexion.Text = "Connexion"
            TextBox_utilisateur.Text = ""
            TextBox_motdepasse.Text = ""
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If connexion.State = ConnectionState.Open Then
            Dim cmd As New MySqlCommand("INSERT INTO entreprise (type, nomentreprise, adresse, nompatron, site, mail, numero1, numero2, numero3) VALUES(@type, @nomentreprise, @adresse, @nompatron, @site, @mail, @numero1, @numero2, @numero3)", connexion)
            cmd.Parameters.AddWithValue("@type", TextBox_type.Text)
            cmd.Parameters.AddWithValue("@nomentreprise", TextBox_nomentreprise.Text)
            cmd.Parameters.AddWithValue("@adresse", TextBox_adresse.Text)
            cmd.Parameters.AddWithValue("@nompatron", TextBox_nompatron.Text)
            cmd.Parameters.AddWithValue("@site", TextBox_site.Text)
            cmd.Parameters.AddWithValue("@mail", TextBox_mail.Text)
            cmd.Parameters.AddWithValue("@numero1", TextBox_numero1.Text)
            cmd.Parameters.AddWithValue("@numero2", TextBox_numero2.Text)
            cmd.Parameters.AddWithValue("@numero3", TextBox_numero3.Text)
            cmd.ExecuteNonQuery()
            TextBox_type.Clear()
            TextBox_nomentreprise.Clear()
            TextBox_adresse.Clear()
            TextBox_nompatron.Clear()
            TextBox_site.Clear()
            TextBox_mail.Clear()
            TextBox_numero1.Clear()
            TextBox_numero2.Clear()
            TextBox_numero3.Clear()
        Else
            MessageBox.Show("Erreur")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If connexion.State = ConnectionState.Open Then
            ListView1.Items.Clear()



            Dim cmd As New MySqlCommand("SELECT * FROM entreprise", connexion)
            Using L As MySqlDataReader = cmd.ExecuteReader()
                While L.Read()

                    Dim Element As New ListViewItem
                    Dim id As String = L("id")
                    Dim type As String = L("type")
                    Dim nomentreprise As String = L("nomentreprise")
                    Dim adresse As String = L("adresse")
                    Dim nompatron As String = L("nompatron")
                    Dim site As String = L("site")
                    Dim mail As String = L("mail")
                    Dim numero1 As String = L("numero1")
                    Dim numero2 As String = L("numero2")
                    Dim numero3 As String = L("numero3")
                    Element.SubItems.Add(id)
                    Element.SubItems.Add(type)
                    Element.SubItems.Add(nomentreprise)
                    Element.SubItems.Add(adresse)
                    Element.SubItems.Add(nompatron)
                    Element.SubItems.Add(site)
                    Element.SubItems.Add(mail)
                    Element.SubItems.Add(numero1)
                    Element.SubItems.Add(numero2)
                    Element.SubItems.Add(numero3)
                    ListView1.Items.Add(Element)
                End While
            End Using
        End If
    End Sub
End Class


Et les codes d'erreurs :

error BC30026: 'End Sub' attendu.
error BC30289: Cette instruction ne peut pas apparaître dans le corps d'une méthode. Elle est interprétée comme la fin de la méthode.

Merci pour vautre aide et vos réponses.
Afficher la suite 

2 réponses

Messages postés
13525
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
14 juillet 2019
358
0
Merci
Bonjour,

à quelles lignes apparaissent ces erreurs?
iReVElB
Messages postés
42
Date d'inscription
mercredi 24 octobre 2018
Statut
Membre
Dernière intervention
9 juillet 2019
4 -
Tu le voix ou ?
iReVElB
Messages postés
42
Date d'inscription
mercredi 24 octobre 2018
Statut
Membre
Dernière intervention
9 juillet 2019
4 -
Commenter la réponse de Whismeril
Messages postés
42
Date d'inscription
mercredi 24 octobre 2018
Statut
Membre
Dernière intervention
9 juillet 2019
4
0
Merci
Ok j'ai trouver le problème, c'est dans le code du designer y'avais 3 ligne en trop

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Protected Overrides Sub Dispose(ByVal disposing As Boolean)

Ducoup je les est delete et sa marche
Commenter la réponse de iReVElB