access中數(shù)據(jù)表的自動重新聯(lián)接
來源:易賢網(wǎng) 閱讀:637 次 日期:2014-10-22 09:12:14
溫馨提示:易賢網(wǎng)小編為您整理了“access中數(shù)據(jù)表的自動重新聯(lián)接”,方便廣大網(wǎng)友查閱!

用access做應(yīng)用程序,往往做成"數(shù)據(jù)"和"程序"兩個數(shù)據(jù)庫,"數(shù)據(jù)"數(shù)據(jù)庫中只存放數(shù)據(jù)表,"程序"數(shù)據(jù)庫中存放所有的form,query,report,module等,通過表聯(lián)接"程序"數(shù)據(jù)庫可以訪問所有"數(shù)據(jù)"數(shù)據(jù)庫中的表。

當(dāng)我們的應(yīng)用程序更換存儲位置的時候往往失去正確的表聯(lián)接,造成運(yùn)行錯誤。下面的一段程序可以自動找回表聯(lián)接。在我的應(yīng)用中"程序"數(shù)據(jù)庫名字是stockMgr.mdb,"數(shù)據(jù)"數(shù)據(jù)庫名字是stock-Data.mdb

注意: 該程序僅限于"程序"和"數(shù)據(jù)"存放在同一個目錄而且是對應(yīng)單個"數(shù)據(jù)"文件的情況。

Function ReAttachTable()

Dim MyDB As Database, MyTbl As TableDef

Dim cpath As String

Dim datafiles As String, i As Integer

On Error Resume Next

Set MyDB = CurrentDb

cpath = trimFileName(CurrentDb.Name)

datafiles = "stock-data.mdb"

DoCmd.Hourglass True

For i = 0 To MyDB.TableDefs.Count - 1

Set MyTbl = MyDB.TableDefs(i)

If MyTbl.Attributes = DB_ATTACHEDTABLE And Left(MyTbl.Connect, 1) = ";" Then

MyTbl.Connect = ";DATABASE=" & cpath & datafiles

MyTbl.RefreshLink

If Err Then

If vbNo = MsgBox(Err.description & ",繼續(xù)嗎?", vbYesNo) Then Exit For

End If

End If

Next i

DoCmd.Hourglass False

msgbox "Tables relink finish."

End Function

'絕對路徑中去掉文件名,返回路徑

Function trimFileName(fullname As String) As String

Dim slen As Long, i As Long

slen = Len(fullname)

For i = slen To 1 Step -1

If Mid(fullname, i, 1) = "" Then

Exit For

End If

Next

trimFileName = Left(fullname, i)

End Function

在程序啟動或者按鈕動作中調(diào)用即可。

更多信息請查看IT技術(shù)專欄

更多信息請查看數(shù)據(jù)庫
易賢網(wǎng)手機(jī)網(wǎng)站地址:access中數(shù)據(jù)表的自動重新聯(lián)接
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

2025國考·省考課程試聽報名

  • 報班類型
  • 姓名
  • 手機(jī)號
  • 驗證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機(jī)站點 | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
云南網(wǎng)警備案專用圖標(biāo)
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報警專用圖標(biāo)