如何在程序中实现兴建数据库。(20分)

请问，要新建一个数据库，在程序中如何实现？

1. 用sql写, 或者
2. 用ttable控件的createtable方法

这是DELPHI的例子：
if not Table1.Exists then
{do
n't overwrite an existing table }
begin
with Table1do
begin
Active := False;
{ The Table component must not be active }
{ First, describe the type of table and give it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';
{ Next, describe the fields in the table }
with FieldDefsdo
begin
Clear;
Add('Field1', ftInteger, 0, True);
Add('Field2', ftString, 30, False);
end;

{ Next, describe any indexes }
with IndexDefsdo
begin
Clear;
{ The first index has no name because it is a Paradox primary key }
Add('', 'Field1', [ixPrimary, ixUnique]);
Add('Fld2Indx', 'Field2', [ixCaseInsensitive]);
end;

{ Now that we have specified what we want, create the table }
CreateTable;
end;
end;

database or table?
which kind?

这是SQL Server 6.5新建数据库的SQL语句
CREATE DATABASE database_name
[ON {DEFAULT | database_device} [= size]
[, database_device [= size]]...]
[LOG ON database_device [= size]
[, database_device [= size]]...]
[FOR LOAD]

如何在程序运行时动态建立TTable?
procedure TForm1.BitBtn1Click(Sender: TObject);
var t:TTable;
begin
t:=TTable.Create(self);
t.DatabaseName:='c:/';
t.TableName:='12.DB';
t.Open;
datasource2.DataSet:=t;
end;

别的可到:http://www2.cs.uestc.edu.cn/~pxlei 看看

多人接受答案了。