Ayudita con este programa

[ThonyMaster]

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??

[Shell Root]

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!!!

[ThonyMaster]

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

[seba123neo]

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.

[ThonyMaster]

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

Código (vb) [Seleccionar] Expandir

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!!!!???

[XcryptOR]

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

Código (vb) [Seleccionar] Expandir


Image1.Picture = LoadPicture(!Imgpath)



y listo cargarias en el picture la imagen de la consulta

[ThonyMaster]

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

Código (vb) [Seleccionar] Expandir

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

[cassiani]

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

Código [Seleccionar] Expandir

Image1.Picture = LoadPicture(App.Path & "\" & sPath)

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

[ThonyMaster]

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!!

[ThonyMaster]

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

Código (vb) [Seleccionar] Expandir

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