Torna al Thread
If txtFilepath.Text = "" Then
cmd.Parameters.AddWithValue("@_Firma_Immagine", DBNull.Value)
cmd.Parameters.AddWithValue("@_Firma", DBNull.Value)
Else
Dim fs As FileStream = New FileStream(txtFilepath.Text, FileMode.Open, FileAccess.Read)
Dim dati() As Byte = New Byte((fs.Length) - 1) {}
fs.Read(dati, 0, CType(fs.Length, Integer))
fs.Close()
Dim par1 As MySqlParameter = cmd.Parameters.Add("@_Firma_Immagine", MySqlDbType.Blob)
par1.Value = dati
par1 = cmd.Parameters.Add("@_Firma", MySqlDbType.LongText)
par1.Value = Path.GetFileName(txtFilepath.Text)
End If