在Delphi中有没有办法动态给表格添加列？

Question

在Delphi中有没有办法动态给表格添加列？用参数传递
我用语句:SQL.Add('alter TABLE score add :kch varchar(20) NULL');
         ParamByName('shx').Value:=Trim(kchm.Text);
         老是跳出第一行参数有语法错误

Answer 1

SQL.Add('alter TABLE score add '+Trim(kchm.Text)+' varchar(20) NULL');

Answer 2

还是不行哦,出现"列varchar的定义中必须包括数据类型"

Answer 3

s:='alter TABLE ztzb add '+trim(kchm.text)+' varchar(20) NULL';
  with adoquery1 do begin
    close;
    sql.clear;
    sql.add(s);
    execsql;
  end;

Answer 4

SQL.Add('alter TABLE score add '''+Trim(kchm.Text)+''' varchar(20) NULL');
看仔细，和前面几楼不同的。

Answer 5

谢谢楼上的,还是不对哦,出现SQL Server 第一行;''附近有语法错误的信息

Answer 6

SQL.Add('alter TABLE score add '+quotedstr(kchm.Text)+'varchar(20) NULL');