Olá!
Eu tenho uma pasta onde coloco todos os scripts para atualizacao da base de
dados e ao abrir o sistema verifico qual é a versao do sistema e se tem um
arquivo mais recente de atualizacao e apos isso eu executo:
Ex:
var
Lista: TStringList;
begin
Lista := TStringList.Create;
Lista.Clear;
if FileExists(versao da atualizacao + '.sql') then
Lista.LoadFromFile(Versao + '.sql');
Script.Database := Servidor;
Script.Transaction := Transacao;
Script.Script.Clear;
Script.Script.Assign(Lista);
Transacao.StartTransaction;
try
Script.ExecuteScript;
Transacao.Commit;
Result := True;
except
on E:Exception do
begin
ShowMessage('Erro atualizando base de dados: ' + E.Message);
Transacao.Rollback;
Result := False;
end;
end;
end;
2009/6/2 Rodrigo Magno <rcmagn...@yahoo.com.br>
>
>
> Amigos Delphianos,
>
> Alguem tem algum exemplo ou poderia me indicar uma pagina aonde eu possa
> atraves de um arquivo texto atualizar a minha base de dados (Firebird).
>
> Obrigado pela atenção de todos.
>
> Abraços,
>
> Rodrigo Magno
>
> * rcmagn...@yahoo.com.br <rcmagnobh%40yahoo.com.br>
> msn rcmagn...@yahoo.com.br <rcmagnobh%40yahoo.com.br>
>
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Atenciosamente,
Samuel M. Basso
Tel: (54) 3463-9114
Cel: (54) 8135-3723
E-mail/MSN: samuelba...@gmail.com
Web site: www.samuelbasso.com
[As partes desta mensagem que não continham texto foram removidas]
