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

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

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

Public Function DataSet_Register(ByRef pStepProgressor As IStepProgressor, _
　　　　　　　　　　　　　　　　　ByRef pGISDataset As Idataset) As String
　Dim pEnumDataset As IEnumDataset
　Dim pDataset As Idataset
　Dim pVersionedObject As IVersionedObject

On Error GoTo errHandle:

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

　If Not pGISDataset Is Nothing Then
　　Set pVersionedObject = pGISDataset
　　If pVersionedObject.IsRegisteredAsVersioned Then
　　　pStepProgressor.Message = "GIS图层已经注册"
　　Else
　　　pStepProgressor.Message = "GIS图层正在进行版本注册"
　　　pVersionedObject.RegisterAsVersioned True
　　　pStepProgressor.Message = "GIS图层注册成功"
　　End If
　　Set pVersionedObject = Nothing
　End If

　Exit Function

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

End Function