Foro de elhacker.net

panas estoy haciendo un programita de ventas sencillo esoty utilizando el control data y db grid para guardadr los registros de los carros existentes entonces necesito saber como hago para q cuando yo seleccione un carro se ponga en picture la foto del carro.
me explico mejor alguien qiere comprar un carro me dice el nombre yo lo pongo en sistema le doy a buscar y me sale la foto del carro en un picture nos e si me entienden??

Ps, mén, puedes hacer un campo en la base de datos, donde se guarde la ruta de la imagen, y que al buscar el nombre del carro, se iguale el picture con la ruta y voala se muestra la imagen del carro que has buscado por el nombre.

Espero que te sirva.

Saludos!!!

pana soy nuevo asi que si podrias explicarme mas o menos el code!! como seria??????????? gracias

o tambien podes usar el campo de tipo image de SQL Server para guardar los bytes de la imagen y despues recuperar la iamgen con la clase Stream de ADO, yo lo he realizado asi, pero claro la base se te va a ir agrandando de tamaño...

saludos.

no me voy a complicar mucho lo he echo de esta manera es largo pero weno!!!

 Dim carro As String
 
 carro = Val(Text1)
 
 If carro = Silverado Then
 Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
 End If
 
 If carro = Aveo Then
 Image1.Picture = LoadPicture(App.Path & "\Aveo.bmp")
 End If
 

ahora esto no me llama las imagenes bien xq!!!!!????? solo muestra una o la otra pero cuando escribo aveo no lo muestra o cuando escribo silverado solo muestra el aveo!!!!???

en el campo de la base de datos donde tienes la imagen puedes colocar el path de la imagen.

luego cuando hagas la consulta mediante el Recorset obtienes el valor del resgistro y lo pasas como parametro a LoadPicture.

es decir por ejemplo tienes en la Base de datos el campo ImgPath donde almacenas la ruta de la imagen, entonces quedaria asi despues de obterner los registros

Image1.Picture = LoadPicture(!Imgpath)
 

y listo cargarias en el picture la imagen de la consulta

okis gracias puse todas las imagenes en la misma carpeta donde esta el programa cosa de cuando yo le de al boton mostrar la llame asi

Private Sub Command2_Click()
 Dim carro As String
 
 carro = Val(Text1)
  If carro = Silverado Then
 Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
 End If
 
 
End Sub

pero ahora quiero saber como hacer para cuando yo selecciones otra q nosea la silverado la llame xq no lo hace solo llama esa osea como deberia ser el code!!! porfa

No le pases una cadena, pasale una variable con el path de la imagen:

Se supone que tienes un procedimiento donde extraes el path de la base de datos, luego guardas ese path el la variable.

nada no da igual alguno de ustedes me puede mandar su mail por un privado aver si me ayudan mas rapido estoy desesperado y eso me tiene trancado!!!
tambien nesecito agregar un modulo BAS y no se como se agrega esa cosa!!

como podria hcer esto con el select case!!??????

Private Sub Command2_Click()
  If Val(Text1) = Silverado Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado2 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado3 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado4 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado5 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado5 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado6 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado7 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado8 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado9 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado10 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado11 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
  If Val(Text1) = Silverado12 Then
  Image1.Picture = LoadPicture(App.Path & "\silverado.bmp")
  End If
 
End Sub

dim spath as string

Select case Val(Text1)
case Silverado
spath = "\silverado.bmp"
case Silverado2
spath = "\silverado.bmp"
case Silverado3
spath = "\silverado.bmp"
...........
end select

Image1.Picture = LoadPicture(App.Path &  spath)

Hola, pues yo veo algo raro en ese code Cobein, sino me equivoco la funcion VAL se utiliza y retorna valores numericos en ese caso para comparar el valor de la cadena en el Select Case no te va a funcionar ,  al menos a mi no me funciona

saludos

Y quien dijo que eran cadenas? yo no veo comillas en el code original....

esta utilizando un cuadro de texto text1 para ingreso de datos si ingresa la cadena sileverado la compararia con silverado, como tu dices no le veo comillas.

si usa la funcion val me imagino que silverado es una constante a la cual se le asigno un valor anteriormente.

Conclusion??? el code esta bien y todo esto sobra

Qué tipo de variables estás manejando???, para que validas, con el simple hecho de escribir algo en el TextBox puedes utilizar ese dato para mostrar la imagen
Creo que de esta forma te puede servir

Private Sub Command2_Click()
  Image1.Picture = LoadPicture("Dir\de\app\" & Val(Text1.Text))
End Sub

pana gracias pero ninguna me ha funcionado!!

haber creo que no entendiste, no tenes que hacer un if para cada foto de la base :¬¬.si tenes 400 registros tendrias que poner 400 if? de la forma que dije yo antes es la mejor, pero es mas dificil para vos por lo tanto te digo la mas facil...te tenes que crear un campo mas en la base de datos llamado por ejemplo "rutaimagen" ahi vas a guardar la ruta de la imagen de cada registro...pero no termina ahi...tenes que hacer para que el usuario pueda elegir su propia imagen y cuando guarde , que guarde la ruta de la imagen en el campo anterior que dije y listo...antes de cargar el formulario preguntas si el campo "rutaimagen" esta vacio...si esta vacio no mostras nada...y si no esta vacio cargas el picture con el valor del campo...es facil..ya si no entendes  :xD

saludos.