ADO动态创建数据库问题？

Question

使用 tquery 执行sql 语句就可以阿
         create database database_name
on                
 [ PRIMARY ]
    ([ NAME = logical_file_name , ] 
      FILENAME = 'os_file_name' 
      [ , SIZE = size ] 
      [ , MAXSIZE = { max_size | UNLIMITED } ] 
       [ , FILEGROWTH = growth_increment ] ) [ ,...n ])

Answer 1

var
str:string;
begin
str:='d:\sql data\DBASE.mdf'
if adoquery1.active then
adoquery1.active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('CREATE DATABASE DBASE on Primary (name=DBASE, filename='+str+''''size=1,maxsize=unlimited,+filegrowth=10%),+'''');
adoquery1.execsql;
end;

Answer 2

同上意见，查一下ADO支持的说明书即可

Answer 3

// 动态创建.mdb数据库文件
procedure TMainForm.CreateDynamicDatabase(filename: string);
var
  CreateAccess: OleVariant;
begin
  CreateAccess := CreateOleObject('ADOX.Catalog');
  CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + filename);
end;