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