HOWTO: Get ADO Default Connection Information

• Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0
• Microsoft Data Access Components version 2.1 SP2

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://www.microsoft.com/data

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=YourTableName"
   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) 

REFERENCES

For definitions of the return values for Mode, State, IsolationLevel, and CursorLocation, please see the include file Adovfp.h included with the sample program Rs2Dbf.exe in the Microsoft Software Library. To download Rs2Dbf.exe, please see the following article in the Microsoft Knowledge Base:

Q192692 SAMPLE: Rs2dbf.exe Converting ADO 2.x Recordset to VFP Cursor

Additional query words:

Keywords : kbADO kbDatabase kbMDAC kbSQL kbVFp500 kbVFp500a kbVFp600 kbGrpFox kbGrpMDAC kbDSupport kbADO210sp2 kbMDAC210SP2
Version : WINDOWS:2.1 SP2,5.0,5.0a,6.0
Platform : WINDOWS
Issue type : kbhowto