协作应用程序标记语言 CAML点滴(二)

一个简单的CAML检索程序

 

Imports System

Imports System.Collections.Generic

Imports System.Text

Imports Microsoft.SharePoint

 

 

Class CAMLQuery

 

   Sub Main(ByVal args() As String)

        Dim ServerName As String = args(0)

        Dim SiteName As String = args(1)

        Dim listName As String = args(2)

        Dim viewName As String = args(3)

        Dim site As SPSite = New SPSite(ServerName)

        Dim web As SPWeb = site.OpenWeb(siteName)

 

        Dim myList As SPList = web.Lists(listName)

 

        Dim query As SPQuery = New SPQuery(myList.Views(viewName))

       

        query.Query = "<query string>"

 

        Dim filteredList As SPListItemCollection = myList.GetItems(query)

        Dim i As SPListItem

 

        For Each i In filteredList

 

          System.Diagnostics.Debug.WriteLine(i("Title").ToString() + " " + i("Salary").ToString() + " " + i("StartDate").ToString())

 

        Next

        Console.ReadLine()

End Sub

 

End Class

 

 

有几点要特别小心

1：Field名中最好全部是字母，不要用特殊字符包括空格，因为特殊字符需要转换。

例如：“Start Date”被转换成 “Start_x0020_Date”

 

2:  Field名一旦确定，最好不要更名，因为内部还是使用旧名。容易混淆。

 

3: 如果field type是hyperlink时，被检索出的结果，指向本地的url 会是相对路径，而不是绝对路径。

 

讲到CAML不可不提大名鼎鼎的U2U CAML Query Builder（http://www.

u2u.info/SharePoint/U2U%20Community%20Tools/Forms/AllItems.aspx.）。对开发CAML程序而言，这是一个非常有用的工具。从网上拷贝二张截图，分别是用这个工具进行检索和检索结果。