创建到Oracle的连接

<P>
"******************************************************************
"Function:　SDEConnect will create the connection to SDE Database
"Input :　　Server , Instance,　User,　Password
"Output :　 IFeatureWorkspace struction
"******************************************************************
Public Function SDEConnect(ByVal server As String, _
　　　　　　　　　　　　　 ByVal instance As String, _
　　　　　　　　　　　　　 ByVal user As String, _
　　　　　　　　　　　　　 ByVal password As String) As IFeatureWorkspace
　　　　　　　　　　　　　
On Error GoTo Error_h
　　"Create ArcSDE Connection
　　Dim pPropertyset As IPropertySet
　　Set pPropertyset = New PropertySet
　　
　　"Set SDE DB Connect info here
　　With pPropertyset
　　　　.SetProperty "SERVER", server
　　　　.SetProperty "INSTANCE", instance
　　　　.SetProperty "USER", user
　　　　.SetProperty "PASSWORD", password
　　　　.SetProperty "VERSION", "SDE.DEFAULT"
　　End With
　　"Open WorkSpace
　　Dim pWorkspaceFactory As IWorkspaceFactory
　　Set pWorkspaceFactory = New SdeWorkspaceFactory
　　Dim pFWS As IFeatureWorkspace
　　Set pFWS = pWorkspaceFactory.Open(pPropertyset, 0)
　　"CleanUp
　　Set pPropertyset = Nothing
　　Set pWorkspaceFactory = Nothing
　　Set SDEConnect = pFWS
　　Exit Function
Error_h:
　　Set pPropertyset = Nothing
　　Set pWorkspaceFactory = Nothing
　　MsgBox "SDEConnect()"
End Function </P>

支持，收藏！<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />