Como criar uma tabela no firebird via codigo em delphi
Ola pessoal eu tenho um database criado e minhas tabela, mais agora to precisando cria uma outra tabela em tempo de execução via codigo, essa tabela tem que pertencer ao mesmo database...os campos dessa nova tabela, vai depender de quais campos o usuário inrformar....
Obrigado
Obrigado
Logran
Curtidas 0
Respostas
Delphijean
29/11/2007
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;
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;
GOSTEI 0