谁有用Ado组件动态创建数据表的源码？我不想用BDE！

Question

数据库是Oracle
1.使用adoConnection
ADOCZS.Execute('Create Table tablename (id char(4),name char(10))')
2.使用AdoQuery等
With Adoqueyr1 do
begin
  close;
  Sql.clear;
  Sql.add('Create Table tablename (id char(4),name char(10))')
  ExecSql;
end;

Answer 1

1.建立adoConnection组件：adoconn;
2.将adoconn连接到数据库（任何支持SQL命令的数据库系统都行）；
2.执行：adoconn.Execute('CREATE TABLE yourtablename(field1 varchar(20),field2 char(10),……')