Re: [firebase-br] Versão de banco de dados

[Julio Cesar]

nao sei bem, mas acho q um shutdown no banco deixando so o usuario das 
atualizacoes conectado resolveria o problema de tentativas de conexao..



Julio Cesar
julio_gyn em yahoo.com.br
+353 (87) 2184139
+353 (091) 630317


----- Original Message ----- 
From: <ffkammer em conchalnet.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, January 27, 2006 10:29 PM
Subject: Re: [firebase-br] Versão de banco de dados



Olá Jeferson,

Gostei de sua idéia, acho que
é um caminho interessante
Mas tenho uma dúvida:
suponhamos que uma pesso executa o software com a nova versão que
atualizará o banco de dados e, durante o processo de
atualização, algum outro usuário resolva abrir o
sistema rede. Isso poderá danificar a estrutura do banco, pois,
até onde eu sei, não posso fazer atualizações
de estrturas com o banco em uso, correndo o risco de causar danos ao
mesmo.
Por isso que ainda não pensei em uma
solução utilizando o próprio executável para
atualização do banco de dados, tenho medo que durante uma
atualização mais alguém abra o sistema e isso cause
problemas sérios ao banco.
Já quanto a retroceder
versões acho muito perigoso, prefiro que o sistema não
libere acesso com o executável inferior ao necessário, pois
pode acarretar em perda de dados.

Abraços

Fabrício F. Kammer

>
--===============1457861527==
>
> Olá!
>

> No Paradox utilizava uma aplicação ServicePack
para reestruturar o banco
> de
> dados. Tudo ia bem,
exceto quando retornava-se para uma versão anterior
>
sem
> antes executar o ServicePack para a versão
correspondente.
>
> Atualmente, com Firebird, o
próprio executável se encarrega de atualizar
> ou
> "retroceder" a estrutura do banco de dados quando
ncessário.
> Até o momento esse modelo funciona
bem.
>
> Estrutura utilizada:
>
> 1) Um
DataModule com um componente TIBScipt para cada versão, nomeado
como
> IBScript + número da versão
correspondente;
> 2)
Dentro de um script há diversos
comandos: Create table, alter table,
> create index, update,
etc.;
> 3) Existe no banco de dados uma TabelaVersao, apenas com
campo
> NumeroVersao;
> 4) Ao compilar uma versao que
exige mudança na estrutura do banco de dados
> uma
constante que identifica a versão atual do executável
é incrementada;
> 5) Ao iniciar o sistema verifica-se se
há diferenças entre a versão do
>
executável e a versão atual do banco. Se a versão do
banco for maior que a
> do executável, o que indica que o
banco já foi acessado por uma versão
> mais
> nova, retrocede-se a primeira versão da
aplicação, para garantir que toda
> a
>
estrutura necessária para a versão esteja
disponível;
> 6) O controle de tratamento de erros ao
tentar criar um objeto já
> existente
> é
feito pela aplicação;
>
>
Desvantagens
precebidas:
> 1) Ter que criar um IBScript para cada
versão;
> 2) Escrever o SQL de cada script (atualmente
aproveito as senteças geradas
> pelo IBExpert, o que
agiliza o trabalho);
>
>
> Abaixo trecho do
código (Delphi) utilizado.
> Críticas são
muito bem vindas.
>
>
> var
>
VersaoBanco: Integer;
>
> const
>
VersaoExecutavel = Número da versão do executável;
>
> procedure Tfrmpesquisa.FormCreate(Sender: TObject);
> begin
>   if VersaoBanco = VersaoExecutavel then
>
   Exit
>   else
>   begin
>     if VersaoBanco
> VersaoExecutavel then
>       VersaoBanco := 0;
>
AtualizaVersao;
>   end;
> end;
>
>
procedure AtualizaVersao;
> var
>   ibsAtualizacao:
TIBScript;
>   Versao: Integer;
> begin
>
ibsAtualizacao := TIBScript.Create(Application);
>
ibsAtualizacao.Database := ibdbAtualizar;
>
ibsAtualizacao.Transaction := ibdbAtualizar.DefaultTransaction;
>

>   for Versao := VersaoBanco + 1 to VersaoExecutavel do
>   begin
>     ibsAtualizacao.Script.Text :=
TIBScript(FindComponent('IBScript' +
>
IntToStr(Versao))).Script.Text;
>
ExecutaSentencasScript(ibsAtualizacao);
>
ibsAtualizacao.Script.Text := 'update TabelaVersao set NumeroVersao =
> '
>                                 +
QuotedStr(IntToStr(Versao)) +
> ibsAtualizacao.Terminator;
>     ExecutaSentencasScript(ibsAtualizacao);
>   end;
>   ibsAtualizacao.Free;
> end;
>
>
procedure Tfrmatualizabanco.ExecutaSentencasScript(ibsExecutar:
>
TIBScript);
> var
>   TextoScript, SentencaSQL: String;
> begin
>   TextoScript := Trim(ibsExecutar.Script.Text);
>   while TextoScript <> '' do
>   begin
>
SentencaSQL := RetornaCampo(TextoScript, ibsExecutar.Terminator[1],
> 1);
>     ibsExecutar.Script.Text := SentencaSQL;
>
    TextoScript := Copy(TextoScript, Pos(SentencaSQL, TextoScript) +
> Length(SentencaSQL) + 1, Length(TextoScript));
>     try
>       ibsExecutar.ExecuteScript;
>     except
>
  on E: Exception do
>       begin
>         Continue;
>       end;
>     end;
>   end;
> end;
>
>
> Atenciosamente,
>
> Jeferson
Oliveira
>
>
>
> "Gabriel
Hilbig"
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa



	

	
		
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html