Test Connection at RunTime? 1

[pokermat]

Hello

I have an app which uses several connections within the Data Environment. On loading, the Connection Strings for the connections are read from an .ini file. The idea being that if one server is down there is an alternative server in the ini file.

At design time you can click 'Test Connection' - does anyone know of a way of doing the same thing at run time?

Simply opening the connection (using a bad server name) brings up the Sql Server Login screen which is something I would like to avoid - I would prefer it if the users saw nothing.

Any ideas gratefully received...

 

[sunaj]

Hi,

This works fine for me (no SQL server login screen)

-----------------------------------------------------------
Dim Conn As Connection
On Error GoTo ErrHndl:

Set Conn = New Connection
Conn.Open "Provider=SQLOLEDB;Password=webaccess;Persist Security Info=True;User ID=web;Initial Catalog=Bath;Data Source=Blahblah;Network Library=dbmssocn"

Conn.Close
Exit Sub
ErrHndl:
MsgBox Err.Description
-----------------------------------------------------------
Sunaj
'The gap between theory and practice is not as wide in theory as it is in practice'

 

[pokermat]

Thanks sunaj - works a treat.