怎么创建MDB数据库?(20分)

我的机子上没有装Office,请问怎么创建Access数据库?是写代码吗?还是...

写代码可以。
但是需要使用Ado，如果你计算机上的Ado版本不够的话，也许不行（好像最好是2.6及以上）
procedure CreateNewDatabase(DatabaseFileName: string);
var
cat: OleVariant;
begin
if FileExists(DatabaseFileName) then
begin
if MessageBox(Application.Handle, PChar('Database ' + DatabaseFileName + ' has existed!' + #13#10
+ 'Delete this database and create a new database ?'), 'Database Exists',
MB_YESNO + MB_ICONWARNING + MB_DEFBUTTON2) = mrNo then
exit;
if not DeleteFile(DatabaseFileName) then
begin
MessageBox(Application.Handle,
PChar('Cannot delete database ' + DatabaseFileName),
'Delete Database Error!', MB_OK + MB_ICONERROR);
exit;
end;
end;
cat := CreateOleObject('ADOX.Catalog');
cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DatabaseFileName);
if ConnectDatabase(DatabaseFileName) then
begin
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Table FaqClass ' +
'(' +
'ClassID INT not null,' +
'ClassTitle char(100) not null,' +
'ParentClassID INT not null,' +
'ClassType TINYINT DEFAULT 0' +
')';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create UNIQUE Index ClassIDIndex ON FaqClass (ClassID)';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Index ClassTitleIndex ON FaqClass (ClassTitle)';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Index ParentClassIDIndex ON FaqClass (ParentClassID)';
adoquryClass.ExecSQL;
adoquryClass.Close;
adoquryClass.SQL.Text := 'Create Index ClassTypeIndex ON FaqClass (ClassType)';
adoquryClass.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Table FaqMemo' +
'(' +
'MemoID INT not null,' +
'ParentClassID INT not null,' +
'MemoTitle char(100) not null,' +
'MemoText TEXT,' +
'MemoPublic BIT DEFAULT 0,' + //缺省是不公开
'MemoLastModifyTime DATETIME' +
')';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create UNIQUE Index MemoIDIndex ON FaqMemo (MemoID)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index ParentClassIDIndex ON FaqMemo (ParentClassID)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index MemoTitleIndex ON FaqMemo (MemoTitle)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index MemoPublicIndex ON FaqMemo (MemoPublic)';
adoquryMemo.ExecSQL;
adoquryMemo.Close;
adoquryMemo.SQL.Text := 'Create Index MemoLastModifyTimeIndex ON FaqMemo (MemoLastModifyTime)';
adoquryMemo.ExecSQL;
end;
end;

ODBC创建也可以：
先声明：
function SQLConfigDataSource(hwnd:HWND;fRequest:WORD;lpszDriver:String;lpszAttributes:String):boolean;stdcall;external 'ODBCCP32.dll';

const ODBC_ADD_DSN = 1;
var
sWrkStr:String;
FileName:String;

FileName:='aa.mdb';
sWrkStr := 'CREATE_DB="' + FileName + '";' ;
SQLConfigDataSource(0,ODBC_ADD_DSN,'Microsoft access Driver (*.mdb)',PChar(sWrkStr));

我就不明白，一个很简单的问题被搞得这么麻烦！

你先做好一个空的mdb文件打包到资源文件里面，用的时候解出来就是了。尺寸不大，就70k

to 一个过客
　　你说简单，能不能给个例子？x-delphi@163.cm

在引用部分加入
uses ComObj;
实现部分
procedure TFormOffice.BitBtn1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/temp/temp.mdb');
end;
在C:/temp目录下生成temp.mdb

转贴以前的帖子（lid号不记的了）。很详细步骤都有的：
----------------------------------------------------------------
问题：能使用ADO建立MDB数据库吗？ ( 积分：100, 回复：1, 阅读：5 )
分类：数据库-C/S型 ( 版主：千中元, luyear )
来自：滨滨, 时间：2002-3-31 15:30:00, ID：1014156 [显示：小字体 | 大字体]
我想动态建库，ADO能实现吗？我只知道ADO能Connect Jet数据库，不知道能不能建库呢？

来自：bluerain, 时间：2002-3-31 15:50:00, ID：1014180
转贴:

动态创建、压缩Access数据库(*.MDB)

声明：这是前无古人，后无来者的解决方案(有点吹，但是我实在太激动了！)，希望各位能
多多关照,创建Access数据库几乎是所有Delphi+Access所遇到的难题，我经过两头(昨天上
午到现在)的艰苦奋战，终于将它全部解开，现在一一奉献给大家：

一、通过OLE方式创建
相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体
代码写出来就完了
在引用部分加入：
uses ComObj;
实现部分：
procedure TFormOffice.BitBtn1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco.mdb');
end;

说明：
1、在C:/下创建Aceco.mdb；
2、是Access2000格式，用Access97打不开；
3、系统需安装MDAC，这是好消息，客户不需安装Access也可以

二、通过DBEngine创建
这才是关键中的关键，是我一定要写出来的原因！
各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，
所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有
MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而
已它位于：
$Delphi5/Imports
目录下！
其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL
如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现
起来就太方便了，具体过程如下：
在引用部分加入：
uses DAO97;
实现部分：
procedure TFormOffice.BitBtn4Click(Sender: TObject);
var
EngineBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',
dbEncrypt);
end;

说明：
1、在C:/下创建NewAccess.mdb；
2、语言国家是简体中文；
3、压缩整理数据库用Engine.CompactDatabase('c:/invoice.mdb','c:/God.mdb',
'',0,'');就是将c:/invoice.mdb压缩整理成c:/God.mdb，剩下的只是将
c:/invoice.mdb删除(DeleteFile('c:/invoice.mdb')，然后将c:/God.mdb
重新命名(RenameFile('c:/God.mdb','c:/invoice.mdb')即可。

三、通过Access97创建，然后拷贝
四、通过ODBC的API函数创建

补充：
1、通过OLE方式创建时如果是Access97，那么可能是CreateAccess.Create('Provider
=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:/Aceco.mdb');，嘿嘿，小弟对VB实
在是一窍不通，还望各位再测试一下(可以需要MDAC比较低的版本)。
2、关于CreateDatabase中国家的设置：
Module LanguageConstants; // DAO predefined constants.
dbLangArabic = ;LANGID=0x0401;CP=1256;COUNTRY=0;
dbLangCzech = ;LANGID=0x0405;CP=1250;COUNTRY=0;
dbLangDutch = ;LANGID=0x0413;CP=1252;COUNTRY=0;
dbLangGeneral = ;LANGID=0x0409;CP=1252;COUNTRY=0;
dbLangGreek = ;LANGID=0x0408;CP=1253;COUNTRY=0;
dbLangHebrew = ;LANGID=0x040D;CP=1255;COUNTRY=0;
dbLangHungarian = ;LANGID=0x040E;CP=1250;COUNTRY=0;
dbLangIcelandic = ;LANGID=0x040F;CP=1252;COUNTRY=0;
dbLangNordic = ;LANGID=0x041D;CP=1252;COUNTRY=0;
dbLangNorwDan = ;LANGID=0x0414;CP=1252;COUNTRY=0;
dbLangPolish = ;LANGID=0x0415;CP=1250;COUNTRY=0;
dbLangCyrillic = ;LANGID=0x0419;CP=1251;COUNTRY=0;
dbLangSpanish = ;LANGID=0x040A;CP=1252;COUNTRY=0;
dbLangSwedFin = ;LANGID=0x040B;CP=1252;COUNTRY=0;
dbLangTurkish = ;LANGID=0x041F;CP=1254;COUNTRY=0;
dbLangJapanese = ;LANGID=0x0411;CP=932;COUNTRY=0;
dbLangChineseSimplified = ;LANGID=0x0804;CP=936;COUNTRY=0;
dbLangChineseTraditional = ;LANGID=0x0404;CP=950;COUNTRY=0;
dbLangKorean = ;LANGID=0x0412;CP=949;COUNTRY=0;
dbLangThai = ;LANGID=0x041E;CP=874;COUNTRY=0;
dbLangSlovenian = ;LANGID=0x0424;CP=1250;COUNTRY=0;

3、关于CreateDatabase中数据库版本信息
Enum DatabaseTypeEnum;
dbVersion10 = 1;
dbEncrypt = 2;
dbDecrypt = 4;
dbVersion11 = 8;
dbVersion20 = 16;
dbVersion30 = 32;
4、其它方面，希望各位再加补充。
―----------------------------------------------------------
希望有所帮助。

to yzhshi
能不能给我发个例子？

我上面写的，粘贴到Delphi里面修改一下，就可以调通。
只是再放一些控件而已呀。。。

有些通不过，能不能给我发过例子来？

QuickSilver说的就不错，若要加上密码则
在引用部分加入
uses ComObj;
实现部分
procedure TFormOffice.BitBtn1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create
　　('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/temp/temp.mdb;Jet OLEDBatabase Password=YourPassword');
end;
在C:/temp目录下生成temp.mdb

这样生成的数据库，它都有哪些字段？

如果要完整的例子我有，我的mail: ajianzeng@163.com

我的邮件地址是：x-delphi@163.com
我已经给你发过邮件了，但没动静，请快些！

你的理解可能有一点问题，这样生成的数据库是空库，要另外生成数据表和表中字段。

最好给个例子

uses ADODB2000, DB, ADODB;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
CreateAccess: OleVariant;
tbl: OleVariant;
MyConnection, MyAccess, MyTable: OleVariant;
MyAccessName, MyTableName: string;
SearchRec: TSearchRec;
TableFlag: Boolean;
i: integer;
begin

MyAccess := CreateOleObject('ADOX.Catalog');
MyTable := CreateOleObject('ADOX.Table');

MyAccessName := ExtractFilePath(Application.ExeName) + 'Test.MDB';
if FindFirst(MyAccessName, faAnyFile, SearchRec) = 0 then
begin
MyAccess.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + MyAccessName;
end
else
begin
MyAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + MyAccessName);
end;
//判断库中是否有该表。没有的话添加一个

MyTableName := 'MyTable';
TableFlag := False;
if MyAccess.Tables.count > 0 then
begin
for i := 0 to MyAccess.Tables.count-1 do
begin
if MyAccess.Tables.item.name = MyTableName then TableFlag := True;
end;
end;


if not TableFlag then
begin
//添加表
MyTable.name := MyTableName;
MyTable.Columns.Append('Column1', adInteger);
MyTable.Columns.Append('Column2', adDate);

MyTable.Columns.Append('Column6', adVarWChar, 50);
MyAccess.Tables.Append(MyTable);
end
else
MyTable.name := MyTableName;

ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+MyAccessName;
end;

多人接受答案了。