Dim pGP As Geoprocessor = New Geoprocessor Dim pFC2FC As FeatureClassToFeatureClass = New FeatureClassToFeatureClass Dim pWS As IWorkspace = m_pGbWSF.Open(m_Conn.pgdbProperty, 0) Dim pEnumDataset As IEnumDataset Dim pDataset As IDataset Dim pFC As IFeatureClass Dim pQfilter As IQueryFilter = New QueryFilter Try pEnumDataset = pWS.Datasets(esriDatasetType.esriDTFeatureClass) pQfilter.WhereClause = Svc_CatchBasin.c_Fld_Appstatus & " in (1,2,3)" pEnumDataset.Reset() pDataset = pEnumDataset.Next() 'Convert any point not 0 to the local archive PGB Do Until pDataset Is Nothing If pDataset.Name = "CATCH_BASIN_PT" Then pFC = pDataset If pFC.FeatureCount(pQfilter) > 0 Then pFC2FC.in_features = pFC pFC2FC.out_path = m_Conn.archiveProperty.GetProperty("DATABASE") pFC2FC.out_name = "CB_" & Format(Microsoft.VisualBasic.Now, "MMddyy_hhmmss").ToString pFC2FC.where_clause = "[" & Svc_CatchBasin.c_Fld_Appstatus & "]" & " in (1,2,3)" pGP.Execute(pFC2FC, Nothing) Me.m_ArchiveDone = True End If Exit Do End If pDataset = pEnumDataset.Next() Loop Catch ex As Exception Me.m_ArchiveDone = False MsgBox(ex.Message, MsgBoxStyle.Critical, "Error - Synchronize (ArchiveComplete)") Finally End Try
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.