Article ID: 851887
This article describes the information needed for a poject needs to be displayed on a particular window will have to be retrieved through an ADO connection.
The first option would be to hard code the User ID, Password, Database name and the Data Source name. An example of this would be as follows:
(This connection string would be all on one line in VBA)
The DSN would be the ODBC data source that is setup to the SQL Server. In this example the password is blank. The Initial Catalog is the name of the database where the data is located.
If do not want to hard code this information, there is a dll file that can be used to retrieve all this information. This .dll file can be found on PartnerSource or CustomerSource under Downloads & Updates | Product Releases | Continued in eEnterprise Product Releases | Modifier/VBA Samples. The file is called .
The readme file that is included will show you how to declare the variables to use the dll file. An example of code would declare variables and then use the variables in the connection string.
Dim userinfo As Object
Dim luserid As String
Dim lsqlpassword As String
Dim lintercompanyid As String
Dim lsqldatasourcename As String
This code would be on a window open event.
Set userinfo = CreateObject("RetrieveGlobals.retrieveuserinfo")
luserid = userinfo.retrieve_user()
lsqlpassword = userinfo.sql_password()
lintercompanyid = userinfo.intercompany_id()
lsqldatasourcename = userinfo.sql_datasourcename()
Then in the connection string you would use the variables.
(This .connection string would be all on one line in VBA)
Using this type of connection string with the retrieve.dll, it will retrieve the user's name, password, the company they are logged into and the datasource they are using.
This article was TechKnowledge Document ID: 22116
Article ID: 851887 - Last Review: October 15, 2011 - Revision: 3.0
Retired KB Content Disclaimer
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.