/ Snippet Library - View Code

Snippet details

ID: 311

Viewed: 1310

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Class to log into SQL Server with RDO

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllOption Explicit Public Server As String Public Database As String Public User As String Public Password As String Public env As rdo.rdoEnvironment
Code
Highlight All'RDO Enviroment Public cn As rdo.rdoConnection 'RDO Connection Variable for SQL Database Public Function ConnectRemote() As Boolean On Error GoTo ConnectRemote_Error Dim sConnect As String sConnect = "DRIVER={SQL Server};SERVER=" & Me.Server _ & ";UID=" & Me.User & ";PWD=" & Me.Password & ";DATABASE=" & Me.Database & ";" Set env = rdoEnvironments(0) env.CursorDriver = rdUseClientBatch Set cn = env.OpenConnection("", rdDriverNoPrompt, False, sConnect, rdAsyncEnable) With cn While .StillConnecting DoEvents Wend End With Call SaveSetting(App.Title, "Startup", "ConnectionVersion", cn.Version) Call SaveSetting(App.Title, "Startup", "LastConnected", Now) ConnectRemote = True ConnectRemote_Exit: Exit Function ConnectRemote_Error: 'Err.Raise goes here... Call SaveSetting(App.Title, "StartUp", "LastError", Err & ":" & Err.Description) ConnectRemote = False Resume ConnectRemote_Exit End Function

No Reviews to show