ArcGIS中应用Expressions标注(Label)之二—使用外部数据库中数据标注要素

标注的具体步骤：

1. 打开ArcMap，添加需要标注的图层。

2. 点击该图层属性（layer properties）对话框中的标注（label）标签，点击Expression按钮。

3. 在Label Expression对话框中，选中Advanced复选框，在Expression框里即可见FindLabel()函数的桩代码。

4. 将光标移至FindLabel后面的括号里，在Label Fields中双击需要使用的字段的字段名。

5. 在Expression表达式里书写VBScript代码（如下）。

6. 通过给函数名赋值返回字符串（例如：FindLabel = aString）。

7.最后点击Verify按钮，验证代码是否正确，如果代码无误，ArcMap将显示标注的样例。

该方法的优点就是迅速，只需几秒钟就可以标注上百个多边形（尽管标注的速度与PC机性能及网络速度有关）。

该方法的缺点是它要创建、打开再关闭数据库连接，并且为地图上的每一个可见要素做查询。需要做很多要素的标注时，这样的动作会使处理速度减慢，增加网络流量。解决此问题的一个方法就是设置可见比例尺（Scale Range）。在LayerProperties对话框的Label标签里，点击Scale Range按钮，定义标注的可见比例尺范围。

VBScript代码如下：
Function FindLabel ( [OBJECTID]  )
    Dim strPrclQry, strInfostrPrclQry = "SELECT OWNER_NAME FROM aTABLE WHERE OBJECTID = ' " & [OBJECTID]  & " ' "Dim ADOConnset ADOConn = createobject("ADODB.Connection")Dim rsPrcl 
    set rsPrcl = createObject("ADODB.Recordset")
    ADOConn.Open "PROVIDER=MSDAORA;Data Source=aDatabaseService;
    User  ID=aUserName;Password=aPassword"
    ADOConn.CursorLocation = 3
    rsPrcl.Open strPrclQry, ADOConn, 3, 1, 1

'如果没有找到记录，则返回空字符串
'如果找到多于一条的记录，则通过"<<More>>"来暗示含有多条业主信息
'可以做循环，直到标注出所有的业主信息
    Select Case rsPrcl.RecordCount
Case -1, 0
    strInfo = ""
Case 1
'只读取第一条记录
    strInfo = trim(rsPrcl.Fields("OWNER_NAME").Value & " ") '在空值的情况下将出错
Case Else
    strInfo = rsPrcl.Fields("OWNER_NAME").Value & "<< More >>"
    End Select
    '关闭连接
    rsPrcl.Close
    ADOConn.Close
    Set rsPrcl = Nothing
    Set ADOConn = Nothing
    '返回字符串用于标注
    FindLabel = strInfo
End Function

注意：在VBScript中，创建任何对象都要使用CreateObject()函数，并且要含有正确库名和对象名（例如：ADODB.Connection）。只要创建了Connection和RecordSet 对象，就可以使用正确的连接字符串打开数据库连接，通过一个正确的SQL语句打开RecordSet，使用带有字段名的RecordSet对象的Value属性获取数据。当获取数据之后，必须确保RecordSet和Connection对象关闭并且置空。