Microsoft KB Archive/195236

= How To Get ADO Default Connection Information =

Article ID: 195236

Article Last Modified on 7/1/2004

-

APPLIES TO


 * Microsoft Visual FoxPro 5.0 Standard Edition
 * Microsoft Visual FoxPro 5.0a
 * Microsoft Visual FoxPro 6.0 Professional Edition
 * Microsoft Data Access Components 2.1 Service Pack 2
 * Microsoft Data Access Components 2.5
 * Microsoft Data Access Components 2.6

-



This article was previously published under Q195236



SUMMARY
Default connection properties might differ by driver. In your application, it might be important to obtain the ADO version number because you might need to know whether the driver uses server-side or client-side cursors, supports transactions, or opens tables as read-only by default.

The following sample allows you to determine the default connection properties for a driver. It creates a DSN-less connection to an existing driver and displays the default connection properties for that driver.

To use this sample code, you must have Microsoft Data Access Components (MDAC) version 2.x or later installed, which is included in the data components of Visual Studio 6.0 or can it be downloaded from the following Web site:

http://msdn.microsoft.com/dataaccess



MORE INFORMATION
Create and execute the following program, substituting the name of your driver, server, and database in the 'lcConnString' variable:

* The following program creates a DSN-less connection * and shows the defaults for the Connection object for * this specific driver #DEFINE CR CHR(13)

oConnection = CREATEOBJECT("ADODB.Connection") lcConnString = "DRIVER={SQL Server};" + ; "SERVER=YourServerName;" + ; "DATABASE=YourDatabaseName" lcUID = "YourUserID" lcPWD = "YourPassword"

oConnection.OPEN(lcConnString, lcUID, lcPWD)

lcTitle = "Default connection properties" lcText = "Attributes: " + LTRIM(STR(oConnection.ATTRIBUTES)) + CR + ; "Command Timeout: " + LTRIM(STR(oConnection.CommandTimeout)) + CR + ; "Connection String: " + oConnection.ConnectionString + CR + ; "Connection Timeout: " + ; LTRIM(STR(oConnection.ConnectionTimeout)) + CR + ; "Cursor Location: " + ; LTRIM(STR(oConnection.CursorLocation)) + CR + ; "Default Database: " + oConnection.DefaultDatabase + CR + ; "Isolation Level: " + LTRIM(STR(oConnection.IsolationLevel)) + CR + ; "Mode: " + LTRIM(STR(oConnection.Mode)) + CR + ; "Provider: " + oConnection.Provider + CR + ; "State: " + LTRIM(STR(oConnection.State)) + CR + ; "Version: " + oConnection.VERSION

=MESSAGEBOX(lcText)

If the connection is successfully created when you run this program, a message box appears that contains information about the defaults for the connection. Properties such as the cursor location (2 = Server-side cursors, 3 = Client-side cursors) might differ for different drivers.

