如何动态给数据表添加列？

Question

BDE
在select语句中
select * from tb where name=:a;
那么在alter语句中如何把列名当做一个参数呢
alter table add col char(10);
每次的col发生改变，这个怎么实现？
谢大家！

Answer 1

var
  colname:string
  sqltext:string;
begin
  sqltext := 'alter table add '+colname+' char(10)'; 
end;

Answer 2

写个动态语句，下面是个简单的例子：create table tb 
(IID int identity(1,1))
go
declare @S varchar(800)
declare @Col varchar(10)
set @Col = 'DJBH'
set @S = 'alter table tb add ' + @Col + ' char(10)'
select @S
exec(@S)
go
select * from tb
go
drop table tb