答者有分

Question

Query.sql.text := 'create table test (a char(10) )';
Query.Execsql;
Query.sql.text := 'select * into test from table where 1<0';
Query.Execsql;

Answer 1

用SQL语句可以实现你的要求；

Answer 2

如果你装了ACCESS2000，可以去看它的帮助，里面有用SQL建表的说明。一般是通用的。

Answer 3

如果你用的是mssql的话，可以把所有的表选上然后右键，选生成sql脚本。

Answer 4

楼顶的建表，我来建库
sql:='create database aaa';

Answer 5

Query.sql.text := 'select * into test from table where 1<0';
Query.Execsql;
建立新表test,里面的结构与table一样.