home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / object10 / vbsoerr.frm < prev    next >
Text File  |  1994-11-20  |  3KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form frmOraError 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "VB*SQL Error"
  5.    ClientHeight    =   1440
  6.    ClientLeft      =   1740
  7.    ClientTop       =   5895
  8.    ClientWidth     =   6675
  9.    Height          =   1845
  10.    Left            =   1680
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   1440
  14.    ScaleWidth      =   6675
  15.    Top             =   5550
  16.    Width           =   6795
  17.    Begin TextBox txtError 
  18.       Height          =   1215
  19.       Left            =   720
  20.       MultiLine       =   -1  'True
  21.       ScrollBars      =   2  'Vertical
  22.       TabIndex        =   2
  23.       Top             =   120
  24.       Width           =   4575
  25.    End
  26.    Begin CommandButton Help 
  27.       Caption         =   "Help"
  28.       Height          =   495
  29.       Left            =   5400
  30.       TabIndex        =   1
  31.       Top             =   720
  32.       Width           =   1215
  33.    End
  34.    Begin CommandButton OK 
  35.       Caption         =   "OK"
  36.       Default         =   -1  'True
  37.       Height          =   495
  38.       Left            =   5400
  39.       TabIndex        =   0
  40.       Top             =   120
  41.       Width           =   1215
  42.    End
  43.    Begin Image Image1 
  44.       Height          =   480
  45.       Left            =   120
  46.       Picture         =   VBSOERR.FRX:0000
  47.       Top             =   360
  48.       Width           =   480
  49.    End
  50. End
  51. Option Explicit
  52.  
  53. Sub Cancel_Click ()
  54.  OraSession.LastServerErrReset
  55.  Unload frmOraError
  56. End Sub
  57.  
  58. Sub Form_Load ()
  59.  
  60.  Call CenterForm(frmOraError)
  61.  txtError = ""
  62.  
  63.  'If I get an error on login, the database object won't
  64.  'be created yet.
  65.  On Error GoTo nodb
  66.  If OraDatabase.LastServerErr <> 0 Then
  67.   App.HelpFile = "ORA.HLP"
  68.   txtError = txtError & OraDatabase.LastServerErrText
  69.   frmOraError.HelpContextID = OraDatabase.LastServerErr
  70.  End If
  71.  
  72.  If OraSession.LastServerErr <> 0 Then
  73.   App.HelpFile = "ORA.HLP"
  74.   txtError = txtError & OraSession.LastServerErrText
  75.   frmOraError.HelpContextID = OraSession.LastServerErr
  76.  End If
  77.  
  78.  If OraSession.LastServerErr = 0 And OraDatabase.LastServerErr = 0 Then
  79.   txtError = "VB:" & Trim$(Str$(Err)) & " - " & Error$
  80.  End If
  81.  
  82.  Exit Sub
  83.  
  84. nodb:
  85.  
  86.  If OraSession.LastServerErr <> 0 Then
  87.   App.HelpFile = "ORA.HLP"
  88.   txtError = txtError & OraSession.LastServerErrText
  89.   frmOraError.HelpContextID = OraSession.LastServerErr
  90.  Else
  91.   txtError = "VB:" & Trim$(Str$(Err)) & " - " & Error$
  92.  End If
  93.  
  94.  Exit Sub
  95.  
  96. End Sub
  97.  
  98. Sub Help_Click ()
  99.  'Send an F1 to the app which will cause the help file
  100.  'listed in the project options to be opened.
  101.  SendKeys "{F1}"
  102. End Sub
  103.  
  104. Sub OK_Click ()
  105.  App.HelpFile = ""
  106.  Unload frmOraError
  107. End Sub
  108.  
  109.