Private Sub GetSpecialCharacter() 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap '最上位レイヤの取得 Dim pLayer As IFeatureLayer Set pLayer = pMap.Layer(0) Debug.Print pLayer.DataSourceType Dim pDataset As IDataset Set pDataset = pLayer.FeatureClass Dim pSQLSyntax As ISQLSyntax Set pSQLSyntax = pDataset.Workspace Debug.Print "DelimitedIdentifierPrefix", pSQLSyntax.GetSpecialCharacter(esriSQL_DelimitedIdentifierPrefix); "" Debug.Print "DelimitedIdentifierSuffix", pSQLSyntax.GetSpecialCharacter(esriSQL_DelimitedIdentifierSuffix); "" Debug.Print "EscapeKeyPrefix", pSQLSyntax.GetSpecialCharacter(esriSQL_EscapeKeyPrefix); "" Debug.Print "EscapeKeySuffix", pSQLSyntax.GetSpecialCharacter(esriSQL_EscapeKeySuffix); "" Debug.Print "WildcardManyMatch", pSQLSyntax.GetSpecialCharacter(esriSQL_WildcardManyMatch); "" Debug.Print "WildcardSingleMatch", pSQLSyntax.GetSpecialCharacter(esriSQL_WildcardSingleMatch) End Sub
属性検索時の Where 句シンタックスを調べる方法
2016/9/1 (木)