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
Přihlášení členové mohou přispívat, sledovat aktualizace a další. Jste tu noví? Zaregistrujte si bezplatný účet.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.