備考
戻り値は、次の3つの状態のいずれか1つを示します。
NULL
の場合は、Oracle Call Interface(OCI)データベース・ファンクションが、最新のLastServerErrReset
プロパティ以降エラーを戻していないことを示します。
NULL
以外の値は、OCIファンクションがエラー・コードを戻したことを示します。戻された文字列は関連メッセージです。
メッセージが空の場合は、追加情報がないことを示します。
例
この例では、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