home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD50534212000.psc / Database.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-30  |  1.4 KB  |  53 lines
  1. Attribute VB_Name = "Database"
  2. Option Explicit
  3.  
  4. Sub ConnectToDatabase( _
  5.     ByRef robjConnection As ADODB.Connection)
  6. '**************************************
  7. 'purpose:connect to db
  8. 'inputs:objConnection--connection to
  9. '       use
  10. 'returns:NONE
  11. 'explanation:NONE
  12. '**************************************
  13.     
  14.     If gobjConnection Is Nothing Then
  15.         Set gobjConnection = New ADODB.Connection
  16.     
  17.         On Error GoTo lblConnectError
  18.         gobjConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/" & "WebAgent.mdb;Persist Security Info=False", _
  19.                 , , adAsyncConnect
  20.         On Error GoTo 0
  21.         
  22.         'loop while connecting
  23.         Do While (gobjConnection.State And adStateConnecting)
  24.             DoEvents
  25.         Loop
  26.     
  27.     End If
  28.  
  29.     Set robjConnection = gobjConnection
  30.     
  31. Exit Sub
  32. lblConnectError:
  33.     Err.Raise Err.Number, Err.Source, Err.Description, _
  34.         Err.HelpFile, Err.HelpContext
  35.         
  36. End Sub
  37.  
  38. Sub DisconnectFromDatabase( _
  39.     ByRef robjConnection As ADODB.Connection)
  40. '**************************************
  41. 'purpose:disconnect from db
  42. 'inputs:objConnection--connection to
  43. '       use
  44. 'returns:NONE
  45. 'explanation:NONE
  46. '**************************************
  47.  
  48.     'close connection
  49.     'robjConnection.Close
  50.     'Set robjConnection = Nothing
  51.  
  52. End Sub
  53.