Picture y Access

pablo
15 de Febrero del 2004
Hola que tal alguien sabe como cargar un archivo bmp dentro de un campo de una base
de datos de access accediendo a ella a travez de visual basic
el codigo que tengo hasta ahora es el siguiente:

Dim tbl As ADOX.Table
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
Logolalalala = Logolalalala.Picture 'es el nombre del control picturebox
sProvider = "Microsoft.Jet.OLEDB.3.51"
sNombreBase = App.Path & algo.mdb"
cat.ActiveConnection = _
"Provider=" & sProvider & ";" & _
"Data Source=" & sNombreBase & ";"

With tbl
.Name = "Dibujos"
.Columns.Append "ID", adInteger
If sProvider = "Microsoft.Jet.OLEDB.3.51" Then
.Columns.Append logo, adVarChar, 100
End If

End With

'
' Añadir la nueva tabla a la base de datos
cat.Tables.Append tbl

'
Set tbl = Nothing
Set cat = Nothing
end sub