Alter table com parâmetros

Delphi

18/02/2004

Estou incluindo uma coluna em uma tabela através do Alter table e gostaria de saber como faço para o nome dessa coluna ser igual ao texto de uma edit??? ou algo assim...

obrigada,

Dirlene Santos


Dirlene

Dirlene

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

18/02/2004

Tenta Assim:

Procedure AlterarTabela(parColls : String);
Begin
   DataModule.Query.Sql.Add(´ALTER TABLE MinhaTabela´);
   DataModule.Query.Sql.Add(´ADD ´ +parTable+´ TIPO´);
   Try
       DataModule.Query.ExecSql;
   Except
     On EDataBaseErro Do
     Begin
         Showmessage(´A ROTINA DE UNDECLARED_IDENTIFIER NÃO FUNCIONA.....´);
     End;
   End;

End;


GOSTEI 0
Aavanco

Aavanco

18/02/2004

Acho que assim resolve.

[i:0878f87333]procedure TForm1.BtnAlterarClick(Sender: TObject);
var
TxtSQL: String;
begin
TxtSQL:=´Alter table tabela add ´+ Edit1.Text + ´ varchar(20)´;

QuerySQL.SQL.Clear;
QuerySQL.SQL.Add(TxtSQL);
QuerySQL.ExecSQL;

end;[/i:0878f87333]
Abraço


GOSTEI 0
POSTAR