/ Snippet Library - View Code

Visual Basic / Database / Login (ADO)

Snippet details

ID: 309

Viewed: 1348

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Interface to log into an Access database using OLEDB or SQL Server using SQL Server's driver, while using ADO 2.1

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Clint LaFever

Snippet By:	Clint LaFever
Declarations
Highlight All'------------------------------------------------------------ ' Author: Clint M. LaFever [lafeverc@saic.com] ' Purpose: Interface to log into an Access database using ' OLEDB or SQL Server using SQL Server's driver, ' while using ADO 2.1 '------------------------------------------------------------ Option Explicit '------------------------------------------------------------ ' CLOGIN Properties '------------------------------------------------------------ Public DataBaseName As String Public ServerName As String Public UserName As String Public Password As String Public cn As ADODB.Connection '------------------------------------------------------------ ' Database type constants '------------------------------------------------------------ Public Enum DATABASE_TYPES SQL_SERVER = 0 MS_ACCESS97 = 1 End Enum '------------------------------------------------------------ ' Called to connect to the specified database, ' based on the values in the public properties '------------------------------------------------------------ Public Function ConnectRemote(Optional dbTYPE As DATABASE_TYPES = 0) As Boolean On Error GoTo ConnectRemote_Error Dim sConnect As String
Code
Highlight All'------------------------------------------------------------ ' Determine database type '------------------------------------------------------------ If dbTYPE = SQL_SERVER Then sConnect = "DRIVER={SQL Server};SERVER=" & Me.ServerName _ & ";UID=" & Me.UserName & ";PWD=" & Me.Password & ";DATABASE=" & Me.DataBaseName & ";" Else sConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & Me.DataBaseName & ";" End If '------------------------------------------------------------ ' Attempt connection '------------------------------------------------------------ Set cn = New ADODB.Connection cn.Open sConnect If cn.State = adStateOpen Then ConnectRemote = True Else ConnectRemote = False End If ConnectRemote = True ConnectRemote_Exit: Exit Function ConnectRemote_Error: SaveSetting App.Title, "StartUp", "LastError", Err & ":" & Err.Description ConnectRemote = False Resume ConnectRemote_Exit End Function

No Reviews to show