BARRA DE PROGRESSO ENQUANTO EXECUTA CONSULTA SQL

MARCIOPEREIRA 15/11/2010 13:59:48
#357485
Boa Tarde Pessoal.

Estou criando um programa em VB com SQL 2K para restaurar bancos de dados, ele está pronto e utilizado uma conexão ado ao banco, porém gostaria de colocar uma barra de progresso enquanto ele executa o comando de restauração para o usuário acompnhar, visto que tem bancos demotados e se deixar somente o mouse pointer 13 o usuário vai achar que travou.
Será que existe a possibilidade de criar uma barra de progresso desta situação?
Grato!
.
TECLA 15/11/2010 20:48:53
#357533
Utilize uma animação estilo VBMania.

Exemplo:


  • Link
    http://vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8335
    •
    MARCIOPEREIRA 25/11/2010 22:53:17
    #358254
    Entao, só estou com a dificuldade de saber em qual momento eu chamo o Form com animação, pois, dentro do Font quando eu chamo ele, como consigo voltar para alinha seguinte para continuar rodando o comando?
    Exemplo.

    Aqui eu chamo a nimação
    FRM_ABERTURA.SHOW (1)

    Depois como eu consigo deixar ela rodando e volto para a próxima linha que executa o comando?

    sql1 = Empty

    sql1 = [Ô] RESTORE DATABASE [Ô] & txt_Nome_Banco & [Ô] [Ô]
    sql1 = sql1 & [Ô] FROM DISK = [ô][Ô] & txt_Backup & [Ô][ô] [Ô]
    sql1 = sql1 & [Ô] With Move [ô][Ô] & FILELISTONLY & [Ô][ô] TO [ô][Ô] & Dir1.Path & [Ô]\[Ô] & txt_Nome_Banco & [Ô].mdf[ô],[Ô]
    sql1 = sql1 & [Ô] Move [ô][Ô] & FILELISTONLY2 & [Ô][ô] TO [ô][Ô] & Dir1.Path & [Ô]\[Ô] & txt_Nome_Banco & [Ô].LDF[ô][Ô]

    With rsTemp
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    .CacheSize = 50
    .Source = sql1
    Call Conecta_Banco
    .ActiveConnection = cConn.ConnectionString
    Call Fecha_Banco
    .Open

    End With
    LUIZCOMINO 26/11/2010 08:16:17
    #358256     Resposta escolhida
    Bom amigo se fosse a progressbar seria assim:

    ---------------------------------------------------------
    sql1 = Empty

    sql1 = [Ô] RESTORE DATABASE [Ô] & txt_Nome_Banco & [Ô] [Ô]
    sql1 = sql1 & [Ô] FROM DISK = [ô][Ô] & txt_Backup & [Ô][ô] [Ô]
    sql1 = sql1 & [Ô] With Move [ô][Ô] & FILELISTONLY & [Ô][ô] TO [ô][Ô] & Dir1.Path & [Ô]\[Ô] & txt_Nome_Banco & [Ô].mdf[ô],[Ô]
    sql1 = sql1 & [Ô] Move [ô][Ô] & FILELISTONLY2 & [Ô][ô] TO [ô][Ô] & Dir1.Path & [Ô]\[Ô] & txt_Nome_Banco & [Ô].LDF[ô][Ô]



    With rsTemp
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    .CacheSize = 50
    .Source = sql1
    Call Conecta_Banco
    .ActiveConnection = cConn.ConnectionString
    Call Fecha_Banco
    .Open
    progressbar.value= .recordcount
    .close
    End With

    Do While(rs.eof)
    CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockPessimistic
    .CacheSize = 50
    .Source = sql1
    Call Conecta_Banco
    .ActiveConnection = cConn.ConnectionString
    Call Fecha_Banco
    .Open
    progressbar.value= . progressbar.value +1
    doevents
    .movenext
    End With
    loop
    MARCIOPEREIRA 27/11/2010 21:27:15
    #358352
    Vou utilizar o progressbar mesmo.
    Obrigado LUIZCOMINO.
    Tópico encerrado , respostas não são mais permitidas
    Voltar