各位前輩：

我欲撰寫一個簡易在MDB中產生資料表連結的函數Link_MDB，連結是可以連結成功，不過卻發現會產生一個意外狀況
就是連結MDB的.ldb (MicroSoft Office Access 紀錄鎖定資訊檔)，不會自動消失就算我，不知道我函數中哪邊有出錯。
下列為我的函數Source Code 提供給大家參考，MDB真是個讓人又愛又恨得資料庫格式。

unit UNT_MS_Access_MDB;

interface
uses
SysUtils, Windows, ComObj, ActiveX, ADOX_TLB, ADODB, Forms;

function Link_MDB(Source_MDB_Name: string; Target_MDB_Name: string; TableName: string; DB_PASSWORD: string = ''): boolean;

implementation

function Link_MDB(Source_MDB_Name: string; Target_MDB_Name: string; TableName: string; DB_PASSWORD: string): boolean;
var
StrDataPath: string;
Cnt_S: TADOConnection;
catDB: Catalog;
TableIndex: Integer;
tblNew: Table;
IsMDBTable: Boolean;

begin
StrDataPath := ExtractFilePath(Application.ExeName) '\';

Cnt_S := TADOConnection.Create(nil);
Cnt_S.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;'
'Password="";'
'User ID=Admin;'
'Data Source=' Target_MDB_Name ';'
'Mode=Share Deny None;'
'Extended Properties="";'
'Jet OLEDB:System database="";'
'Jet OLEDB:Registry Path="";'
'Jet OLEDB:Database Password="' DB_PASSWORD '";'
'Jet OLEDB:Engine Type=5;'
'Jet OLEDB:Database Locking Mode=1;'
'Jet OLEDB:Global Partial Bulk Ops=2;'
'Jet OLEDB:Global Bulk Transactions=1;'
'Jet OLEDB:New Database Password="";'
'Jet OLEDB:Create System Database=False;'
'Jet OLEDB:Encrypt Database=False;'
'Jet OLEDB:Don''t Copy Locale on Compact=False;'
'Jet OLEDB:Compact Without Replica Repair=False;'
'Jet OLEDB:SFP=False';
Cnt_S.LoginPrompt := false;
Cnt_S.open;

// 利用 ADOX 組物件來動態產生 Access Table
// 須先 import type library -> Microsoft Jet and Replication Objects 2.5 Library (Version 2.5)
catDB := CoCatalog.Create;
catDB.Set_ActiveConnection(Cnt_S.ConnectionObject);

// 檢查檔案是否存在
IsMDBTable := False;
for TableIndex := 0 to catDB.Tables.Count - 1 do
begin
if (catDB.Tables[TableIndex].Name = TableName) then
begin
IsMDBTable := True;
Exit;
end;
end;

if IsMDBTable = True then
begin
catdb.Tables.Delete(TableName);
end;

tblNew := nil;
tblNew := CoTable.Create;
tblNew.Name := TableName;
tblNew.ParentCatalog := catDB;

tblNew.Properties['Jet OLEDB:Create Link'].Value := True;
tblNew.Properties['Jet OLEDB:Link Datasource'].Value := Source_MDB_Name;
tblNew.Properties['Jet OLEDB:Link Provider String'].Value := 'MS Access;PWD=' DB_PASSWORD ';';
tblNew.Properties['Jet OLEDB:Remote Table Name'].Value := TableName;
catDB.Tables.Append(tblNew);

tblNew.ParentCatalog := nil;
tblNew._Release;
tblNew := nil;
catDB := nil;
catDB._Release;

Cnt_S.Connected := false;
Cnt_S.Close;
Cnt_S.Destroy;
Cnt_S := nil;

result := true;
end;

end.

各位前輩：

我欲撰寫一個簡易在MDB中產生資料表連結的函數Link_MDB，連結是可以連結成功，不過卻發現會產生一個意外狀況
就是連結MDB的.ldb (MicroSoft Office Access 紀錄鎖定資訊檔)，不會自動消失就算我，不知道我函數中哪邊有出錯。
下列為我的函數Source Code 提供給大家參考，MDB真是個讓人又愛又恨得資料庫格式。

我發現你說 「// 須先 import type library -> Microsoft Jet and Replication Objects 2.5 Library (Version 2.5)」這好像有錯，應該是「Microsoft ADO Ext. 2.x for DDL and Security」才對，那裡面才有Table, Catalog等元件。

tblNew.ParentCatalog := nil;

//這裡要加入幾行程式，我要放入的是對應我bcb的程式碼，請你自己改成delphi的

Variant vv;
vv = cat->get_ActiveConnection();
vv.OleFunction("Close");

//就我所知，delphi裡應該用的是OleVariant，簡單講，原理就是使用cat->get_ActiveConnection();傳回一個Variant物件，然後強硬使用它Close的方法!如果成功了，你下面的一堆nil，false，close，destroy應該都可以省了，但_Release 要留著。你也許會想…可是我下面有用 Cnt_S.Connected := false; Cnt_S.Close;但意義有些不一樣。先試試看吧!

tblNew._Release;
tblNew := nil;
catDB := nil;
catDB._Release;

Cnt_S.Connected := false;
Cnt_S.Close;
Cnt_S.Destroy;
Cnt_S := nil;

result := true;
end;

end.

aftcast前輩：

感謝您的回應，其實我也沒多大長進，只是找了網路上找程式碼，想到達成自己的目標而已，

我試了您所說得方法，不過他會出現Microsoft Jet 資料庫引擎無法找對輸入的查詢或資料表

vv := catdb.Get_ActiveConnection();
vv.OleFunction('Close');

我加上的語法如上，不過錯誤在哪其實我也不知道，JET資料庫底層其實我也沒有了解很透徹，
只是我知道MDB有個特性，使用連結的方式來操作資料表，可以減少MDB毀損的機會，因為自己
死過太多mdb的檔案了都怕了。

我想了一個很不爭氣的作法，因為ldb檔案其實會自己產生的，我想若我無法解決的話，直接下達
刪除檔案的方式將其刪除，不過我知道這種作法治標不治本，但是有時候想想，我只是要寫個資料庫
程式就要了解好多相關技術，就好像要吃一晚牛肉麵，就要學會殺牛一樣，真是疲憊。

不過有aftcast前輩的回應，雖然有時無力只想在Ktop找到不求甚解的但解決程式碼，
但是我要達到您的境界，我只好學習從臨摹開始，我會繼續努力的！

不要灰心。你試著想說用刪的…我也曾想過，但行不通，因為在同一個程序裡你就是無法刪它。除非你離開程式後，再跑另外的程式來砍!
我也是試了好幾回，我覺得應該是可以成功的，只是我手邊沒有delphi。問題是型別的問題嗎? 事實上我用了三種方式試過都可以成功，你要不要試看看別的二種? 另外，delphi中你是用OleVariant嗎? 還有，compile時有錯嗎? 還是沒錯，直到run time 時才出錯?
//另一種
Variant v;
cat->get_ActiveConnection(v);
v.OleFunction("Close");

//又另外一種
Variant *v = reinterpret_cast(&cat->get_ActiveConnection());
// 上面的 reinterpret_cast 在cpp中是指強硬轉型成Variant *v , * 是指標，在delphi應該是 ^
v->OleFunction("Close");

整個問題是你要把它轉型成功，通常只要compile有過，應該就沒問題!

加油!