Interstage Shunsaku Data Manager Application Development Guide - Microsoft(R) Windows(R) 2000/ Microsoft(R) Windows Server(TM) 2003 - - UNIX -

H.1.2 Obtaining XML Documents that Match Search Conditions in a Specified Format

Part of the data obtained as search results is sometimes used as additional conditions to perform the next search operation. In this case, it is common to obtain only part of the data as search results instead of the entire data.

The example below shows how to use the VB .NET to find out how many hotels match the date and location specified as the search condition, as well as to get partial information.

Search Conditions

'I want to know the names and rates of up to 30 hotels that have a vacancy on 2006/07/18.

Specify the date (2006/07/18) and the location (Sydney) as search conditions. Also specify the hotel name and rate for the search result, and execute the search.

An Example of Using the APIs

The following is a sample program using the VB .NET.

Imports System
Imports Fujitsu.Shunsaku
Imports System.ComponentModel

Class SampleSearch

  Shared Public Function Main( ByVal args() As String ) As Integer
    Dim service As ShunService = Nothing

    Try
      '' Create ShunService
      service = new ShunService()

      '' Connect Shunsaku by specifying the host name and port number
      service.Host = "DirSrv1"
      service.Port = 33101
      service.Connect()

      '' Create ShunSearchRequirement

      Dim req As ShunSearchRequirement = new ShunSearchRequirement()
      
      '' Set each type of search conditions
      req.QueryExpression = "/document {/base/city == 'Sydney' AND /information/date == '2006/07/18'}"
      req.ReturnExpression = "/document/base/name, /document/base/price"
      req.ReplyNumber = 1
      req.RequestCount = 30
      
      '' Specify the search condition and execute the search
      Dim rs As ShunResultSet = service.Search( req )

      '' Display the search results
      Console.WriteLine( "Number of hits  = {0}", rs.HitCount )
      Dim i As Integer = 0
      For Each record As ShunRecord In rs.Records
        i += 1
        Console.WriteLine( "[Result] Item No. {0} = {1}", i, record.Data )
      Next
      
      '' Close the connection to Shunsaku
      service.Disconnect()
    
    Catch e As ShunContinuousException
      '' Processing to perform if ShunContinuousException occurs
      Try
        If Not service Is Nothing And service.State = ShunConnectionState.Open Then
          service.Disconnect()
        End If
      Catch ex As ShunException
        Console.WriteLine( "Error message : {0}", ex.Message )
      End Try
      Console.WriteLine( "Error message : {0}", e.Message )
    
    Catch e As ShunConnectionTerminatedException
      '' Processing to perform if ShunConnectionTerminatedException occurs
      Console.WriteLine( "Error message : {0}", e.Message )

    End Try
  End Function
End Class

Execution Results

Number of hits       = 3
[Result] Item No. 1 = <document><name>Hotel 1</name><price>350</price></document>
[Result] Item No. 2 = <document><name>Hotel 2</name><price>150</price></document>
[Result] Item No. 3 = <document><name>Hotel 3</name><price>250</price></document>