Código vb:
Ver originalSub LeerEstadoActual()
ConectaDB("Intranet")
Dim tabla As DataTable = MuestraDB("SELECT EstadoActual FROM Deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
Try
If tabla.Rows.Count <> 0 Then
'Creo mi arreglo que almacenara los bytes del archivo
MsgBox(tabla.Rows(0)(0).ToString)
Dim barrFile() As Byte = CType(tabla.Rows(0)(0), Byte())
'Creo el archivo apartir de los bytes
Using newFile As New FileStream(("Temp\temporal1.rtf"), FileMode.Create, FileAccess.Write)
newFile.Write(barrFile, 0, barrFile.Length)
newFile.Flush()
newFile.Close()
End Using
TxtEstadoActual.LoadFile("Temp\temporal1.rtf")
End If
Catch ex As Exception
MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
End Try
End Sub
Ese es mi código que utilizo para leer aunque sigo pensando que el problema esta cuando mando el arreglo binario a la base de datos:
Código vb:
Ver originalcmd = New MySqlCommand("UPDATE Deudor SET EstadoActual='" & arrFile.ToString & "' WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor, conexion)
cmd.ExecuteNonQuery()
Gracias