一个数据库的问题（zwjmouse)

用什么方法可以 用编程的方法创建 ACCESS2000 的数据库，请给源代码 

5 个解决方案

#1

void_fastall TForm1::Button1Click(TObject *Sender)
{
Table1->Actice=false;
Table1->DataBaseName="c:\\User";
Table1->TableName="std.dbf";
Table1->TableType=ttdBASE;
Table1->FieldDefs->Clear();
Table1->FieldDefs->Add("name",fsString,8,true);//填写你所要加入的字段。
...//等等
Table1->IndexDefs->Clear();
TIndexOptions MyIndexOptions;
MyIndexOptions<<ixUnique;//确立唯一索引
Table1->IndexDefs->Add("IdxNum","Num",MyIndexOption);
MyIndexOptions>>ixUnique;//取消唯一索引
Table1->IndexDefs->Add("IdxBrith","Ages",MyIndexOptions);
Table1->CreateTable();//创建数据库
Table1->Active=true;//打开数据库
}

#2

void_fastall TForm1::Button1Click(TObject *Sender)
{
Table1->Actice=false;
Table1->DataBaseName="c:\\User";
Table1->TableName="std.dbf";
Table1->TableType=ttdBASE;
Table1->FieldDefs->Clear();
Table1->FieldDefs->Add("name",fsString,8,true);//填写你所要加入的字段。
...//等等
Table1->IndexDefs->Clear();
TIndexOptions MyIndexOptions;
MyIndexOptions<<ixUnique;//确立唯一索引
Table1->IndexDefs->Add("IdxNum","Num",MyIndexOption);
MyIndexOptions>>ixUnique;//取消唯一索引
Table1->IndexDefs->Add("IdxBrith","Ages",MyIndexOptions);
Table1->CreateTable();//创建数据库
Table1->Active=true;//打开数据库
}

#3

mengxianbao1521(编程浪子) 你给的是创建dbf的代码
我问的是ACCESS2000  .mdb的数据库 

#4

只能用SQL语句。
Query1->SQL->Clear();
Query1->SQL->Add("CREATE ....");

#5

使用下面的方法，不过需要DAO的支持。
首先在你的程序中加入关于DAO的引用，也许你会觉得比较难，其实很简单，C++Builder5.0种已经附带了关于DAO的引用，你只需要将其编译一下，然后连接到程序中即可。你可将位于C++Builder5.0安装目录下的Source\Comservers\Office2k中的dao_2k.cpp添加到你的工程中，然后编译，生成DAO_2K.obj,然后将这个文件拷贝到C++Builder5.0的安装目录下的Lib\Obj子目录下。以后在你的程序中你只需要：
#include <dao_2k.h>
#pragma link "DAO_2K"
即可使用DAO。

如下方法1：
#include <DAO_2k.h>

  Variant  CreateAccess ;
  //通过建立ADOX(Microsoft ActiveX(R) Data Objects Extensions)对象进行访问
  CreateAccess=CreateOleObject("ADOX.Catalog");

  CreateAccess.OleFunction("Create","Provider=Microsoft.Jet.OLEDB.3.51;Data Source=c:\Aceco97.mdb");
  CreateAccess.OleFunction("Create","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco2000.mdb");
  
方法2：
#include <DAO_2k.h>
    TCOM_DBEngine Engine=new CoDBEngine->Create();

    WideString DatabaseName="L:\\test.mdb";
    WideString LocalString=";LANGID=0x0409;CP=1252;COUNTRY=0";
    Engine->CreateDatabase(DatabaseName.c_bstr(),LocalString.c_bstr(),dbVersion40);

    delete Engine;