Criar e Excluir campo em tabela Paradox

Delphi

07/06/2004

Tenho algumas tabelas no paradox e delphi 7

Gostaria de saber como faço para excluir um campo da tabela e criar um campo novo para a tabela paradox, via comando.


Mfilho

Mfilho

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

07/06/2004

Tente assim:

procedure TForm2.Button1Click(Sender: TObject);
var  Q: TQuery;
begin
   Q := TQuery.Create(Application);
   try
   Q.DatabaseName := ´Banco´;
   with Q.SQL do begin
   Add(´Alter Table Tabela add cli_Nome Char(30)´);
   end;
   Q.ExecSQL;
   finally
   Q.Free;
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var  Q: TQuery;
begin
   Q := TQuery.Create(Application);
   try
   Q.DatabaseName := ´Banco´;
   with Q.SQL do begin
   Add(´Alter Table Tabela drop cli_Nome´);
   end;
   Q.ExecSQL;
   finally
   Q.Free;
   end;
end;



GOSTEI 0
POSTAR