home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / intelligen2113015162008.psc / Mod_DataBase.bas < prev    next >
BASIC Source File  |  2008-05-14  |  1KB  |  35 lines
  1. Attribute VB_Name = "Mod_DataBase"
  2. Option Explicit
  3.  
  4. Public Function ConnectDataBase(sDBPath As String, Optional sPassWord As String) As ADODB.Connection
  5. Dim cnADO As New ADODB.Connection
  6. Dim strconnect As String
  7.     Set cnADO = New ADODB.Connection
  8.     If Len(sPassWord) Then
  9.         'cnADO.Provider = "Microsoft.Jet.OLEDB.4.0;"
  10.         'strconnect = "Datasource=" & sDBPath & ";Password=" & sPassWord & ";"
  11.     strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  12.                    "Data Source=" & sDBPath & ";" & _
  13.                    "Jet Oledb:Database Password=" & sPassWord & ";" '& _
  14.                    '"Persist Security Info=False;"
  15.     Else
  16.         'cnADO.Provider = "Microsoft.Jet.OLEDB.4.0;"
  17.         strconnect = sDBPath
  18.             strconnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sDBPath & ";"                    '& _
  19.                    '"Jet Oledb:Database Password=" & sPassWord & ";" & _
  20.                    '"Persist Security Info=False;"
  21.     End If
  22.     
  23.     cnADO.ConnectionString = strconnect ' sDBPath ' m_sDatabaseName
  24.     cnADO.Open
  25.     Set ConnectDataBase = cnADO
  26. End Function
  27.  
  28. Public Function CloseDatabase(cnAD As ADODB.Connection)
  29.     If Not cnAD Is Nothing Then
  30.         cnAD.Close
  31.     End If
  32. End Function
  33.  
  34.  
  35.