home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / A_Simple_M2127789222008.psc / DatabaseEx / modDeclare.bas < prev    next >
BASIC Source File  |  2008-09-22  |  643b  |  26 lines
  1. Attribute VB_Name = "modDeclare"
  2. Option Explicit
  3.  
  4. 'Database Settings...
  5. Public connDB As ADODB.Connection
  6. Public recSet As ADODB.Recordset
  7. Public VIDEO_DB As String
  8.  
  9. 'Log Settings...
  10. Public PATH_DEBUG As String
  11. Public Const FILENAME_DEBUG = "Log"
  12.  
  13. Public Function InitializeAll()
  14. On Error GoTo Err_Handler
  15.  
  16.     VIDEO_DB = "Provider=Microsoft.Jet.OleDB.4.0;Jet OLEDB:Database Password=raja;Data Source=" & App.Path & "\VideoDB.mdb"
  17.     
  18.     PATH_DEBUG = App.Path & "\Logs\"
  19.     
  20.     Exit Function
  21.  
  22. Err_Handler:
  23.     LogError "modDeclare", "InitializeAll", Err.Number, Err.Description, Erl()
  24.     Resume Next
  25. End Function
  26.