Sto facendo un po di prove per capire. Adesso mi sono arenato qui e non capisco dove sia il problema. Si collega al server ma poi credo che ci sia un problema nella seconda apertura della connessione anche se da messaggio di riuscita ma salta la lettura del file.
[CODE]
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
DataGridView1.Rows.Clear()
Dim con As New MySqlConnection("server=localhost;username='x';Password='x';database='x';")
Dim cmd As MySqlCommand
Dim reader As MySqlDataReader
cmd = New MySqlCommand("INSERT INTO Acquisto_Key (Cognome,Nome,Email,ProdoctKey,Data) VALUES ('" & CognomeText.Text & "','" & NomeText.Text & "','" & EmailText.Text & "','" & ProdoctKeyText.Text & "','" & DataText.Text & "')", con)
Try
con.Open()
MessageBox.Show("Connessione Riuscita")
cmd.ExecuteNonQuery()
con.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
con.Dispose()
End Try
cmd = New MySqlCommand("SELECT * FROM Acquisto_Key", con)
Try
'PRATICAMENTE DA QUI PASSA AL MESSAGEBOX MA IL MESSAGGIO è DI RIUSCITA DELLA CONNESSIONE AL SERVER
' PERCIO' NON CAPISCO DOVE SIA IL PROBLEMA.
con.Open()
reader = cmd.ExecuteReader()
While reader.Read()
DataGridView1.Rows.Add(reader.GetString(0), reader.GetString(1), reader.GetString(2), reader.GetString(3), reader.GetString(4))
End While
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message & "2")
End Try
End Sub
End Class