在Delphi6下怎样通过ADO动态创建SQL Server 2000中的数据库？

Question

在Delphi6下怎样通过ADO动态创建SQL Server 2000中的数据库？使用的是MDAC2.6。

Answer 1

在SQL里面导出一个创建数据库的脚本，然后写在Adoquery的SQL里，Adoconnection要连到SQL的Master数据库，执行Adoquery里的语句就OK了！

Answer 2

如果只是简单的建一个数据库下面的就应该符合了,
var
  qryInstall:TADOQuery ;
  DBConnectionString, SQLStr, dbName: String;begin
  dbName :='test';
  DBConnectionString :='Provider=SQLOLEDB.1;Password=121314';
  DBConnectionString :=DBConnectionString +';Persist Security Info=True;User ID=sa';
  DBConnectionString :=DBConnectionString +';Initial Catalog=master;Data Source=localhost';
  qryinstall := TADOQuery.Create(nil);
  try
    qryinstall.ConnectionString :=DBConnectionString;
    SQLStr :='create database '+dbName;
     with qryinstall do
     begin
       close;
       sql.clear;
       sql.Add(SQLStr);
       try
         execsql;
       except
       end;
     end;
  finally
    qryinstall.Free;
  end;

Answer 3

MySql := 'create database aaa on primary(name='aaa_data' filename='d:\aaa_data.mdf',size=10MB,filegrowth=10%) log on(name='aaa_log',filename='d:\aaa_log.ldf',size=2MB,filegrowth=5%,maxsize=5MB)'
with ADOQuery do
begin
  close;
  sql.clear;
  sql.text := MySql;
  try
    ExecSQL;
  except  end;
end;

Answer 4

To:arraiy(维):
    我已经成功的实现了数据库的创建和备份恢复功能。谢谢。