Ver Mensaje Individual
  #9 (permalink)  
Antiguo 04/09/2012, 08:26
fripas
 
Fecha de Ingreso: septiembre-2012
Ubicación: México
Mensajes: 10
Antigüedad: 11 años, 7 meses
Puntos: 0
Respuesta: Leer Rtf en Richtextbox desde Mysql en VB.Net

Código vb:
Ver original
  1. Sub LeerEstadoActual()
  2.         ConectaDB("Intranet")
  3.         Dim tabla As DataTable = MuestraDB("SELECT EstadoActual FROM Deudor WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor)
  4.         Try
  5.         If tabla.Rows.Count <> 0 Then
  6.                 'Creo mi arreglo que almacenara los bytes del archivo
  7.                MsgBox(tabla.Rows(0)(0).ToString)
  8.             Dim barrFile() As Byte = CType(tabla.Rows(0)(0), Byte())
  9.             'Creo el archivo apartir de los bytes
  10.                Using newFile As New FileStream(("Temp\temporal1.rtf"), FileMode.Create, FileAccess.Write)
  11.                     newFile.Write(barrFile, 0, barrFile.Length)
  12.                     newFile.Flush()
  13.                     newFile.Close()
  14.                 End Using
  15.                 TxtEstadoActual.LoadFile("Temp\temporal1.rtf")
  16.             End If
  17.         Catch ex As Exception
  18.             MsgBox("Error al leer la Base de Datos" & vbCrLf & ex.Message, MsgBoxStyle.Critical, "¡ERROR!")
  19.         End Try
  20.     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 original
  1. cmd = New MySqlCommand("UPDATE Deudor SET EstadoActual='" & arrFile.ToString & "' WHERE IdDeudor=" & BuscarInformeInterno.IdDeudor, conexion)
  2.             cmd.ExecuteNonQuery()

Gracias