Refresh/Reconnect to SQL Server

[lauren quantrell]

I'm using Access 2K's built-in connection method (FILE>CONNECTION) with
the Windows NT Integrated Security login option to establish my server
connection. Is there a way in code to refresh or reconnect to this
connection?

[Br]

lauren quantrell <la*************@hotmail.com> wrote:

I'm using Access 2K's built-in connection method (FILE>CONNECTION)
with the Windows NT Integrated Security login option to establish my
server connection. Is there a way in code to refresh or reconnect to
this connection?

Have you looked at the Northwind project sample?

I use some code on startup to check that there is a valid connection. If
there is no connection it opens the connection form. You can call up the
connention form using "DoCmd.RunCommand acCmdConnection".
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[lauren quantrell]

Thanks, but I'm not interested in presenting the user with the
connection form. That would cause all manner of havoc!
What I am trying to do is, in VBA code, re-establish this connection.
lq

[Tom van Stiphout]

On 2 Aug 2005 20:01:08 -0700, "lauren quantrell"
<la*************@hotmail.com> wrote:

There should be no need to do this, unless you want to *re*connect,
presumably to a different data source.
If your SQL Server is static, you connect once and forget about it.

-Tom.

Thanks, but I'm not interested in presenting the user with the
connection form. That would cause all manner of havoc!
What I am trying to do is, in VBA code, re-establish this connection.
lq

[lauren quantrell]

I have users experiencing "Connection Failure" messages over a WAN.
What I want to do is to test the connection before executing some
UPDATE/INSERT stored procedures and if the connection doesn't exist,
attempt to reconnect before executing them.
lq

[lylefair]

This code is in a standard module. I call it from my opening form:
Public Sub LetConnectionString()
With CurrentProject
If Not .IsConnected Then
.OpenConnection ("PROVIDER=SQLOLEDB.1;" _
& "INTEGRATED SECURITY=SSPI;" _
& "INITIAL CATALOG=FFDBAESO;" _
& "DATA SOURCE=ITSERVER9")
End If
End With
End Sub
It's intended to change the connection for the development copy to the
connection for the production copy, but it should work in the situation
you describe.

[lylefair]

This code is in a standard module. I call it from my opening form:
Public Sub LetConnectionString()
With CurrentProject
If Not .IsConnected Then
.OpenConnection ("PROVIDER=SQLOLEDB.1;" _
& "INTEGRATED SECURITY=SSPI;" _
& "INITIAL CATALOG=FFDBAESO;" _
& "DATA SOURCE=ITSERVER9")
End If
End With
End Sub
It's intended to change the connection for the development copy to the
connection for the production copy, but it should work in the situation
you describe.

[lauren quantrell]

Thanks!

[lauren quantrell]

Thanks!

[Br]

lauren quantrell <la*************@hotmail.com> wrote:

I have users experiencing "Connection Failure" messages over a WAN.
What I want to do is to test the connection before executing some
UPDATE/INSERT stored procedures and if the connection doesn't exist,
attempt to reconnect before executing them.
lq

To test if there is a connection use: CurrentProject.IsConnected

To get the current connect string use:
CurrentProject.BaseConnectionString

To reconnect use: CurrentProject.OpenConnection strConnectString

In my routines I do other things like trying to start the SQL server if
it's stopped, testing to see the database exists on the server......
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[Br]

lauren quantrell <la*************@hotmail.com> wrote:

I have users experiencing "Connection Failure" messages over a WAN.
What I want to do is to test the connection before executing some
UPDATE/INSERT stored procedures and if the connection doesn't exist,
attempt to reconnect before executing them.
lq

To test if there is a connection use: CurrentProject.IsConnected

To get the current connect string use:
CurrentProject.BaseConnectionString

To reconnect use: CurrentProject.OpenConnection strConnectString

In my routines I do other things like trying to start the SQL server if
it's stopped, testing to see the database exists on the server......
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response