Como fechar completamente um banco de dados?
Preciso terminar um formulário de restauração do Banco de Dados... e queria saber como fechar completamente o gdb por linha de código?
Alguém sabe algum comando que dê certo?
Alguém sabe algum comando que dê certo?
Wesley001
Curtidas 0
Respostas
Sistemald
09/08/2005
qaul meio de acesso vc usa?
ibx, mdo, DBexpress?
ibx, mdo, DBexpress?
GOSTEI 0
Wesley001
09/08/2005
IBExpress
GOSTEI 0
Adriano Santos
09/08/2005
Será q entendi?
SeuCompnenteIbDatabase.Connected := False;
SeuCompnenteIbDatabase.Connected := False;
GOSTEI 0
Wesley001
09/08/2005
Não... mesmo com o Conected ele fala que o banco de dados está em uso, mesmo fechando o IBDatabase e o IBTransaction...
Ele somente não consegue efetuar a restauração por esse problema...
Dei Drop Database também e ele não consegue dropar o Banco e nem as tabelas.
E com close all datasets também dá o mesmo erro
Ele somente não consegue efetuar a restauração por esse problema...
Dei Drop Database também e ele não consegue dropar o Banco e nem as tabelas.
E com close all datasets também dá o mesmo erro
GOSTEI 0
Adriano Santos
09/08/2005
Caramba cara, nunca vi isso [b:dc73791c78]wesley001[/b:dc73791c78].
Vc tah usando em rede? Já se certificou que todos saíram do DB?
Vc tah usando em rede? Já se certificou que todos saíram do DB?
GOSTEI 0
Wesley001
09/08/2005
Para ficar mais nítido vou passar o código:
//-----------------------------------------------------------
DMSisBaby.ibtSysBaby.Commit;
DMSisBaby.ibdbSisBaby.CloseDataSets;
DMSisBaby.ibdbSisBaby.Connected := False;
DMSisBaby.ibdbSisBaby.ForceClose;
DMSisBaby.ibdbSisBaby.Close;
DMSisBaby.ibtSysBaby.Active := False;
//É para fechar
ibrsSisBaby.DatabaseName.Add(edBDRestore.Text);
ibrsSisBaby.BackupFile.Clear;
ibrsSisBaby.BackupFile.Add(edBDBackup.Text);
try
sbRodape.Panels[0].Text := ´Restaurando o banco...Aguarde.´;
ibrsSisBaby.Active := true;
ibrsSisBaby.ServiceStart;
finally
ibrsSisBaby.Active := false;
messageBeep(0);
sbRodape.Panels[0].Text := ´Banco restaurado.´;
messagedlg(´O Banco será reconectado!´, mtInformation, [mbOK], 0);
dmSisBaby.ibdbSisBaby.Connected:=true;
DMSisBaby.ibdbSisBaby.Open;
//---------------------------------------------------------
Abraços a todos
//-----------------------------------------------------------
DMSisBaby.ibtSysBaby.Commit;
DMSisBaby.ibdbSisBaby.CloseDataSets;
DMSisBaby.ibdbSisBaby.Connected := False;
DMSisBaby.ibdbSisBaby.ForceClose;
DMSisBaby.ibdbSisBaby.Close;
DMSisBaby.ibtSysBaby.Active := False;
//É para fechar
ibrsSisBaby.DatabaseName.Add(edBDRestore.Text);
ibrsSisBaby.BackupFile.Clear;
ibrsSisBaby.BackupFile.Add(edBDBackup.Text);
try
sbRodape.Panels[0].Text := ´Restaurando o banco...Aguarde.´;
ibrsSisBaby.Active := true;
ibrsSisBaby.ServiceStart;
finally
ibrsSisBaby.Active := false;
messageBeep(0);
sbRodape.Panels[0].Text := ´Banco restaurado.´;
messagedlg(´O Banco será reconectado!´, mtInformation, [mbOK], 0);
dmSisBaby.ibdbSisBaby.Connected:=true;
DMSisBaby.ibdbSisBaby.Open;
//---------------------------------------------------------
Abraços a todos
GOSTEI 0
Wesley001
09/08/2005
Ninguém pode me responder?
Só falta isso para terminar esse sistema.
Abraços a todos!
Só falta isso para terminar esse sistema.
Abraços a todos!
GOSTEI 0