这段SQL语句在DELPHI下如何实现,在线等

Question

alter table ks add column[2002] varchar(10)

Answer 1

with Query1 do
begin
  Close;
  SQL.Clear();
  SQL.Add('alter table ks add column[2002] varchar(10)');
  ExecSQL;
end;

Answer 2

To:WuLoveXue(晕死，又这样) 
你怎么跑到我前面去了？

Answer 3

就是在窗体上放一个EDIT控件。然后输入字段名。就在数据库中生成刚才输入的字段名。这样就行了。上面的语句是如何来设置一个动太的过程。

Answer 4

你把EDIT1的TEXT组合成SQL不就得了！

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
begin
  AdoQuery1.Active:=false;
  AdoQuery2.Active:=false;
  AdoQuery2.SQL.Clear;
  AdoQuery2.SQL.Add('alter table [sales] add '+Edit1.Text{字段名}+' '+Edit2.Text{字段类型});
  AdoQuery2.ExecSQL;
    AdoQuery1.Active:=true;
end;

Answer 6

to liufuyahong() :呵呵，老是和我抢分！

Answer 7

上面的那个讲得不好，用这个吧，我已经试过啦（Win2000 Server+D7+Sql 2000)：
procedure TForm1.Button1Click(Sender: TObject);
var
 s:TStrings;
begin
  AdoQuery1.Active:=false;
  s:=AdoQuery1.SQL;//保存旧的Sql
  AdoQuery1.Sql.Clear;
  AdoQuery1.SQL.Add('alter table [sales] add '+Edit1.Text{字段名}+' '+Edit2.Text{字段类型});
  AdoQuery1.ExecSQL;  AdoQuery1.Active:=False;//还原旧的Sq1
  AdoQuery1.Sql:=s;
  AdoQuery1.Active:=true;
end;