Office中國(guó)論壇/Access中國(guó)論壇 › Access中國(guó)門(mén)戶舊版 ›Access› DAOADOADP鏈接表DBMS › 查看內(nèi)容

用DAO代碼刪除表間的關(guān)系

2010-1-23 08:46| 發(fā)布者: admin| 查看: 2513| 評(píng)論: 0

Sub TestDelRela()
    Dim i As Long
    Dim x As Long
    Dim strRela As String    '關(guān)系的名稱
    Dim db As DAO.Database
    Set db = CurrentDb
    i = db.Relations.Count
    For x = 1 To i
        strRela = db.Relations(i - 1).Name '關(guān)系的名稱
        MsgBox "第" & i & "個(gè)關(guān)系的名稱為：" & strRela
        db.Relations.Delete strRela    '刪除這個(gè)關(guān)系
    Next x
End Sub

收藏分享邀請(qǐng)

上一篇：VB通過(guò)DAO訪問(wèn)Access數(shù)據(jù)庫(kù)下一篇：ACCESS做前臺(tái)，后臺(tái)用SQL Server的方法

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

用DAO代碼刪除表間的關(guān)系

相關(guān)分類