[Visual Basic] Errore INSERT su DB MySQL (VB.Net)

Discussione in 'Visual Basic' iniziata da canfra, 22 Ottobre 2018.

Tag (etichette):
  1. canfra

    canfra Nuovo Utente

    Registrato:
    22 Ottobre 2018
    Messaggi:
    5
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Sesso:
    Maschio
    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 :
    Codice:
    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: 25 Ottobre 2018
  2. Max 1

    Max 1 Super Moderatore Membro dello Staff SUPER MOD MOD

    Registrato:
    29 Febbraio 2012
    Messaggi:
    3.806
    Mi Piace Ricevuti:
    283
    Punteggio:
    83
    Sesso:
    Maschio
    @canfra
    Da regolamento del forum, come tutti noi sei tenuto ad usare il tag code.gif quando posti del codice, oppure la funzione codice dalla barra degli strumenti
    box inserisci 2.png.JPG

    Inoltre ti prego di leggere attentamente il regolamento generale del forum e quello di sezione dove posti

    Grazie
    Per questa volta te lo sistemo io ma mi raccomando per il futuro
     
  3. canfra

    canfra Nuovo Utente

    Registrato:
    22 Ottobre 2018
    Messaggi:
    5
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Sesso:
    Maschio
    Grazie e scusami
     
  4. Rikk73

    Rikk73 Utente Attivo

    Registrato:
    7 Aprile 2015
    Messaggi:
    133
    Mi Piace Ricevuti:
    6
    Punteggio:
    18
    Sesso:
    Maschio
    Occupazione:
    .NET Software Developer
    Località:
    Arezzo
    no capisco questa riga...

    comunque prova a castare 'ddd' in un oggetto DateTime
     
  5. canfra

    canfra Nuovo Utente

    Registrato:
    22 Ottobre 2018
    Messaggi:
    5
    Mi Piace Ricevuti:
    0
    Punteggio:
    1
    Sesso:
    Maschio
    Semplicemente un errore di copia e incolla, riga sistemata.
    Anche impostando l'oggetto DateTime non cambia nulla
     
Sto caricando...

Condividi questa Pagina