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

H.3.3 Delete Data Using Direct Access Key

The following is a sample program to delete data with the direct access key using the VB .NET.

Data to be Deleted

<course>
  <id>0001</id>
  <name>Business negotiation</name>
  <instructor>
    <first-name>Max</first-name>
    <last-name>cameron</last-name>
  </instructor>
  <capacity>40</capacity>
  <current-auditors>30</current-auditors>
</course>

Defined Direct Access Key

key /course/id/text()

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 SampleDirectAccessDelete

  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 = "DirSvr1"
      service.Port = 33101
      service.ShunsakuFile = "shunsakuFile1"
      service.Connect()

      '' Create ShunKeyRequirement object for deleting data
      Dim keyReq As ShunKeyRequirement = new ShunKeyRequirement()
      keyReq.KeyName = "key"

      '' Add the direct access key of the data to be deleted
      keyReq.Records.Add( new ShunRecord() )
      keyReq.Records( 0 ).Key = "0001"

      ''Update course information
      service.DeleteByKey( keyReq )
      Console.WriteLine( "Deletion complete" )

      '' 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

Deletion complete