Buscar por:

Criar tabela no firebird via delphi

Código

Procedure TForm1.BitBtn1Click(Sender: TObject);

var L:TStringList;

begin

 {A classe TStringList é utilizada para armazenar e manipular

  uma lista de strings. Através do método Add da classe é possível

  inserir uma nova string a lista}

 //criando Stringlist na memória

 L := TStringList.Create;

 //pega o nome da tabela

 SQLConnection1.GetTableNames(L);

 //pega a posição do tbteste(começa no 0)

 if L.IndexOf('tbteste') >= 0 then

   begin

    Showmessage('Esta tabela já existe no BD!');

    Abort

   end

 else

   begin

    SQLQuery1.Close;

    SQLQuery1.SQL.Clear;

    SQLQuery1.SQL.Add('create table tbteste(');

    SQLQuery1.Sql.Add('cod_teste integer not null primary key, ');

    SQLQuery1.Sql.Add('nome_teste varchar(40))');

    SQLQuery1.ExecSQL;

    L.Free;

    ShowMessage('Tabela Criada com sucesso!');

   end;

end;

//Obs: é necessário ter um sqlconnection e uma sqlquery