problema insert

[Loliva Fabio A.]

'libreria per usare mysql
Imports MySql.Data.MySqlClient


Public Class fornitoriInserisci

    'parametri di connessione
    Dim ServerString As String = "Server=localhost;User Id=root;Password=password;Database=db"

    'nuova variabile di connessione
    Dim SQLConnection As MySqlConnection = New MySqlConnection


    Private Sub fornitoriInserisci_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

        

        'stringa di connessione
        SQLConnection.ConnectionString = ServerString


        Try
            'se la connessioneè kiusa, aprila
            If SQLConnection.State = ConnectionState.Closed Then
                SQLConnection.Open()
                MsgBox("Connessione con il server effettuata con successo")
            Else
                'altrimenti errore
                SQLConnection.Close()
                MsgBox("Error. Control connection parameter")
            End If

            'stampa messaggio errore
        Catch ex As Exception
            MsgBox(ex.ToString)

        End Try
    End Sub

    Public Sub inserisciFornitore(ByRef SQLStatement As String)
        Dim cmd As MySqlCommand = New MySqlCommand

        With cmd
            .CommandText = SQLStatement
            .CommandType = CommandType.Text
            .Connection = SQLConnection
            .ExecuteNonQuery()
        End With

        SQLConnection.Close()
        MsgBox(TextBox1.Text & " aggiunto con successo")
        SQLConnection.Dispose()



    End Sub


    Private Sub btnInserisci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserisci.Click

        If TextBox1.Text = String.Empty Then
            MessageBox.Show("Errore")

        Else

            Dim SQLStatement As String = "INSERT INTO anagraficafornitori(ragioneSociale) VALUES('" & TextBox1.Text & "')"

            inserisciFornitore(SQLStatement)

        End If

    End Sub


End Class

il programma funziona mi da errore qui: .ExecuteNonQuery() potreste gentilmente spiegarmi il perchè? vorrei capire prima di tutto e poi risolvere il problema. grazie

[Loliva Fabio A.]

a quanto pare la connessione è chiusa

[Loliva Fabio A.]

risolto mancava un Handles MyBase.Load

[alka]

Originariamente inviato da Loliva Fabio A.
risolto mancava un Handles MyBase.Load

Mancava anche un titolo decente della discussione: vedi il Regolamento, punto 6).