---

LastServerErrTextプロパティ

適用対象

OraDatabaseオブジェクト

OraSessionオブジェクト

説明

指定したオブジェクトの現在のLastServerErrプロパティに関連付けられているテキスト形式のメッセージを戻します。設計時には使用できません。実行時は読取り専用です。

使用方法

error_text = orasession.LastServerErrText
error_text = oradatabase.LastServerErrText

データ型

String

備考

戻り値は、次の3つの状態のいずれか1つを示します。

1. NULLの場合は、Oracle Call Interface(OCI)データベース・ファンクションが、最新のLastServerErrResetプロパティ以降エラーを戻していないことを示します。

2. NULL以外の値は、OCIファンクションがエラー・コードを戻したことを示します。戻された文字列は関連メッセージです。

3. メッセージが空の場合は、追加情報がないことを示します。

例

この例では、LastServerErrおよびLastServerErrTextプロパティを使用して、CreateDynasetメソッドの使用時にOracleエラーが発生したかどうかを判断し、エラー・メッセージを表示する方法を示します。このコードをコピーして、フォームの定義セクションに貼り付けてください。次に[F5]を押します。

Sub Form_Load ()
 
 'Declare variables as OLE Objects.
 Dim OraSession As OraSession 
 Dim OraDatabase As OraDatabase 
 Dim OraDynaset As OraDynaset 
 
 'Create the OraSession Object.
 Set OraSession = CreateObject("OracleInProcServer.XOraSession")
 
 'Set up an error handler.
 On Error GoTo errhandler 
 
 'Create the OraDatabase Object by opening a connection to Oracle.
 Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&)
 
 'Attempt to Create the OraDynaset Object.
 'Notice that the FROM keyword is missing from the SQL statement.
 Set OraDynaset = OraDatabase.CreateDynaset("select * emp", 0&)
 
Exit Sub
 
errhandler:
 
 'Check to see if an Oracle error has occurred.
 If OraDatabase.LastServerErr <> 0 Then
  MsgBox OraDatabase.LastServerErrText
 Else 'Must be some non-Oracle error.
  MsgBox "VB:" & Err & " " & Error(Err)
 End If
 
 Exit Sub
 
End Sub

関連項目: LastServerErrプロパティ LastServerErrResetメソッド CreateDynasetメソッド