atualizar sistema em clientes antigos

[flavioavilela]

bom dia a todos...

tenho alguns clientes que fazem uso do meu sistema.... clientes antigos e clientes novos....

para os clientes novos, eu sei o que tenho que fazer em relação as mudanças feitas no sistema, mas os antigos nem tanto né rsrs... tem alguma forma pratica e rápida que verifica se há algumas alterações no banco de dados e que o SGBD me fale o que tenho que fazer ou algo mais simples?? pois, ficar guardando scripts de tabelas que eu vou alterando é foda né.... eu sei que no caso do delphi, basta atualizar o .exe, o problema está no bd mesmo, atualizar as mudanças no bd lá no cliente mais antigo, que está usando uma versão bem mais antiga.... alguém tem uma solução?????? meu banco é sql server...

[Douglas Soares]

Atualizar o banco em que sentido? colocar os dados ou criar as tabelas novas e campos?

Abraços

[flavioavilela]

nesses dois sentidos..... atualizar algumas tabelas que acrescentei mais campos e/ou criar novas tabelas.... queria algo mais prático, mais automatico saca...

[Douglas Soares]

Eu faço isso na tela de abertura, eu chego tabela por tabela e campo por campo e assim vou criando, num label coloco a tabela atual pra se der erro eu saber em qual parou, no caso o label5...

// Tabela "Cargos"  **** Firebird
var
tabela : string;
L,C : TStringList;
begin
tabela := 'CARGOS';
L := TStringList.Create;
SQLConnection1.GetTableNames(L);
if ( not L.IndexOf(tabela) >= 0) then // Tabela não Existe
begin
SqlCriaTabela.Close;
SqlCriaTabela.SQL.Clear;
SqlCriaTabela.SQL.Add('CREATE TABLE '+ tabela +' (');
SqlCriaTabela.Sql.Add('CODIGO2 INTEGER NOT NULL PRIMARY KEY,');
SqlCriaTabela.Sql.Add('DESCRI2 VARCHAR(20))');
SqlCriaTabela.ExecSQL;
SqlCriaGen.close;
SqlCriaGen.sql.clear;
SqlCriaGen.sql.add('CREATE GENERATOR GEN_CARGOS_CODIGO2');
SqlCriaGen.execSql;
SqlCriaGen.close;
SqlCriaGen.sql.clear;
SqlCriaGen.sql.add('SET GENERATOR GEN_CARGOS_CODIGO2 TO 0');
SqlCriaGen.execSql;
L.Free;
end
else
begin
C := TStringList.Create;
sqlconnection1.GetFieldNames(tabela, C);

SqlCriaTabela.SQL.clear;
SqlCriaTabela.SQL.add('Alter Table');
SqlCriaTabela.SQL.add(tabela);

cria := false;
texto := '';
virg := '';

if C.IndexOf('CODIGO2') < 0 then
begin
texto := 'ADD CODIGO2 INTEGER NOT NULL PRIMARY KEY';
virg := ',';
cria := true;
end;

if C.IndexOf('DESCRI2') < 0 then
begin
texto := texto + virg + 'ADD DESCRI2 VARCHAR(20)';
virg := ',';
cria := true;
end;
/// ***** Rotina que Executa a Query
     sqlCriaTabela.Active := false;
     if cria then
     begin
     SqlCriaTabela.sql.add(texto);
     SqlCriaTabela.ExecSQL;
     end;
     end;
     sleep(15);
     reg := reg + 1;
     prog1.Position := reg;
/// ***** Fim da rotina que executa a Query ****
end;
label5.Caption := tabela;
self.Repaint;

O que você precisará fazer é adicionar esses componentes acima, nas Querys você n precisa adicionar nada pois ele adiciona acima nesse código!

Veja se consegue fazer, qualquer coisa fala q tento te ajudar!

Abraços

[flavioavilela]

certo, mas qual a finalidade disso que você faz ai? desculpe a pergunta, as vezes até idiota rsrsrs, é porque nunca trabalhei com esse sistema, mas quero trabalhar agora para facilitar meu trabalho....

[flavioavilela]

eu não entendi o que você disse ai... quer dizer que quando você inicia o sistema, ele verifica se há algo errado no banco, é isso???

[Douglas Soares]

Isso aí é uma checagem de tabelas e campos, toda vez que abre a aplicação ele checa se a tabela existe, se não existir ele cria, e em seguida faz a mesma coisa com os campos!

Abraços