bios_tnt
13 de Enero del 2006

[b]
Puedo hacer una conexion a una base de datos Access y mostrarlos en mi aplicacion, excepto los que son de tipo OLE (me interesa en especial las imagenes .jpg).
Como podria cargarlas en una variable 'Image' o en un 'PictureBox' ???
Esta seria mi conexion en pocas lineas
[/b]

Private dt As DataTable
Private da As OleDbDataAdapter
Private fila As Integer
.
.
Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & txtBase.Text
Dim sSel As String = "SELECT * FROM tEmployees ORDER BY id_employee"

da = New OleDbDataAdapter(sSel, sCnn)
Dim cb As New OleDbCommandBuilder(da)

cb.QuotePrefix = "["
cb.QuoteSuffix = "]"

da.UpdateCommand = cb.GetUpdateCommand
da.InsertCommand = cb.GetInsertCommand
da.DeleteCommand = cb.GetDeleteCommand

dt = New DataTable

da.Fill(dt)

[b]
Y esta donde muestro los otros datos ...
[/b]

TextBoxName.Text = dr("name").ToString + " " + dr("firstlastname").ToString + " " + dr("secondlastname").ToString
StrNameName = TextBoxName.Text

TextBoxCode.Text = dr("Code").ToString
StrCodeCode = TextBoxCode.Text

TextBoxPosition.Text = dr("id_position").ToString
StrPositionPosition = TextBoxPosition.Text

TextBoxDependence.Text = dr("id_department").ToString
StrDependenceDependence = TextBoxDependence.Text

TextBoxDomicilio.Text = dr("address").ToString
StrDomicilioDomicilio = TextBoxDomicilio.Text

TextBoxImss.Text = dr("imss").ToString
StrIMSSIMSS = TextBoxImss.Text

TextBoxRfc.Text = dr("rfc").ToString
StrRFCRFC = TextBoxRfc.Text

TextBoxTelefono.Text = dr("phone").ToString
StrPhonePhone = TextBoxTelefono.Text

[b]
Aqui es donde me atore
[/b]

Dim Pic As Image
Pic = dr("Foto")
PictureBox1.Image = dr("Foto").ToBite


[b]Gracias por su ayuda[/b]