Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› DAOADOADP链接表DBMS › 查看内容

用DAO代码删除表间的关系

2010-1-23 08:46| 发布者: admin| 查看: 2490| 评论: 0

Sub TestDelRela()
    Dim i As Long
    Dim x As Long
    Dim strRela As String    '关系的名称
    Dim db As DAO.Database
    Set db = CurrentDb
    i = db.Relations.Count
    For x = 1 To i
        strRela = db.Relations(i - 1).Name '关系的名称
        MsgBox "第" & i & "个关系的名称为：" & strRela
        db.Relations.Delete strRela    '删除这个关系
    Next x
End Sub

收藏分享邀请

上一篇：VB通过DAO访问Access数据库下一篇：ACCESS做前台，后台用SQL Server的方法

帐号		自动登录	找回密码
密码			注册

用DAO代码删除表间的关系

相关分类