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

Engine:DBEngine;

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、其它方面，希望各位再加補充。

 **********************************************************************************************************

方法一示例：通過OLE方式創建數據庫和表。


procedure Tform1.CreateDb(DbName: string);
var
   Dbnew:OleVariant;
begin
   if FileExists(DbName) then
   begin
     if MessageBox(Application.Handle,PChar('數據庫 '
       + DbName + ' 已存在！'+ #13#10 +'是否覆蓋？'),
       '警告',MB_YESNO + MB_ICONWARNING) = idNo then exit;
     if not DeleteFile(DbName) then
     begin
       MessageBox(Application.Handle,
         PChar('不能刪除數據庫：' + DbName),
         '錯誤',MB_OK + MB_ICONERROR);
       exit;
     end;
   end;

dbnew:=CreateOleObject('ADOX.Catalog');
dbnew.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DbName);
adoq1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
   +dbname+';Persist Security Info=False';


adoq1.Close;

adoq1.SQL.Text := 'Create Table 測試 (ID INT not null,'
    +'姓名 char(8) not null,年齡 INT not null)';
adoq1.ExecSQL;
adoq1.Close;
adoq1.SQL.Text := 'Create UNIQUE Index IDIndex ON 測試 (ID)';
adoq1.ExecSQL;
adoq1.Close;
adoq1.SQL.Text := 'Create Index xmIndex ON 測試 (姓名)';
adoq1.ExecSQL;
adoq1.Close;
adoq1.SQL.Text := 'Create Index nlIndex ON 測試 (年齡)';
adoq1.ExecSQL;
MessageBox(Application.Handle,
   PChar('數據庫：' + DbName+'創建完成'),
   'OK',MB_OK + MB_ICONWARNING);
end;
//創建數據庫DbName並且創建表：測試。