Insertar una imagen en aplicación visual basic

[Jess_Kapria]

Hola , pues estoy haciendo una aplicación para un videoclub , bueno os pongo un poco en situación:

Estoy haciendo un modelo desconectado trabajando con una bdd (al trabajar con un modelo desconectado, guardo la información de la bdd en un DataSet).

Bueno pues estoy mostrando la información de una tabla de la bdd en unas textbox, pues vale , pues quiero mostrar una imagen.

Tengo dos preguntas , la bdd la estoy haciendo en Access pero este no es diseñador de bdd que utilizo por lo que estoy un poco pez. En el campo de la tabla que tengo la caratula como tengo que poner ahí que es una imagen

Me explico, en MySQL sé como hacerlo se pone:

../imagenes/imagen.jpg

He probado a ponerlo eso así en el Access y sólo me saca la información en el textbox eso que he puesto (lógico porque le he dicho que me muestre la cadena de ese campo)

No sé si es porque lo he puesto mal en la bdd o tengo que poner algo en la aplicación.

Ah, he declarado el campo caratula como texto , no tendría que modificar ese campo Es que no sé que tendría que poner en Access .

Bueno si me pueden ayudar gracias XD

[sorcerer]

por lo que entendi queres poner una imagen en un text box, eso es imposible.
lo que haces es poner un RICH TEXT BOX (buscalo en los componentes).
yo hice algo parecido con un chat y smiles asi que te dejo el codigo...

Código [Seleccionar] Expandir

Do While i <= Len(Text1.Text) \'un while que pasa cada dos letras
   If Mid(Text1.Text, i, 2) = \":)\" Then \'si esas dos letras son \":)\"
     Text1.SelStart = i - 1
     Text1.SelLength = 2 \'seleccionalas
     Text1.OLEObjects.Add , , App.Path & \"/imgs/smile.bmp\" \'pone la imagen (asi como las letras estan seleccionadas las cambia
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":(\" Then \'lo mismo que antes
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/sad.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":D\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/smile2.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \";)\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/tic.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \"`(\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/cry.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":$\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/Oops.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":S\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/S.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \"B)\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/glasses.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":P\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/ll.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    i = i + 1
Loop

asi agregas imagenes....

[Jess_Kapria]

Ya me funciona correctamente , como no estaba el foro no lo había podido postear, gracias de todas formas.

Al final no he utilizado nada del código, pero gracias por ponerlo. He utilizado un picturebox para poder cargar las imagenes.

XD