Torna al Thread

If Row("Firma").ToString = "" Then cmd.Parameters.AddWithValue("@_Firma_Immagine", DBNull.Value) cmd.Parameters.AddWithValue("@_Firma", DBNull.Value) Else Dim fs As FileStream = New FileStream(Row("Firma").ToString, 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(Row("Firma").ToString) End If
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5