Interstage Shunsaku Data Manager V9.0.6 アプリケーション開発ガイド

H.2.2 データを削除する

データを削除する場合の、VB .NETの使用例を示します。

検索条件

「2006年7月18日に神奈川で宿泊可能なホテルのうち、ホテル９のデータを削除したい。」

年月日(2006年7月18日)および、場所(神奈川)を条件に検索を行い、ホテル名『ホテル９』と一致したデータを削除します。

APIの使用例

以下にVB .NETを使用したプログラミング例を示します。

Imports System
Imports Fujitsu.Shunsaku
Imports System.ComponentModel

Class SampleDelete

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

    Try
      '' ShunService の作成
      service = new ShunService()

      '' ホスト名 ポート番号を指定して Shunsaku に接続
      service.Host = "DirSrv1"
      service.Port = 23101
      service.Connect()

      '' ShunSearchRequirement の作成
      Dim req As ShunSearchRequirement = new ShunSearchRequirement()

      '' 各種検索条件の設定
      req.QueryExpression = "/document/base/prefecture == '新横浜' AND /document/information/date == '2006年07月18日'"
      req.ReturnExpression = "/document/base/name/text()"
      req.ReplyNumber = 1
      req.RequestCount = 30

      '' 検索条件を指定して検索を実行
      Dim rs As ShunResultSet = service.Search( req )

      '' 削除用 ShunRecordCollection を作成
      Dim deleteRecords As ShunRecordCollection = new ShunRecordCollection()

      '' ホテル９のレコードを取得
      For Each record As ShunRecord In rs.Records
        If record.Data = "ホテル９"
          deleteRecords.Add( record )
        End If
      Next

      '' 該当レコードの取得に成功している場合 データを削除
      If deleteRecords.Count > 0
        service.Delete( deleteRecords )
        Console.WriteLine( "削除終了" )
      End If

      '' Shunsaku から切断
      service.Disconnect()
    
    Catch e As ShunContinuousException
      '' ShunContinuousExceptionが発生した場合の処理を記述
      Try
        If Not service Is Nothing And service.State = ShunConnectionState.Open Then
          service.Disconnect()
        End If
      Catch ex As ShunException
        Console.WriteLine( "エラーメッセージ : {0}", ex.Message )
      End Try
      Console.WriteLine( "エラーメッセージ : {0}", e.Message )
    
    Catch e As ShunConnectionTerminatedException
      '' ShunConnectionTerminatedExceptionが発生した場合の処理を記述
      Console.WriteLine( "エラーメッセージ : {0}", e.Message )

    End Try
  End Function
End Class

実行結果

削除終了