如何用语句来创建一个表

Question

在delphi中如何用语句来创建一个表?

Answer 1

用SQL：
  Query1.DatabaseName:='ADatabase';
  Query1.Close;
  Query1.SQL.Text:=' create table NewTable'+
                   ' (NO int primary key,'+
                   '  Name varchar(10) )';
  Query1.ExecSQL;

Answer 2

将blazingfire(烈焰) 兄的
Query1.SQL.Text:=' create table NewTable'+
                   ' (NO int primary key,'+
                   '  Name varchar(10) )';
改一下就行了。
tablename=<表名>;
Query1.SQL.Text:=' create table '+tablename+
                   ' (NO int primary key,'+
                   '  Name varchar(10) )';