Hola
Sos principiante no lo olviden
El siguiente listado carga una base de access 2000 o una base de access 97 desde un combo.
Private Sub Form_Load()
' Todas estas conexiones y asignaciones se pueden hacer
' (y se suele hacer) en tiempo de diseño
'
' Esta conexión se hará en el evento Combo1_Click
'
' Asignar los valores al Combo:
With Combo1
.Clear
.AddItem "Base de datos Access 2000 (alum.mdb)"
.AddItem "Base de datos Access 97 (db97.mdb)"
' Por defecto será la base de Access 2000
' (esto producirá un evento en el Combo1, ver: Combo1_Click)
.ListIndex = 0
End With
' Conectar manualmente los Text1 al recordset
' (esto también se suele hacer en tiempo de diseño)
Dim i As Long
' Asignar el control data
For i = 0 To 2
Set Text1(i).DataSource = Adodc1
Next
' Asiganr los nombres de los campos
Text1(0).DataField = "Nombre"
Text1(1).DataField = "Apellidos"
Text1(2).DataField = "fotografía"
End Sub
Mi problema es que tengo un campo llamado Fotografia (imagen en la base de datos), el listado anterior no funciona para mi campo fotografia, solo me muestra simbolos raros. Por lo que se ve el campo fotografia esta definido en una matriz tipo Long,
Como puedo hacer para que me muestre la imagen.???
Sos principiante no lo olviden
El siguiente listado carga una base de access 2000 o una base de access 97 desde un combo.
Private Sub Form_Load()
' Todas estas conexiones y asignaciones se pueden hacer
' (y se suele hacer) en tiempo de diseño
'
' Esta conexión se hará en el evento Combo1_Click
'
' Asignar los valores al Combo:
With Combo1
.Clear
.AddItem "Base de datos Access 2000 (alum.mdb)"
.AddItem "Base de datos Access 97 (db97.mdb)"
' Por defecto será la base de Access 2000
' (esto producirá un evento en el Combo1, ver: Combo1_Click)
.ListIndex = 0
End With
' Conectar manualmente los Text1 al recordset
' (esto también se suele hacer en tiempo de diseño)
Dim i As Long
' Asignar el control data
For i = 0 To 2
Set Text1(i).DataSource = Adodc1
Next
' Asiganr los nombres de los campos
Text1(0).DataField = "Nombre"
Text1(1).DataField = "Apellidos"
Text1(2).DataField = "fotografía"
End Sub
Mi problema es que tengo un campo llamado Fotografia (imagen en la base de datos), el listado anterior no funciona para mi campo fotografia, solo me muestra simbolos raros. Por lo que se ve el campo fotografia esta definido en una matriz tipo Long,
Como puedo hacer para que me muestre la imagen.???