如何利用VB6.0查询数据库内各表之间的是否存在关系以及如何建立关系?

Public Function HasThisRelation(RelName As String) As Boolean

Dim Rel As Relation

For Each Rel In gDataBase.Relations
    If Rel.Name = RelName Then
        HasThisRelation = True
        Exit Function
    End If
Next
HasThisRelation = False

End Function
这个是利用DAO进行查询的,我想知道如果用ADO该怎么做呢?

1个回答

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐