Fórum Gerar tabelas em tempo de execução #334592

Olá para todos,

Estou tentando gerar tabelas em tempo de execução, o sistema informa
que a tabela foi gerada, mas ao consultar o banco de dados ela não
consta.
Estou utilizando componentes da paleta Interbase como
IBQuery,IBDatabase e IBTransaction.
O SQL para gerar a tabela é o seguinte:

CREATE TABLE ´CORREIO´
(
´CODITEM´ INTEGER NOT NULL,
´CORREIO´ VARCHAR(100),
´ASSUNTO´ VARCHAR(80),
´CODANEXO´ SMALLINT,
´MENSAGEM´ blob sub_type 1 segment size 80,
´DATA´ DATE,
´HORA´ TIME,
´CODUSU´ SMALLINT,

CONSTRAINT ´PK_CODITEM´ PRIMARY KEY (´CODITEM´)
);

Após carregar o arquivo tabela.sql no IBQuery, dou um ExecSQL e um
commit no IBTransaction.
Não sei se está correto, pois é a primeira vez que estou fazendo
isto.

DmConfigSis.QyManBancoDados.Close;
DmConfigSis.QyManBancoDados.SQL.Clear;
DmConfigSis.QyManBancoDados.SQL.LoadFromFile(´C:\CORREIO.SQL´);
DmConfigSis.QyManBancoDados.ExecSQL;
DmConfigSis.DbExce.Open;
DmConfigSis.TrExce.Active := True;
DmConfigSis.TrExce.Commit;
DmConfigSis.TrExce.Active := False;

Utilizando o IBExpert a tabela é gerada normalmente.

Grato à todos,

José Luiz