no en la base de datos :S
las guardas en una carpeta. en la base de datos tendrias el nombre que la identifique.
algo así: (sin usar base de datos)
Dim indice As Integer
Dim ruta As String
Private Sub Command1_Click()
If Not (indice = 1) Then
indice = indice - 1
ruta = App.Path & "\Productos\" & indice & ".jpg"
Image1.Picture = LoadPicture(ruta)
End If
End Sub
Private Sub Command2_Click()
If Not (indice = 4) Then
indice = indice + 1
ruta = App.Path & "\Productos\" & indice & ".jpg"
Image1.Picture = LoadPicture(ruta)
End If
End Sub
Private Sub Form_Load()
indice = 1
ruta = App.Path & "\Productos\" & indice & ".jpg"
Image1.Picture = LoadPicture(ruta)
End Sub
saludos
Autor
En línea
