home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / vdclass.cls < prev    next >
Encoding:
Text File  |  1995-07-26  |  2.1 KB  |  81 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "VisDataClass"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Attribute VB_Description = "VisData Data Access Server Application"
  9. '---------------------------------------------------
  10. 'this method is used as a call from the
  11. 'add-in stub VDADD16.EXE or VDADD32.EXE
  12. '---------------------------------------------------
  13. Sub VDSetAddIn(ByVal VBInst As Object)
  14.   On Error GoTo LVDErr
  15.     
  16.   'this sets the VB instance handle
  17.   'that is used by the DataFormDesigner form
  18.   Set gobjIDEAppInst = VBInst
  19.   frmMDI.mnuUDataFormDesigner.Visible = True
  20.   frmMDI.mnuDBMakeAddIn.Visible = False
  21.   frmMDI.WindowState = vbNormal
  22.   
  23.   Exit Sub
  24.     
  25. LVDErr:
  26.   MsgBox Error$
  27.   Exit Sub
  28.     
  29. End Sub
  30.  
  31.  
  32. '---------------------------------------------------
  33. 'this method can be called from
  34. 'any vb app through OLE automation as in:
  35. 'Dim x As Object
  36. 'Set x = CreateObject("VisData.VisDataClass")
  37. 'x.VDOpenDatabase "c:\vb\biblio.mdb", "", False
  38. '---------------------------------------------------
  39. Sub VDOpenDatabase(sDatabaseName As String, sConnect As String, bReadOnly As Integer)
  40.   On Error GoTo RVDErr
  41.     
  42.   frmMDI.mnuUDataFormDesigner.Visible = False
  43.   frmMDI.mnuDBMakeAddIn.Visible = False
  44.   
  45.   gnReadOnly = bReadOnly
  46.   If Len(sConnect) = 0 Then
  47.     'must be a Jet MDB
  48.     gsDataType = gsJETMDB
  49.     gsDBName = sDatabaseName
  50.     OpenLocalDB True
  51.   ElseIf UCase(Left(sConnect, 5)) = gsSQLDB Then
  52.     'must be an ODBC database
  53.     gsDataType = gsSQLDB
  54.     'set the other variables for ODBC
  55.     GetODBCConnectParts sConnect
  56.     gsDBName = sDatabaseName
  57.     SendKeys "%FOO{Enter}"
  58.   Else
  59.     'must be a local ISAM database
  60.     gsDataType = sConnect
  61.     gsDBName = sDatabaseName
  62.     OpenLocalDB True
  63.   End If
  64.   
  65.   Exit Sub
  66.     
  67. RVDErr:
  68.   MsgBox Error$
  69.   Exit Sub
  70.   
  71. End Sub
  72.  
  73. '---------------------------------------------------
  74. 'this method simply closes visdata from the client
  75. '---------------------------------------------------
  76. Sub VDClose()
  77.   ShutDownVisData
  78. End Sub
  79.  
  80.  
  81.