Change de default connectionstring at startup

[Dalis]

Hello,

At the open of an access application (ADP).
How can I can change the default connectionstring so that I can access another server and/or SQL DB.
In VBA of course !

Reagrds,

Chris

 

[chrissie1]

I cant check if it is correct but try currenproject.connection

 

[Dalis]

Chrissie,

In this case the DB will be in read only because the property connection is a copy of the original ADO connection.

Chris

 

[cmmrfrds]

Here is a function that you can paste into the standard module to check it out. Just change your server name.


Function aokay()
Dim conString As String, conString2 As String

Debug.Print CurrentProject.Connection

conString = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=Northwind;Data Source=bigtuna"

conString2 = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=Pubs;Data Source=bigtuna"

CurrentProject.CloseConnection
CurrentProject.OpenConnection (conString)
Debug.Print CurrentProject.Connection

CurrentProject.CloseConnection
CurrentProject.OpenConnection (conString2)
Debug.Print CurrentProject.Connection

End Function