home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / storingand2150774272009.psc / sampPic / modDBcon.bas next >
BASIC Source File  |  2009-04-27  |  949b  |  40 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Dim myConnectionString As String
  4. Public libcon As ADODB.Connection
  5. Public profRS  As ADODB.Recordset
  6. Public searchRs As ADODB.Recordset
  7. Public rs As ADODB.Recordset
  8. Public sqlstr As String
  9.  
  10.  
  11.  
  12. Sub dbconnect()
  13.  
  14. On Error GoTo dbconnect_Error
  15.  
  16.  
  17.     Set libcon = New ADODB.Connection
  18.           
  19.       libcon.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
  20.       "SERVER=localhost;" & _
  21.       "DATABASE=samppic;" & _
  22.       "UID=root;" & _
  23.       "PASSWORD= root;" & _
  24.       "OPTION=3;"
  25.     
  26.       libcon.CursorLocation = adUseClient
  27.       libcon.Open
  28.  
  29.  
  30. dbconnect_Exit:
  31. Exit Sub
  32.  
  33. dbconnect_Error:
  34. MsgBox "Unexpected error - " & Err.Number & vbCrLf & vbCrLf & Error$ & vbCrLf & vbCrLf & "Please contact Mr. Carmelo Alejo D. Bisquera." & vbCrLf & "or CALL 078 321 2262. Thank you!", vbExclamation, "NVSU Library System ver 1.1"
  35. End
  36. Resume dbconnect_Exit
  37.  
  38. End Sub
  39.  
  40.