Como criar uma tabela a partir de uma procedure?

Question

como fa�o para criar uma tabela a partir de uma procedure do tipoprocedure TForm1.FormClick(Sender: TObject);...

Afarias · Answer

vc quer dizer, em um procedimento do DELPHI (n�o do IB) ... bom, tem v�rias maneiras, uma delas::

coloque e configure no form ou dataModule os componentes IBDatabase, IBTransaction e IBSQL e fa�a, no seu procedimento::

with IBSQL1 do
try
SQL.Text := �CREATE TABLE {...bla,bla,bla...}�;
Transaction.StartTransaction;
ExecQuery;
finally
Transaction.Commit;
end;

se desejar executar v�rios comandos SQL de uma s� vez use o componente IBScript.

T+

Gandalf · Answer

como eu fa�o para usar uma string para dar o nome da tabela?grato pela ajuda,...

Gandalf · Answer

[quote:b186d72e5b=�GANDALF�]como eu fa�o para usar uma string para dar o nome da tabela?[/quote:b186d72e5b]o meu problema e que o valor de um campo anterior tem de ser concatenado e depois ser usado como nome da tabela recem criada...

Afarias · Answer

concatene a string no TEXTO do comando SQL q est� montando. minha forma preferida � usando o comando format!

ex:;

const
SQL1 = �create table �s ( ....bla,bla,bla... )�;

begin

{...}

IBSQL1.SQL.Text := Format(SQL1, [Edit1.Text]);

{...}

mas vc tb pode fazer algo como::

IBSQL1.SQL.Text := �CREATE TABLE � + Edit1.Text + � (...bla,bla,bla...)�;

T+

F�rum Como criar uma tabela a partir de uma procedure? #40215