我怎么向一个建好的表CustInfo.db增加字段呢？

Question

我怎么向一个建好的表CustInfo.db增加字段呢？表CustInfo.db是delphi自带数据库类型的表。
帮我看一下，这样写对吗？
var
 ziduan :string ;
   tablename :string;
begin
   tablename:='D:\delphi-ceshi\CustInfo.db';
   ziduan:='alter table  '+tablename+' add strName char(10) not null'  ;
   showmessage(ziduan);
   table1.close;
   query1.close;
   query1.sql.clear;
  //query1.SQL.CommaText:=ziduan;
   query1.sql.add(ziduan);  //try
   //query1.open;
   //except
  query1.execsql;
 //end;
   //table1.open;
end;

Answer 1

alter CustustInfo.db
add column a int

Answer 2

ziduan:='alter table  '+tablename+' add column strName char(10) not null'  ;

Answer 3

TO: firetoucher(风焱)還是不能！幫我看一下。

Answer 4

TO: firetoucher(风焱)報錯：
Project Project1.ext raised exception class EDBEngineError with message 'Invalid use of keyword '

Answer 5

TO： giftzhang(新手上路) 你幫我說具體一些好嗎？