LCSession の GetStatus メソッド

このメソッドは、セッションの現在のステータス値を取り出します。

定義位置

LCSession

構文

Call thisSession. GetStatus (statusText, externalCode, externalText)

パラメータ

値	説明
statusText	String、出力 (オプション)。Lotus® Connector のステータスメッセージです。
externalCode	Long、出力 (オプション)。外部エラーコードです。Long。
externalText	String、出力 (オプション)。外部コードに関連付けられた外部メッセージテキストです。

例

Option Public
Uselsx "*lsxlc" 
Sub Initialize
  On Error Goto handler
  Dim session As New LCSession
  Dim src As New LCConnection ("db2") 
  src.Database = "Gold"
  src.UserID = "JDoe"
  REM deliberate bad password
  src.Password = "xyzzy"
  src.Connect
  Print "Connected to DB2."
  End
handler:
  If (session.Status <> LCSUCCESS) Then
    Dim text As String
    Dim extcode As Long
    Dim exttext As String
    Call session.GetStatus (text,  extcode, exttext)
    If (session.Status = LCFAIL_EXTERNAL) Then
      Print "DB2 message: " & exttext & "  code #" & Cstr(extcode)
    Else
      Print "Connector message: " & text
    End If
  Else
    Print Error$
  End If
  End
End Sub

出力例

DB2 message: [IBM][CLI Driver] SQL1403N The username and/or password supplied is incorrect. SQLSTATE=08004 code #-1403