在 Access 2000 中使用 ADOX 來創(chuàng)建鏈接表的體會
如果要以 SQL Server 作為后端, 可在 Access 中鏈接 SQL Server 的表. 但是, 若想要在應(yīng)用中動態(tài)地改變這一鏈接 (有時的確需要這么做), 就必須用 VBA 來創(chuàng)建和/或更改鏈接表. 我查閱了 MSDN, 但只發(fā)現(xiàn)用 ADOX 或 DAO 來創(chuàng)建表的內(nèi)容, 而沒有涉及到鏈接表, 所以一直解決不了.
最近看了一本書, "Access 2002 開發(fā)實用全書", 是電子工業(yè)出版社出版的. 其中的 7.4 節(jié) "用 ADOX 定義數(shù)據(jù)" 恰好講到了如何用 ADOX 創(chuàng)建鏈接表, 雖然其后端仍然是 Access 表, 還是有很大的參考價值. 然而按照書上的代碼, 卻不能得到預(yù)期的結(jié)果, 被創(chuàng)建的表沒能正確地鏈接, 也打不開. 書上的代碼如下:
-----------------------------------------------------------------------
'首先引用 Microsoft ADO Ext. 2.5 For DDL and Security 庫, 然后就能使用
'ADOX 類庫了.
Option Compare Database
Option Explicit
sub CreateLinkTable()
Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.ActiveConnection = CurrentProject.Connection
Dim tbl As ADOX.Table
Set tbl = New ADOX.Table
tbl.Name = "供應(yīng)商_Linked"
Set tbl.ParentCatalog = cat
tbl.Properties("Jet OLEDB:Link Datasource") = "C:\Program " & _ "Files\Microsoft Office\Office\Samples\Northwind.mdb"
tbl.Properties("Jet OLEDB:Remote Table Name") = "供應(yīng)商"
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = Nothing
End Sub
-----------------------------------------------------------------------
程序可以運行, 不會出錯, 但創(chuàng)建的表沒有正確地鏈接, 也無法打開. 究竟是什么原因呢? 經(jīng)過整整一晚的"研究", 終于找到了答案, 原來漏掉了最關(guān)鍵的一行代碼!
我在調(diào)試窗口中測試了從 tbl.Properties(0).name 直到 tbl.Properties(9).name 的所有值, 發(fā)現(xiàn) Jet OLEDB:Link Datasource 是 4, Jet OLEDB:Remote Table Name 是 6, 這兩個屬性我都設(shè)對了. Jet OLEDB:Provider String 是 5, 這個屬性是針對象 SQL Server 這樣的遠(yuǎn)程數(shù)據(jù)庫的, 如果后端是 Access 就用不著. Jet OLEDB:Create Link 是 8, 我覺得這個是最關(guān)鍵的, 馬上測試了 tbl.Properties(8).Value, 發(fā)現(xiàn)是 False, 心中立刻升騰起莫名的喜悅!
我往程序里添加了一行代碼:
tbl.Properties(8) = "True"
......
有興趣的朋友可以試一下鏈接 SQL Server 的表, 也可以試試更改鏈接. 我這里就算是拋磚引玉了
|
| |
|站長郵箱|小黑屋|手機版|Office中國/Access中國
( 粵ICP備10043721號-1 ) 