Visual Basic - Ayuda urgente !!

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda urgente !!

Publicado por Leonel (4 intervenciones) el 06/01/2004 01:18:04
Hola:

Tengo una tabla en Access 2000 llamada LOGO (log_codigo, log_imagen) en la cual tengo graficos del tipo objetos OLE .gif
Cada uno tiene su codigo correspondiente. Ahora, quisiera levantarlos por medio de una funcion que obtiene el logo pasandole el codigo de logo (devuelve un tipo object). Esta funcion se la asigno a un picture pero el problema que me aparece es que NO COINCIDEN LOS TIPOS.
La funcion es esta

Public Function GetLogo(ByVal pCodLogo As Integer) As Object
Dim rs As New ADODB.Recordset
Dim Consulta As String

Consulta = "SELECT log_imagen"
Consulta = Consulta & " FROM logo"

Consulta = Consulta & " WHERE log_codigo=" & pCodLogo

rs.Open Consulta, gCon, adOpenDynamic, adLockBatchOptimistic

If Not rs.EOF Then

Set GetLogo = rs.Fields!log_imagen

End If

rs.Close
Set rs = Nothing

End Function

y la asignacion es esta

Set barEstado.Panels(8).Picture = GetLogo(GetCodLogo(CodEquipo))

por favor el que me pueda ayudar estaré agradecido.
gracias
Leonel
pd: uso ado en visual
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda urgente !!

Publicado por Cecilia Colalongo (3116 intervenciones) el 06/01/2004 11:46:20
Las imágenes guardadas en una BD no son objetos, para hacer eso tendrías que leerlas primero, guardarlas en un archivo temporal y luego pasarlas con LoadPicture o sin pasar por el disco hacerlo por memoria pero es más largo.

Fijate en http://www.mvps.org/vexpert/articles/adoImages.htm que hay una función para eso.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar