Visual Basic Foro

Buenas a todos!!!! pareciera ser un tema de "nunca acabar" esto, pero bueno. El tema es que siempre usé este code para guardar las imagenes en la BD y siempre me funcionó de mil maravillas (aclaro que me ayudaron ustedes acá), pero siempre usé como Base de datos a ACCESS; ahora pasé hace un tiempo a MySql y cuando quiero utilizar esta rutina para guardar una imagen, me tira un error que dice: "Información de columna de clave insuficiente para realizar la operación Update o Refresh". Aclaro por las dudas que la consulta se genera bien, el tipo de datos es LongBlob, etc.

El código es el siguiente.
Public Sub SAVE_IMAGE(Path_IMAGE As String, Tabla As String, ID_Campo As String, ID_VALUE As Long, Campo As String)
On Error GoTo ERR_HANDLER:
    Dim i As Integer
   
    If Len(Dir(Path_IMAGE)) = 0 Then
       MsgBox "Ruta de Archivo inválida", vbExclamation, "Aviso"
       Exit Sub
    End If
   
    Open Path_IMAGE For Binary Access Read As #1
    lngLengh = LOF(1)
    If lngLengh = 0 Then
       Close
       Exit Sub
    End If
    intChunks = lngLengh \ 1024
    intFragment = lngLengh Mod 1024
    ReDim arrImagen(intFragment)
    Get 1, , arrImagen()
    '''''''''
    OpenRECORDSET "SELECT " & Campo & " From " & Tabla & " Where " & ID_Campo & "=" & ID_VALUE, ESCRITURA, Rs
    Rs(Campo).AppendChunk arrImagen()
       
    ReDim arrImagen(1024)
    For i = 1 To intChunks
        Get 1, , arrImagen()
        Rs(Campo).AppendChunk arrImagen()
    Next i
    Rs.Update
    Rs.Close
    Close
ERR_HANDLER:
    If Err.Number = 0 Then
        Exit Sub
    Else
        MsgBox "Se ha producido un error (" & Err.Number & " -- " & Err.Description & ") Es posible que la imagen no se haya guardado", vbOKOnly + vbCritical, "Error"
        Close
        Err.Clear
    End If
End Sub
Existe alguna diferencia al guardar en MySql?

Buenas muchachos, tanto tiempo! Tengo un inconveniente grosero, y que creo fue totalmente mi responsabilidad. He estado "limpiando" mi pc, es decir, desinstalando algunos programas basura que tenía, y evidentemente, algunos de esos programitas, compartía o usaba librerías del vb6, con lo cual, al efectuar una desinstalación profunda de los mismos, ME HA DAÑADO EL AMADO VB6, al punto que al intentar ejecutarlo, me presenta este violento mensaje de error:
El componente ComDlg32.OCX o uno de sus archivos dependientes no está registrado correctamente bla bla bla
Hasta ahí perfecto, vuelvo a intentar registrar dicho ocx, lo hace con éxito, pero al abrir el VB6 nuevamente dicho error. Si ignoro el mensaje, me siguen apareciendo mensajes del tipo La variable del tipo Object o la variable de bloque With no está establecida unas 4 veces en total. Hasta ahí digamos que puedo seguir saltando esos mensajes hasta que "abre" por completo el vb.

El asunto es que como  utilizo dicho common dialog, entonces voy a  //Proyecto // Componentes// y agrego el common dialog, y al intentar agregar el control a un form, no solo que no me lo carga, sino que me tira un mensaje del tipo Clase no registrada. Buscando objeto con CLSID:


Intenté desinstalar el vb6, y NO ME APARECE en la lista de programas instalados, ergo, no lo puedo desinstalar. De igual forma ejecuto el instalador, y en mitad del proceso, me corta la instalación con un mensaje "Imposible continuar la instalación". Fin del asunto.

Alguno tendría idea de qué se trata esto?? puede ser un error en el registro al haber desinstalado algo previamente que compartía las librerías del vb6.?

Hola a todos! gracias por las sugerencia, pero Leandro tiene razón, implementé tal cual como lo dice:
en el usercontrol le agregué la propiedad "hwnd" y la rutina para ubicar el form es la siguiente
Public Sub UbicarFORM(ByVal hWndRelativeTo As Long, ByVal X As Long, ByVal y As Long)
    Dim rc As RECT, rcBt As RECT
    If m_fbt_hWnd > 0 Then Exit Sub
    With Me
         m_hWndRelativeTo = hWndRelativeTo
         m_fbt_hWnd = .hWnd
         GetWindowRect hWndRelativeTo, rc
         GetWindowRect m_fbt_hWnd, rcBt
         
         If (rc.Left * Screen.TwipsPerPixelX) + X + 45 > Screen.Width Then
            X = X - (((rc.Left * Screen.TwipsPerPixelX) + X + 45) - Screen.Width)
         End If
         
         If (rc.Top * Screen.TwipsPerPixelY) + y + .Height + 45 > Screen.Height Then
            y = y - (((rc.Top * Screen.TwipsPerPixelY) + y + .Height + 45) - Screen.Height)
         End If
         
         .Move (rc.Left * Screen.TwipsPerPixelX) + X, (rc.Top * Screen.TwipsPerPixelY) + y
         
         SetWindowPos .hWnd, HWND_TOPMOST, core_HOME.UcSCaption.Left, 0, 0, 0, _
                      SWP_NOACTIVATE Or _
                      SWP_NOMOVE Or _
                      SWP_NOSIZE Or _
                      SWP_SHOWWINDOW Or _
                      SWP_NOOWNERZORDER
   
    End With
End Sub
----
'LA LLAMO ASÍ
ubicarFORM UC.hWnd, UC.Width - UC.Width, UC.Height

Un millón de gracias!

Aquí http://www.flaticon.com/ encontrás lo que quieras, y con ayuda de esto http://icofx.ro/, podés crear tus propios íconos.

Saludos.

Genial Virgil. Lo estoy probando.

Buenas y santas señores! tanto tiempo. Alguien tendría un ejemplo de como generar un tooltip, como el siguiente:

Sobre todo me refieron a los bordes. Busqué y busqúe pero no encontré nada, o tal vez busqué mal, o tal vez no busqué y se los pregunto a ustedes.


Desde ya muchas gracias.