Fórum Como criar uma tabela no firebird via codigo em delphi #349846

Caro amigo você pode usar o IBScript e através dele passar o comando:
create table NomeDaTabela(
Campo1 Tipo,
Campo2 Tipo,
);

ou mesmo usar um TSQLQuery e passar o mesmo comando só que ao invés de dar um Open no query vc usa ExecSql() tipo:

[b:b6ae382e1e]with[/b:b6ae382e1e] SQLQuery1 [b:b6ae382e1e]do[/b:b6ae382e1e]
[b:b6ae382e1e]begin[/b:b6ae382e1e]
Close;
SQL.Text := ´create table Clientes(´
+#13+´Codigo Integer Not Null Primary Key,´
+13+´Nome varchar(80),´
+13+´Telefone varchar(14),´
+13+´)´;
ExecSql();
[b:b6ae382e1e]end;[/b:b6ae382e1e]

Acho que isso vai te ajudar;