如何在delphi中动态地创建sql server数据库呢,请大侠们指点! (10分)

如何在delphi中动态地创建sql server数据库呢,请大侠们指点!我的积分只有10分了,请原谅

{动态创建数据库}
with AdoQuery1 do
begin
Close;

SQL.Clear;
SQL.Add('Create Database MyDB');
SQL.Add('On Primary');
SQL.Add('(Name=MyDB_Data,FileName='''+FileDir+'MyDB_Data.MDF'')');
SQL.Add('Log On');
SQL.Add('(Name=MyDB_Log,FileName='''+FileDir+'MyDB_Log.LDF'')');
Prepared;
ExecSQL;
end;

{生成数据库表}
with AdoQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Create Table Table1(col1 Char(10) Not NULL Primary Key)');
Prepared;
ExecSQL;
end;

to yizhshi:如果我是通过网络访问sql server2000的,像你这样的做行不行呢,你的adoquery1连接的是什么呢?烦请指点

在ADOQUERY的SQL中加入
CREATE DATABASE bbb
ON
( NAME = bbb_dat,
FILENAME = 'c:/temp/bbb.mdf',
SIZE = 10,
MAXSIZE = 50,
FILEGROWTH = 5 )
LOG ON
( NAME = 'bbb_log',
FILENAME = 'c:/temp/bbblog.ldf',
SIZE = 5MB,
MAXSIZE = 25MB,
FILEGROWTH = 5MB )
再执行ADOQUERY.EXECSQL，就生成BBB数据库，具体可以看SQL-SERVER帮助
adoconnection1连到SQL2000上，adoquery的connection设为adoconnection1。

ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='''+datepass.Text+''' ;Persist Security Info=True;User ID= '''+username.Text+''' ;Data Source= '''+server.Text+''';Initial Catalog=bbdata';
ADOConnection1.Connected:=true;
adocommand1.Execute('create database bbdata');
ADOCommand1.ConnectionString:='Provider=SQLOLEDB.1;Password='''+datepass.Text+''' ;Persist Security Info=True;User ID= '''+username.Text+''' ;Data Source= '''+server.Text+''';Initial Catalog=bbdata';

先用adoconnection生成数据库，
然后连接该数据库，再用adoquery生成数据库内的表，
如果却实 不行，请来信发源代码

用BDE组件TDATABASE连接SQLSERVER MASTER数据库 再用TQUERY控件如下
with Query1 do

begin
Close;

SQL.Clear;
SQL.Add('Create Database MyDB');
Prepared;
ExecSQL;
end;

分值太少,请原谅