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]