AJUDA COM CLASSE

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM CLASSE

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#417547 - 16/01/2013 21:01:40

CARINHENA
SOROCABA
Cadast. em:Junho/2004


Galera, tudo bem?

Tenho a seguinte classe:

Imports System.IO


Public Class Backup

    Public Shared Function FazerBackup_(ByVal Caminho_Banco As String, ByVal IP_Servidor As String, ByVal Senha As String) As Boolean

        Dim resultado As Boolean = False
        Dim Arquivo As FileInfo = New FileInfo(Caminho_Banco)
        Dim CaminhoBackup As String = Arquivo.DirectoryName + "\Backup\backup.fdk"

        Dim backupSvc As FbBackup = New FbBackup
        With backupSvc
            .ConnectionString = String.Format("User=SYSDBA;Password={0};Database={1};DataSource={2};Port=3050;Dialect=3;",
                                      Senha,
                                      Caminho_Banco,
                                      IP_Servidor.Trim)
            .Verbose = True

            Try
                If File.Exists(CaminhoBackup) Then File.Delete(CaminhoBackup)
            Catch ex As Exception
            End Try

            Try
                .BackupFiles.Add(New FbBackupFile(CaminhoBackup, -1))
                AddHandler backupSvc.ServiceOutput, AddressOf ServiceOutput
                .Execute()
                MsgBox(String.Format("Backup do banco de Dados efetuado com Sucesso!{0}Arquivo Criado em: {1}", vbCrLf, CaminhoBackup), MsgBoxStyle.Information)
            Catch ex As Exception
                LogErro.GerarLogErro(ex, "Backup_Fazer_Backup")
                MsgBox("Houve um erro para fazer o Backup, um log foi criado para esse erro!", MsgBoxStyle.Critical, "Erro!")
            Finally
                backupSvc = Nothing
            End Try
        End With


        Return resultado

    End Function

    Private Shared Sub ServiceOutput(ByVal sender As Object, ByVal e As ServiceOutputEventArgs)
        Application.DoEvents()
            form.Mensagem.text= e.Message.ToString
         End Sub

End Class


O backup é feito tudo certo, mas, não consigo passar o "log em tempo real do evento" não aparece no "textbox", no evento ServiceOutput, como deveria.

Alguém tem uma dica do porque?
Se eu faço diretamente no form (e não como classe), funciona :/

Carinhena

A melhor forma de aprender e ensinando!


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por CARINHENA em 15/04/2014 16:20:15