in category
Search All
Tutorials
.Net
ASP
C/C++
ColdFusion
Delphi
DHTML
HTML
Java
Javascript
Perl
PHP
VBScript
Visual Basic
XML
Visual Basic
/
Database
/ Login (ADO)
Snippet details
ID:
309
Viewed:
1348
Added:
2002-08-19
Version:
User Rated at:
Rate This:
Select a rating...
5 .. Best
4
3 .. Average
2
1 .. Worst
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
Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.
Subject:
Reviewed By:
Write a review:
Terms of Conditions
Powered By
© 2005
snippetlibrary.com
All Rights Reserved.