如何用程序来创建一个access数据库？

Question

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('create database temp' )
adoquery1.ExecSQL;
我想用以上程序来创建一个temp.mdb的数据库，但是不行，该怎么改？ 

Answer 1

http://www.fixdown.com/article/article/1688.htm

Answer 2

在Delphi IDE 中选择菜单ProjectImport Type Library，出现Import Type Library对
话框，选择“Microsoft ADO Ext.2.x for DDL and Security”,将Class Name中TTable改为
TADOXTable(因为TTable组件在Delphi中已经存在并注册）；选择“Microsof Jet and Repli
cation Object 2.x Library”.然后单击“Install”,便在Delphi的Imports目录下生成ADOX
_TLB.pas和JRO_TLB.pas的两个文件。在Unit文件的Uses中加入ComObj、ADOX_JLB、JRO_TLB,
就可以通过COM操作ADOX和JRO对象了。使用ADOX的例子
    建立一个工程项目，在Form1Uses中加入ComObj、ADOX_TLB、 JRO_TLB,添加三个按钮：btn
CreateDB和btnCompactDB,用于实现创建数据库、创建数据表和压缩数据库功能。
    创建数据库、数据表、索引例子如下：
    procedure TForm1.btnCreateDBClick(Sender:TObject);
    var
      Catalog:_Catalog;//定义为 :_Catalog 的接口类型
      Table：_Table;
      Index:_Index;
      strCon:string;//定义连接字符串
    begin
      Catalog:CreateComObject(Class_Catalog)as_Catalog;
      //建立Catalog实例，也可以用Catalog:=CoCatalog.Create;
      strCon:='Provider=Microsoft.Jet.OleDB.4.0;
      //通过Jet OleDb直接操作Access数据库
      +'Data Source=d:ComTestmyDb.mdb;//数据库位置
      +‘Jet OLEDB:Engine Type=5;'
      //Jet 4.x格式，如为4，则Jet3.x格式
      +'Locale Identifier=0x0804;'//支持简体中文（一定要有）
      +'Let OLEDB:Database Password=mypwd';//加入密码
       Catalog.Create(strCon);//建立数据库    
       {建立数据表和索引}
       catalogm_Set_ActiveConnection(strCon);//连接到数据库
       with Catalog do
       begin//建立数据表
         Table:=Create Com Object(Class-Table)as_Table;'//建立Table实例
         with Table do
         begin
           Name:='Tel';
           Columns.Append('Name',adVarWChar,8);//数据类型详见MDAC SDK
           Columns.Append('Phone',adVarWchar,20);
           Index:=CreateComObject(Class_Index)as_Index;//建立索引
           with Index do
           begin
             Name:='MyIndex';
             Columns,Append('Name',adVarWchar,8);
           end;
           Indexes.Append(Index,EmptyParam);
         end;
         Tables.Append(Table);
      end;
    end;

Answer 3

其实没有那么复杂，如果你只是要创建帐套的话可以先自己定义一个mdb文件，然后创建的时候利用程序来拷贝这个文件，然后根据自己的定义来修改掉这个文件的文件名或者扩展名

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb');
end;