home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / objoerr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-20  |  1.7 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form frmObjOraError 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Oracle Error"
  5.    ClientHeight    =   1440
  6.    ClientLeft      =   1740
  7.    ClientTop       =   3780
  8.    ClientWidth     =   6675
  9.    Height          =   1845
  10.    Left            =   1680
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   1440
  14.    ScaleWidth      =   6675
  15.    Top             =   3435
  16.    Width           =   6795
  17.    Begin TextBox txtError 
  18.       Height          =   1215
  19.       Left            =   720
  20.       MultiLine       =   -1  'True
  21.       ScrollBars      =   2  'Vertical
  22.       TabIndex        =   1
  23.       Top             =   120
  24.       Width           =   4575
  25.    End
  26.    Begin CommandButton cmdOK 
  27.       Caption         =   "OK"
  28.       Default         =   -1  'True
  29.       Height          =   495
  30.       Left            =   5400
  31.       TabIndex        =   0
  32.       Top             =   480
  33.       Width           =   1215
  34.    End
  35.    Begin Image Image1 
  36.       Height          =   480
  37.       Left            =   120
  38.       Picture         =   OBJOERR.FRX:0000
  39.       Top             =   360
  40.       Width           =   480
  41.    End
  42. Option Explicit
  43. Sub cmdOK_Click ()
  44.  Unload frmObjOraError
  45. End Sub
  46. Sub Form_Load ()
  47.  Call CenterForm(frmObjOraError)
  48.  txtError = ""
  49.  If OraDatabase.LastServerErr <> 0 Then
  50.   txtError = txtError & OraDatabase.LastServerErrText
  51.  End If
  52.  If OraSession.LastServerErr <> 0 Then
  53.   txtError = txtError & OraSession.LastServerErrText
  54.  End If
  55.  If OraSession.LastServerErr = 0 And OraDatabase.LastServerErr = 0 Then
  56.   txtError = "VB:" & Trim$(Str$(Err)) & " - " & Error$
  57.  End If
  58. End Sub
  59.