Como manejar "Objeto OLE" de access en vb.net

hola
si se refiere a guardar imagenes en la bd este ejemplo le servirá:
Dim cnsql2 As New OleDbConnection(ConnectionString)

Dim cmsql2 As New OleDbCommand("Update Paciente set foto = @blobdata where
cedula = " & PrepararStr(TxtCedula.Text), cnsql2)

Dim ms As MemoryStream = New MemoryStream

PicFoto.Image.Save(ms, ImageFormat.Jpeg)

Dim bytBLOBData(ms.Length - 1) As Byte

ms.Position = 0

ms.Read(bytBLOBData, 0, ms.Length)

Dim prm As New OleDbParameter("@BLOBData", OleDbType.Binary, _

bytBLOBData.Length, ParameterDirection.Input, False, _

0, 0, Nothing, DataRowVersion.Current, bytBLOBData)

cmsql2.Parameters.Add(prm)

cnsql2.Open()

cmsql2.ExecuteNonQuery()

cnsql2.Close()


"Javi" escribió en el mensaje
news:06e101c50880$480a5540$
Mostrar la cita

Alguien me puede indicar como puedo guardar y mostrar
objetos ole de una bd access en vb.net.

Muchas Gracias

Lo que necesito exactamente es meter un xml o algo
parecido que contenga los campos de una clase. Voy a ver
si por el ejemplo que ha facilitado saco algo.

Muchas Gracias de nuevo.
Un saludo

Mostrar la cita

hola
si se refiere a guardar imagenes en la bd este ejemplo

le servirá:
Mostrar la cita

Dim cnsql2 As New OleDbConnection(ConnectionString)

Dim cmsql2 As New OleDbCommand("Update Paciente set foto

= @blobdata where
Mostrar la cita

cedula = " & PrepararStr(TxtCedula.Text), cnsql2)

Dim ms As MemoryStream = New MemoryStream

PicFoto.Image.Save(ms, ImageFormat.Jpeg)

Dim bytBLOBData(ms.Length - 1) As Byte

ms.Position = 0

ms.Read(bytBLOBData, 0, ms.Length)

Dim prm As New OleDbParameter("@BLOBData",

OleDbType.Binary, _
Mostrar la cita

bytBLOBData.Length, ParameterDirection.Input, False, _

0, 0, Nothing, DataRowVersion.Current, bytBLOBData)

cmsql2.Parameters.Add(prm)

cnsql2.Open()

cmsql2.ExecuteNonQuery()

cnsql2.Close()


"Javi" escribió en

el mensaje
Mostrar la cita

news:06e101c50880$480a5540$
Mostrar la cita

Alguien me puede indicar como puedo guardar y mostrar
objetos ole de una bd access en vb.net.

Muchas Gracias

.