BACKUP FIREBIRD
olá pessoal, pequei um material aqui no site pra efetuar backup.. está dando um erro e nao consigo corrigir..
[txt-color=#e80000]error exibido
[b]Path not found[/txt-color][/b]
Function Backup()
Dim Bak As String, Bak1 As String, DT As String
Dim DIA As String, Mes As String, Ano As String
Dim BC As String
Dim BC1 As String
Dim Caminho As String
DIA = Left(Date, 2)
Mes = Mid(Date, 4, 2)
Ano = Right(Date, 4)
DT = DIA & Mes & Ano
BC = [Ô].fbk[Ô]
BC1 = [Ô].log[Ô]
Bak = DT & BC
Bak1 = DT & BC1
DT = DIA & [Ô]-[Ô] & Mes & [Ô]-[Ô] & Ano
If Caminho <> [Ô][Ô] Then
If MsgBox([Ô]Já existe um Back-Up da base de dados nesta data[Ô] & Chr(10) & Chr(10) & [Ô]Deseja subscrever o arquivo ?[Ô], vbYesNo + vbQuestion + vbDefaultButton2, [Ô]Atenção[Ô]) = vbNo Then
MsgBox [Ô]Back-Up Cancelado[Ô], vbInformation, [Ô]Aviso do sistema[Ô]
Exit Function
End If
Else
If MsgBox([Ô]Confirma Execução do Back-Up do Dia [Ô] & DT & [Ô] ?[Ô], vbYesNo + vbQuestion + vbDefaultButton2, [Ô]Atençao[Ô]) = vbNo Then
Exit Function
End If
End If
Sleep (200)
Shell ([Ô]C:\Arquivos de Programas\Firebird\Firebird_2_1\bin\gbak.exe -v -t -user SYSDBA -password masterkey -y C:\Backup\[Ô] & Bak1 & [Ô] C:\Backup\Backup.fdb C:\Backup\[Ô] & Bak)
Dim Texto As String
Dim VL As Long
Dim Arq As String
Dim ArquivoDados As String
Sleep (100)
Arq = Bak1
Caminho = ([Ô]C:\Backup[Ô])
ArquivoDados = Caminho & IIf(Right$(Caminho, 1) = [Ô]\[Ô], [Ô][Ô], [Ô]\[Ô]) & Arq
[txt-color=#e80000]Open ArquivoDados For Input As #1[/txt-color]
Do While Not EOF(1)
Line Input #1, Texto
Me.List1.AddItem Texto
List1.ListIndex = List1.ListIndex + 1
Me.List1.Refresh
Loop
Close #1
MsgBox [Ô]Back-Up realizado com sucesso[Ô], vbInformation, [Ô]Aviso do sistema[Ô]
End Function
[txt-color=#e80000]error exibido
[b]Path not found[/txt-color][/b]
Function Backup()
Dim Bak As String, Bak1 As String, DT As String
Dim DIA As String, Mes As String, Ano As String
Dim BC As String
Dim BC1 As String
Dim Caminho As String
DIA = Left(Date, 2)
Mes = Mid(Date, 4, 2)
Ano = Right(Date, 4)
DT = DIA & Mes & Ano
BC = [Ô].fbk[Ô]
BC1 = [Ô].log[Ô]
Bak = DT & BC
Bak1 = DT & BC1
DT = DIA & [Ô]-[Ô] & Mes & [Ô]-[Ô] & Ano
If Caminho <> [Ô][Ô] Then
If MsgBox([Ô]Já existe um Back-Up da base de dados nesta data[Ô] & Chr(10) & Chr(10) & [Ô]Deseja subscrever o arquivo ?[Ô], vbYesNo + vbQuestion + vbDefaultButton2, [Ô]Atenção[Ô]) = vbNo Then
MsgBox [Ô]Back-Up Cancelado[Ô], vbInformation, [Ô]Aviso do sistema[Ô]
Exit Function
End If
Else
If MsgBox([Ô]Confirma Execução do Back-Up do Dia [Ô] & DT & [Ô] ?[Ô], vbYesNo + vbQuestion + vbDefaultButton2, [Ô]Atençao[Ô]) = vbNo Then
Exit Function
End If
End If
Sleep (200)
Shell ([Ô]C:\Arquivos de Programas\Firebird\Firebird_2_1\bin\gbak.exe -v -t -user SYSDBA -password masterkey -y C:\Backup\[Ô] & Bak1 & [Ô] C:\Backup\Backup.fdb C:\Backup\[Ô] & Bak)
Dim Texto As String
Dim VL As Long
Dim Arq As String
Dim ArquivoDados As String
Sleep (100)
Arq = Bak1
Caminho = ([Ô]C:\Backup[Ô])
ArquivoDados = Caminho & IIf(Right$(Caminho, 1) = [Ô]\[Ô], [Ô][Ô], [Ô]\[Ô]) & Arq
[txt-color=#e80000]Open ArquivoDados For Input As #1[/txt-color]
Do While Not EOF(1)
Line Input #1, Texto
Me.List1.AddItem Texto
List1.ListIndex = List1.ListIndex + 1
Me.List1.Refresh
Loop
Close #1
MsgBox [Ô]Back-Up realizado com sucesso[Ô], vbInformation, [Ô]Aviso do sistema[Ô]
End Function
Qual é a linha de código selecionada no ato do erro?
olá tecla, blz.... a linha selecionada é essa aqui... -->> Open ArquivoDados For Input As #1
[txt-size=2]Path not found[/txt-size]
[txt-size=2]Path not found[/txt-size]
olá pessoal, alguem por favor, saberia informar como posso resolver esse erro... nessa linha do código...
Path not found é caminho não encontrado, verifica se a pasta a qual você está mandando salvar o arquivo existe ok
olá TRSOFTWARES, erra isso mesmo.. não havia colocar a pasta backup.. mas mesmo assim não cria o backup..
cria um log de erro... veja abaixo..
[txt-color=#e80000]gbak: ERROR:I/O error for file [Ô]C:\BACKUP\BACKUP.FDB[Ô]
gbak: ERROR: Error while trying to open file
gbak: ERROR: O sistema não pode encontrar o arquivo especificado.
gbak:Exiting before completion due to errors[/txt-color]
[txt-size=5]Obs: dessa vez não exibi nem um erro...[/txt-size]
quero indicar o caminho do banco dados...
cria um log de erro... veja abaixo..
[txt-color=#e80000]gbak: ERROR:I/O error for file [Ô]C:\BACKUP\BACKUP.FDB[Ô]
gbak: ERROR: Error while trying to open file
gbak: ERROR: O sistema não pode encontrar o arquivo especificado.
gbak:Exiting before completion due to errors[/txt-color]
[txt-size=5]Obs: dessa vez não exibi nem um erro...[/txt-size]
quero indicar o caminho do banco dados...
olá pessoal, alguem que usa backup em firebird,...
pessoal, já procurei aqui no site alguma forma de criar backup em firebird.. até achei alguns exemplo mas não conseguir fazer funcionar..
veja se os caminhos citados no código existem
[txt-color=#e80000]C:\Arquivos de Programas\Firebird\Firebird_2_1\bin\gbak.exe[/txt-color] -v -t -user SYSDBA -password masterkey -y [txt-color=#e80000]C:\Backup\[Ô][/txt-color] & Bak1 & [Ô] [txt-color=#e80000]C:\Backup\Backup.fdb[/txt-color] C:\Backup\[Ô] & Bak
veja se estes caminhos estão corretos ou seja, se eles existem no seu pc
[txt-color=#e80000]C:\Arquivos de Programas\Firebird\Firebird_2_1\bin\gbak.exe[/txt-color] -v -t -user SYSDBA -password masterkey -y [txt-color=#e80000]C:\Backup\[Ô][/txt-color] & Bak1 & [Ô] [txt-color=#e80000]C:\Backup\Backup.fdb[/txt-color] C:\Backup\[Ô] & Bak
veja se estes caminhos estão corretos ou seja, se eles existem no seu pc
Olá MARCELO-TREZE, blz mudei dessa forma e não deu mais o erro.. seria isso mesmo que deveria fazer.... é que não havia entendido a rotina..
Shell ([Ô]C:\Arquivos de Programas\Firebird\Firebird_2_1\bin\gbak.exe -v -t -user SYSDBA -password masterkey -y C:\SysControl\Backup\[Ô] & Bak1 & [Ô] C:\SysControl\Banco\Dados.fdb C:\SysControl\Banco\Dados.fdb[Ô] & Bak)
Shell ([Ô]C:\Arquivos de Programas\Firebird\Firebird_2_1\bin\gbak.exe -v -t -user SYSDBA -password masterkey -y C:\SysControl\Backup\[Ô] & Bak1 & [Ô] C:\SysControl\Banco\Dados.fdb C:\SysControl\Banco\Dados.fdb[Ô] & Bak)
Então funcionou colega? se sim encerre o tópico.
Tópico encerrado , respostas não são mais permitidas