vbafor_arcmap导入oracle数据库

'to TOPO_CITYNODE''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub output()
    Dim pMxDoc As IMxDocument
    Set pMxDoc = Application.Document
    Dim pLayerPoint As IFeatureLayer
    Set pLayerPoint = pMxDoc.FocusMap.Layer(0)
    
    'loop through points
    Dim pFeatCursorPoints As IFeatureCursor
    Set pFeatCursorPoints = pLayerPoint.FeatureClass.Update(Nothing, False)
    Dim pFeature1 As IFeature
    Set pFeature1 = pFeatCursorPoints.NextFeature
    Dim jj As Integer
    jj = 0
    
    
     Dim ConnectionString As String
    Dim cnMain As Object
    Dim OraDynaset As Object
    Dim cmd As Object
    
    
    ConnectionString = "Provider=MSDAORA.1;user id=TRAFFIC;password=cscs; Data Source=TRAFFIC;Persist Security Info=False"
     
    Set cnMain = CreateObject("ADODB.Connection")
    Set OraDynaset = CreateObject("ADODB.Recordset")
    cnMain.Open ConnectionString
    OraDynaset.ActiveConnection = cnMain
    Set cmd = CreateObject("ADODB.Command")