Como le aplico progressbar a mi funcion?

[franko1809]

El codigo es asi

Código:

Private Sub cmdBackup_Click()
On Error GoTo ErrorBackup
   'Cerramos la conexion
     'If dbConex.State = 1 Then dbConex.Close 'Esta linea cierra la conexion del modulo
     'Copiamos la base de datos en la carpeta backup
     Screen.MousePointer = 1
     MsgBox CopiaBDPwd(App.Path & "\SYSTEM_DB_01.mdb", App.Path & "\BackUp\Copia de SYSTEM_DB_01.mdb", 45568392), vbInformation, "Information"
     'Volvemos a abrir la conexion
     'Main 'Esta linea vuelve a abrir la conexion del modulo
Exit Sub

ErrorBackup:
   MsgBox "No se pudo crear la copia de seguridad", vbCritical, "Debe cerrar todas las ventanas"
End Sub

[David]

Depende mucho, al parecer la función que realiza la acción principal es CopiaBDPwd por lo que en esa función deberías implementar el código que vaya actualizando la barra de progreso, no sé qué tiene esa función, si un bucle, o tan solo copia el archivo, habría que revisarlo.

[franko1809]

Bueno la funcion va asi, como podria aplicarle progressbar?

Código:

Public Function CopiaBDPwd(sOrigen As String, sDestino As String, sPwd As String) As String
    ' Base de datos con contraseña
    ' marcar referencia: Microsof Jet and Replication objects 2.6 Library
    Dim je As JRO.JetEngine
    Set je = New JRO.JetEngine
    
    If Len(Dir$(sDestino)) Then Kill sDestino
    je.CompactDatabase "Data Source=" & sOrigen & ";" & _
        "Jet OLEDB:Database Password=" & sPwd, _
        "Data Source=" & sDestino & ";" & _
        "Jet OLEDB:Database Password=" & sPwd
    
    CopiaBDPwd = "El proceso se completo satisfactoriamente en '" & sDestino & "'."
End Function

[Avellaneda]

Iniciado por franko1809

El codigo es asi

Código:

Private Sub cmdBackup_Click()
On Error GoTo ErrorBackup
   'Cerramos la conexion
     'If dbConex.State = 1 Then dbConex.Close 'Esta linea cierra la conexion del modulo
     'Copiamos la base de datos en la carpeta backup
     Screen.MousePointer = 1
     MsgBox CopiaBDPwd(App.Path & "\SYSTEM_DB_01.mdb", App.Path & "\BackUp\Copia de SYSTEM_DB_01.mdb", 45568392), vbInformation, "Information"
     'Volvemos a abrir la conexion
     'Main 'Esta linea vuelve a abrir la conexion del modulo
Exit Sub

ErrorBackup:
   MsgBox "No se pudo crear la copia de seguridad", vbCritical, "Debe cerrar todas las ventanas"
End Sub

Hola,
para poder aplicar el control ProgressBar a un proceso, necesitas saber el número de elementos que se van a procesar (p.e. en un bucle For o en la lectura de un recordset), pero en un Copy nunca sabes lo que va a tardar, pues entre otras cosas, depende de la velocidad de la máquina donde se ejecute.

Si el archivo a copiar no es excesivamente grande, con que le pongas el reloj de arena es suficiente (por cierto, que no es el MousePointer 1, sino el 11, el 1 es la flecha, constante = vbArrow y el 11 es el reloj de arena = vbHourGlass) y si va a sobrepasar un tiempo de espera considerable, lo puedes hacer con la API SHFileOperation en la que aparece la típica ventana de Copiando... Quedan xx segundos"

Ah! y si utilizas la primera opción, no olvides volver a poner el puntero del mouse a su valor original. Screen.MousePointer = vbDefault

[franko1809]

Iniciado por Avellaneda

si va a sobrepasar un tiempo de espera considerable, lo puedes hacer con la API SHFileOperation en la que aparece la típica ventana de Copiando... Quedan xx segundos"

Parece que tendre que utilizar la api, ahora la bd no pesa mucho pero con el tiempo pesara mas, gracias por la info jeje era 11 en vez 1 como la bd se copia rapido no me daba cuenta