home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 September / CHIP_CD_1997_09_PL.iso / software / testsoft / adabas / setup / data.z / Demo.bas < prev    next >
Encoding:
BASIC Source File  |  1996-04-09  |  1.4 KB  |  58 lines
  1. Attribute VB_Name = "basDemo"
  2. ' ADABAS D
  3. ' Personal Edition
  4. ' Copyright ⌐ 1995 Software AG
  5. '
  6. Option Explicit
  7.  
  8. Public Const sODBC = "ODBC;"
  9. Public Const sDSN = "DSN=ADABAS D - MYDB;"
  10. Public Const sUID = "UID=DEMO;"
  11. Public Const SPWD = "PWD=DEMO;"
  12.  
  13. Public sCONNECT As String
  14.  
  15. Global wsMainWS As Workspace
  16. Global dbCurrentDB As Database
  17.  
  18. Public sNL As String
  19.  
  20. Sub Main()
  21.     On Error GoTo Main_Error
  22.     
  23.     sNL = Chr$(10) & Chr$(13)
  24.     
  25.     StatusOpen "Connecting to database."
  26.  
  27.     sCONNECT = sODBC & sDSN & sUID & SPWD
  28.     
  29.     Set wsMainWS = DBEngine.CreateWorkspace("MainWS", "Admin", "")
  30.     Set dbCurrentDB = wsMainWS.OpenDatabase("", False, False, sCONNECT)
  31.  
  32.     StatusClose
  33.     
  34.     frmDemo.Show
  35.     
  36. Main_End:
  37.     Exit Sub
  38.     
  39. Main_Error:
  40.     StatusClose
  41.     If Err.Number = 3151 Then
  42.         MsgBox "Connect to database 'ADABAS D - MYDB' failed. " & Str(Err.Number), vbExclamation, App.Title
  43.     Else
  44.         MsgBox "Run-time error '" & Format$(Err.Number) & "':" & sNL & sNL & Err.Description, vbExclamation, App.Title
  45.     End If
  46.     Resume Main_End
  47. End Sub
  48.  
  49. Sub DisplayError()
  50.     Dim sMessage As String
  51.     
  52.     If Err.Number <> 0 Then
  53.         sMessage = "Error '" & Str(Err.Number) & "':" & Chr$(13) & Chr$(13) & Err.Description
  54.         MsgBox sMessage, , "Error", Err.HelpFile, Err.HelpContext
  55.     End If
  56. End Sub
  57.  
  58.