ArcSDE Geodatabse进行GIS图层反注册的方法及代码

ArcSDE Geodatabse为我们的GIS二次开发带来了极大的方便,上文我们讲解了如何注册,本文以实际代码讲解ArcSDE Geodatabse如何进行GIS图层反注册,希望能够给你带来帮助.

关键字:反注册 ArcSDE Geodatabse GIS图层反注册

Public Function DataSet_Unregister(ByRef pGISDataset As Idataset) As String
　Dim pEnumDataSet As IEnumDataset
　Dim pDataSet As Idataset
　Dim pVersionedObject As IVersionedObject

On Error GoTo errHandle:

　DataSet_Unregister = "" '过程错误标志 ""正确，"F"错误

　If Not pGISDataset Is Nothing Then
　　Set pVersionedObject = pGISDataset
　　If pVersionedObject.IsRegisteredAsVersioned Then
　　　Debug.Print "GIS图层正在取消注册版本"
　　　pVersionedObject.RegisterAsVersioned False
　　　Debug.Print "GIS图层取消注册成功"
　　Else
　　　Debug.Print "GIS图层已经未注册状态"
　　End If
　　Set pVersionedObject = Nothing
　End If

　Exit Function

errHandle:
　If Err.Number > 0 Then
　　DataSet_Unregister = "F"
　　MsgBox Err.Description, vbInformation, "错误提示"
　Else
　　DataSet_Unregister = "F"
　　MsgBox "取消版本注册失败" & vbCr & vbCr & _
　　Err.Description, vbInformation, "错误提示"
　End If
End Function

（提示：Unregister必须使用该数据的创建用户进行操作）