■ BCB 6.0

1.新建立一空白 Project
2.插入一 Button 元件 , 在其 forbidden 中插入程式碼
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant AccessMDB ; //ADOX 物件

AnsiString ConnectionString; //連接字串
AnsiString MDBFileName;

//MDBFileNmae = ExtractFilePath(Application->ExeName)+"test.mdb"; //MDB 檔產生位置
MDBFileName = "test.mdb"; //MDB 檔產生位置

ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " + MDBFileName; //設定連接字串
AccessMDB = Variant::CreateObject("ADOX.Catalog"); //取得物件

if (FileExists(MDBFileName)) DeleteFile(MDBFileName);

AccessMDB.OleProcedure("Create",ConnectionString.c_str()); //建立檔案
AccessMDB = Unassigned;

}

執行後,按下按鈕即可產生一空白的 test.mdb 檔案

■ BCB 5.0

由於 BCB 5.0 並未對 ADOX 物件有現成的宣告式 , 所以稍微麻煩點 , 要自行建立一個名為 ADOX_TLB.h 的宣告檔 , 步驟如下

1. 開啟 BCB 5.0 , 照以上 BCB 6.0 步驟全部做一次 , 完成後不要急著 run (會出現錯誤)
2. Select Project | Import Type Library
3. Choose "Microsoft ADO Ext 2.x for DDL and Security (Version 2.x)"
4. Change "TTable" to "TADOXTable"
5. Change "TColumn" to "TADOXColumn"
6. Change "TIndex" to "TADOXIndex"
7. Press "Create Unit" button to Create ADOX_TLB.cpp & ADOX_TLB.h
8. Close "Import Type Library" window
9. 在主程式 Unit1.cpp 單元前面 , 插入一行宣告 #include "ADOX_TLB.h" 即可 run


如果要在Access2000中新增資料表呢?

站上也有大大已經回答了,請參考:
http://delphi.ktop.com.tw/topic.php?topic_id=24600

kenny23 發表在 痞客邦 PIXNET 留言(0) 人氣()