componente TBackup

[flavioavilela]

alguém que já usou esse componente pode me dar uma luz???

seguinte, eu configuro ele beleza, criei a telinha pra usar, pra escolher onde salvar e tudo mais... quando eu mando ele salvar algum arquivo ou outro banco de dados que não seja o que está sendo usado no momento, ele salva perfeito, mas se eu mando salvar o banco de dados daquele momento ele não salva, da erro... eu imagino que seje porque o banco está aberto né, mas, se eu quiser fazer o backup, obvio que é desse banco q está aberto... então, como faço para realizar esse backup? alguém pode dar uma luz ai???

Editado Novembro 23, 2009 por flavioavilela

[Alberto Mota]

Olha, pelo conceito de front_end e back_end o banco tem que estar fechado sim,

ou seja, a base de dados que são as tabelas propriamente ditas são o back_end.

Precisam estar fechadas para um backup seguro

No seu front_end é que deve fazer o seu backup.

[Jhonas]

se eu mando salvar o banco de dados daquele momento ele não salva, da erro... eu imagino que seje porque o banco está aberto né, mas, se eu quiser fazer o backup, obvio que é desse banco q está aberto... então, como faço para realizar esse backup?

Como o colega Alberto Mota já explicou, todas as tabelas devem ser fechadas

Se estiver usando o interbase ficaria assim:

FMenu.IBDatabase1.ForceClose;
     FMenu.IBDatabase1.CloseDataSets;
     FMenu.IBDatabase1.Close;
     FMenu.IBTransaction1.Active := false;

abraço

[flavioavilela]

certo, se pelo que entendi, todas as tabelas (querys) deverão estar fechadas, no meu caso eu utilizo sql server, como ficaria?

[Jhonas]

certo, se pelo que entendi, todas as tabelas (querys) deverão estar fechadas, no meu caso eu utilizo sql server, como ficaria?

que componentes voce está usando para conexão e acesso as tabelas ?

[flavioavilela]

utilizo ADO e o banco de dados sql server

[Jhonas]

certo, se pelo que entendi, todas as tabelas (querys) deverão estar fechadas, no meu caso eu utilizo sql server, como ficaria?

Fechando somente a conexão já é suficiente, mas se quiser pode fechar as tabelas e as queries antes.

ADOConnection1.Connected := false;

ADOTable1.Active := false;
ADOTable1.TableDirect := false;

ADOQuery1.Active := false;

abraço

[flavioavilela]

fechei somente a conexão... não deu certo e qualquer outro arquivo faz o backup numa boa... que zica é essa eim rsrs???

[Jhonas]

fechei somente a conexão... não deu certo e qualquer outro arquivo faz o backup numa boa... que zica é essa eim rsrs???

se eu mando salvar o banco de dados daquele momento ele não salva, da erro..

Se voce colocasse o erro que aparece no começo, quem sabe já teria uma solução para o problema

abraço

[flavioavilela]

aparece a menagem de erro: esse arquivo está sendo usado por outro processo...

[Jhonas]

aparece a menagem de erro: esse arquivo está sendo usado por outro processo...

Esse erro ocorre quando em alguma outra parte do seu programa a conexão estiver sendo exigida por alguma tabela aberta

Tente usar esta procedure, antes de efetuar o backup

procedure TForm1.desconectar;
var
    i: shortInt;
begin
    for i := 0 to componentCount - 1 do begin
        if ( components[i] is TCustomConnection ) then
           ( components[i] as TCustomConnection ).Close;
    end;
end;

abraço

[flavioavilela]

fiz o procedimento e coloquei antes do backup e da o mesmo erro: Cannot open file "arquivo desejado". O arquivo já está sendo usado por outro processo...

[Jhonas]

erro: Cannot open file "arquivo desejado"

Acho que voce deve fazer uma varredura em todo o seu projeto ... esse erro é: Não pode abrir arquivo

significa que existe claramente uma tentativa de abrir alguma tabela depois que ela foi fechada.

Como eu disse, faço backup em meus sistemas, mas utilizo o interbase e este comando funciona perfeitamente

FMenu.IBDatabase1.ForceClose;

FMenu.IBDatabase1.CloseDataSets;

FMenu.IBDatabase1.Close;

FMenu.IBTransaction1.Active := false;

Veja que estes comandos estão forçando o fechamento de todas as tabelas do banco de dados

A ideia é a mesma para o ADO

abraço

[flavioavilela]

cara, no ado não tem nada parecido com isso... tentei todas as propriedades que me da o adoconnection... tem sim um DataSets.Close, só que ai ele pede um valor inteiro, como se fosse um número ai não entendi... tem .close, .connected:= false ou :=true...

[Jhonas]

Faça um teste bem simples ... feche todas as tabelas do seu projeto, e depois tente fazer o backup e veja o que acontece.

abraço

[flavioavilela]

ok, farei esse teste e retornarei com alguma resposta....

[flavioavilela]

fiz o teste... fechei todas as tabelas com o seguinte código

var cont: integer;
begin
  for Cont := 0 to dm.ComponentCount - 1 do
    begin
      if Components[Cont] is TADOQuery then
        TADOQuery(Components[Cont]).close;
    end;

e fechei também o adoconnection e deu a mensagem de erro: List index out of bounds (22)....

[Jhonas]

e fechei também o adoconnection e deu a mensagem de erro: List index out of bounds (22)....

Lista de indice fora do escopo

Se o erro foi nesta linha , use o debuge o delphi para saber qual o valor de dm.ComponentCount

for Cont := 0 to dm.ComponentCount - 1 do

depois tente assim, e veja qual o valor de ComponentCount

for Cont := 0 to ComponentCount - 1 do

abraço

[flavioavilela]

bom, a mensagem do list index parou, eu coloquei assim:

var cont: integer;
begin
  for Cont := 0 to dm.ComponentCount - 1 do
    begin
      if dm.Components[Cont] is TADOQuery then
        TADOQuery(dm.Components[Cont]).Active:= false;
    end;

mas, mesmo assim, continua dando o erro falando que o arquivo do bd está sendo utilizado por outro processo...

[Jhonas]

mas, mesmo assim, continua dando o erro falando que o arquivo do bd está sendo utilizado por outro processo...

Só daria esse erro , se o seu aplicativo estivesse aberto 2 vezes

Veja neste link ...

Componente compatível com Delphi 3, 4 e 5, adiciona facilmente capacidades de backup e restauração para sua aplicação, com os seguintes recursos: compressão de dados, backup e restauração completos ou incrementais, Delphi nativo: nenhuma DLL é necessária, e outros. Executável e código fonte inclusos

http://www.ec-software.com/delphi/backfile.zip

abraço

[flavioavilela]

só uma questão... tipo, eu quero continuar usando esse mesmo componente, pois já criei o layout da janela e pra outros backups está perfeito... só queria uma luz... tipo, o que mais pode acontecer para que o bd possa estar aberto no momento do backup, sendo que eu estou fechando todas as tabelas e até o adoconnection???

[Jhonas]

só uma questão... tipo, eu quero continuar usando esse mesmo componente, pois já criei o layout da janela e pra outros backups está perfeito... só queria uma luz... tipo, o que mais pode acontecer para que o bd possa estar aberto no momento do backup, sendo que eu estou fechando todas as tabelas e até o adoconnection???

Não sei como está o seu projeto, mas tambem utilizo esse componente e funciona perfeitamente quando fecho a conexão com o banco de dados para fazer o backup.

OBS: Me lembrei de uma coisa ... na rotina ( código ) que realiza o backup, coloque os comandos para fechar a conexão com o banco dentro dele, antes da rotina de inicializar o backup ... precisei fazer essa mudança no código para não ficar dando erro.

abraço

[flavioavilela]

cara, fui lá no código do componente, coloquei o comando pra fechar as conexoes e tal, não funcionou... to fudido... vou ter que desenterra uma cabeça de paca que ta enterrada aqui viu rsrsrs...

[Jhonas]

cara, fui lá no código do componente, coloquei o comando pra fechar as conexoes e tal, não funcionou... to fudido... vou ter que desenterra uma cabeça de paca que ta enterrada aqui viu rsrsrs...

Use o debuge do delphi para tentar achar onde está o problema, ou procure por todas as conexões em seu projeto, voce deve ter deixado alguma ativada em tempo de design

abraço