Fórum Atualizador de BD via Delphi #407102

Olá pessoal tudo bom?   Gostaria de uma ajuda de vocês. To tentando criar um atualizador de banco de dados, pra distribuir com a aplicação que tiver alteração no banco.   Pensei em fazer um exe em delphi mesmo, então criei uma aplicaçao, coloquei um SQLConnection, um SQLDataSet, um Button e um Label e fiz o código abaixo, que funcionou:       SqlDataSet1.Close;
    with SqlDataSet1 do
      begin
        close;
        CommandText :=
          'CREATE TABLE TB_TESTE2 ('
          + 'PKCOD_TESTE2      BIGINT NOT NULL,'
          + 'NOME_TESTE2       VARCHAR(50) NOT NULL COLLATE PT_BR,'
          + 'NOME_COMPLETO_TESTE2  VARCHAR(50) COLLATE PT_BR)';
        open;
      end;   Só que quando tentei botar um "alter table", assim:
SqlDataSet1.Close;
with SqlDataSet1 do
begin
close;
CommandText :=
'CREATE TABLE TB_TESTE2 ('
+ 'PKCOD_TESTE2 BIGINT NOT NULL,'
+ 'NOME_TESTE2 VARCHAR(50) NOT NULL COLLATE PT_BR,'
+ 'NOME_COMPLETO_TESTE2 VARCHAR(50) COLLATE PT_BR);'
+ 'ALTER TABLE TB_TESTE2 ADD CONSTRAINT PK_TB_TESTE2 PRIMARY KEY (PKCOD_TESTE2)';
open;
end;   Não funcinou, deu erro no "alter". Ainda tente fazer primeiro o create table e depois o alter como abaixo:
    SqlDataSet1.Close;
    with SqlDataSet1 do
      begin
        close;
        CommandText :=
          'ALTER TABLE TB_TESTE2 ADD CONSTRAINT PK_TB_TESTE2 PRIMARY KEY (PKCOD_TESTE2)';
        open;
      end;   E também não funcinou. Ele só funcionou quando eu fiz, primeiro o create table, sem o alter, depois parei a aplicaçao, comentei o create table e rodei só o alter table, aí funcionou.   Alguém saberia porque eles não funcionam juntos? Pois eu ainda pretendo criar generators e triggers desse mesmo jeito, e gostaria que fosse tudo numa tacada só.   Grato pela atenção. Abraços.