Programming with Index Server
Index Server is a very useful tool for querying text within documents. Index Server has its own query form that may be used from within the application, but if you need to integrate Index Server functionality into a web application or a 'back-end' process, you will obviously need to use it programatically. I had difficulties locating a complete source on 'How To Program with Index Server'. So, hopefully here, I can offer a slightly more well rounded resource than what I found.
My first venture into Index Server was a bit difficult. The SQL syntax for Index Server is slightly different than T-SQL, and the objects' properties and methods are not necessarily intuitive. One significant problem I ran into were the differences between the NT Option Pack 4.0 Index Server object (ixsso.dll) and the Windows 2000 Index Server object (Cisso.dll). Not only are the names different (which throws off your declarations), but some of the defaults are different as well. The major difference between the two versions is the Dialect property. In ixsso.dll, the dialect property defaults to 'free text' mode (1). In Cisso.dll, the default dialect is 'phrase mode' (2). Knowing this can save hours in debugging time.
Two objects are required to program with Index Server, the Query object and the Utility object. In the larger example below, I use the Utility object to specify the scope of the query. The scope is the physical location of the documents. This location should be identical to the directory path listed on Index Server for a specific catalog. I had better luck accessing the catalog when the scope referenced a share to the scope location and not the actual path. Once the scope is assigned to the query object, the Utiliy object may be destroyed. The Query object is more robust. In my example, I use the query object for defining custom columns, assigning the query restriction, choosing the columns to be returned, opening the recordset and setting the dialect property. The query method I use in my example is not the sole method for querying Index Server. You may use the more T-SQL like approach:
Select Filename, Size from scope('shallow traversal of "d:\reports"') where contains (contents, '"accounting"') > 0
When using this syntax, the scope may be left empty (this will set the scope to the default) or, as in the example above, you may pass arguments to the scope which dictate the 'universe' of the query. The options are 'shallow traversal of' and 'deep traversal of'. 'Shallow' specifies that only the directory listed in the scope argument will be queried. 'Deep' infers that the specified directory and its children will be included in the query. I have not used this method, but in the examples I have found, this method is mostly used with the ado recordset object. Here is some sample code that may help:
Dim rs as new adodb.recordset Dim CmdText as string CmdText = "select filename from scope('" & chr(34) & scope_arguments & chr(34 & "' where " & _ query_restriction & " order by " & sort_text rs.open CmdText, "provider=msidxs", adOpenForwardOnly
Sub IndexServerQuery() Dim RS As ADODB.Recordset Dim vRestriction As String 'Index Server objects Dim Qry As Cisso.CissoQuery Dim Utl As Cisso.CissoUtil 'instantiate objects Set Qry = New Cisso.CissoQuery Set Utl = New Cisso.CissoUtil 'Adds scope to query - physical location of files Utl.AddScopeToQuery Qry, Scope Set Utl = Nothing With Qry 'Set dialect of query object .Dialect = 1 'Definition of custom properties in Index Server. .DefineColumn "pState (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pState" .DefineColumn "pUpdtYMD (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pUpdtYMD" .DefineColumn "pCountry (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pCountry" .DefineColumn "pAppID (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pAppID" .DefineColumn "pSrcGrp (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pSrcGrp" .DefineColumn "pCrType (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pCrType" .DefineColumn "pYrsExp (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pYrsExp" .DefineColumn "pFullTime (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pFullTime" .DefineColumn "pSalary (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pSalary" .DefineColumn "pDegree (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pDegree" .DefineColumn "pCitizenShip (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pCitizenShip" .DefineColumn "pRgnIDRsdnt (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pRgnIDRsdnt" .DefineColumn "pRgnIDPrfSt (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pRgnIDPrfSt" .DefineColumn "pChannelID (DBTYPE_WSTR) = d1b5d3f0-c0b3-11cf-9a92-00a0c908dbf1 pChannelID" 'colums to be returned by query .Columns = "filename, vpath, pState, pUpdtYMD, pCountry, pAppID, pSrcGrp" 'An example of a query string for Index Server vRestriction = "(@pSrcGrp WB) & (@pUpdtYMD >'2000-10-04 00:00:01') " & _ "(@Contents ((unix) or (systems administration) or " & _ "(unix systems administrator)))" 'Assign query to Query property .Query = vRestriction 'Location of catalog/index files .Catalog = Catalog 'Returns query results in desired sort order - This is ordering by the 'pUpdtYMD column in desc order .SortBy = "pUpdtYMD[d]" 'opens recordset - may also use 'nonsequential' as a cursor type option Set RS = .CreateRecordset("Sequential") End With With RS Do Until .EOF 'loop through recordset Loop .Close End With 'Housekeeping Set RS = Nothing Set Qry = Nothing End Sub