mod_sde.bas

ArcEngine 这是基于AE组件的源代码

Attribute VB_Name = "Mod_SDE"
Private Function SDEAdoCon(User As String, Password As String, Server As String, _
        version As String, Instance As String, Optional Database As String) As ADODB.Connection
    '运用ADO连接找开一个SDE 服务 '
    On Error GoTo SDEConError
    Set SDEAdoCon = New ADODB.Connection
    SDEAdoCon.ConnectionTimeout = 30
    
    Dim sConString As String
    sConString = "Provider=ESRI.GeoDB.OleDB.1;Location=" & Server & ";Data Source=" & Database & _
     ";User Id=" & User & ";Password=" & Password & _
     ";Extended Properties=workspacetype=esriDataSourcesGDB.SdeWorkspaceFactory.1;Geometry=OBJECT" & _
     ";Instance=" & Instance & ";Version=" & version
    SDEAdoCon.Open sConString
    Exit Function
    
SDEConError:
     Dim MSG As String
     ' msg = Gen_Error(SDEAdoCon, pAdoErr)
      MsgBox MSG
     Set SDEAdoCon = Nothing

End Function