|
Ciao a tutti,
non riesco a capire perché dopo aver stabilito la connessione con il DB MySQL in fase di INSERT mi restituisce l'errore "Fatal error encountered during command execution".
Utilizzo il Framework 4.6 e ho aggiunto il riferimento MySQL.Data 8.0.12.0
le SELECT funzionano normalmente
Grazie in anticipo per l'aiuto
Questo è il codice VB.Net :
Imports MySql.Data.MySqlClient
Public Class Form1
Dim StringaConnessione As String = "server=127.0.0.1;database=db_prova;user id=root;password=xxxxxxx"
Dim SQL_Comando As String
Dim ConnessioneDB As New MySqlConnection(StringaConnessione)
Dim ComandoSQL As MySqlCommand
Private Sub butWrite_Click(sender As Object, e As EventArgs) Handles butWrite.Click
Dim ccc As String = "Cognome"
Dim nnn As String = "Nome"
Dim ddd As String = "14/12/1967"
SQL_Comando = "INSERT INTO schede (" _
& "Cognome, " _
& "Nome, " _
& "ddn " _
& ") VALUES ( " _
& "@Cognome, " _
& "@Nome, " _
& "@ddn " _
& ")"
ComandoSQL = New MySqlCommand(SQL_Comando, ConnessioneDB)
With ComandoSQL
.CommandText = SQL_Comando
.Connection = ConnessioneDB
.Parameters.Add("@Cognome", MySqlDbType.VarChar).Value = ccc
.Parameters.Add("@Nnome", MySqlDbType.VarChar).Value = nnn
.Parameters.Add("@ddn", MySqlDbType.Date).Value = ddd
End With
Try
ConnessioneDB.Open()
If ComandoSQL.ExecuteNonQuery = 1 Then
MessageBox.Show("INSERT OK")
End If
ConnessioneDB.Close()
Catch errore_di_connessione As MySqlException
MsgBox(“Errore in scrittura DB: ” + errore_di_connessione.Message)
Finally
ConnessioneDB.Dispose()
End Try
End Sub
End Class
Ultima modifica effettuata da canfra il 22/10/2018 alle 13:14 | 
