DOCUMENT:Q176830  22-FEB-2000  [foxpro]
TITLE   :HOWTO: Create a Connection Programmatically
PRODUCT :Microsoft FoxPro
PROD/VER:MACINTOSH:3.0b; WINDOWS:2.5,3.0,3.0b,5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:KbClientServer kbDatabase kbServer kbvfp300 kbvfp500 kbvfp600 kbMDAC250

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0 
 - Microsoft Visual FoxPro for Macintosh, version 3.0b 
 - Microsoft Data Access Components version 2.5 
-------------------------------------------------------------------------------

SUMMARY
=======

Under some circumstances, you may need to modify the properties of a connection
at run time. This article describes each of the properties and the default
values of a connection. The sample code illustrates how to create a connection
and use the DBSETPROP() function to set the properties of a connection
programmatically.

MORE INFORMATION
================

The following table indicates the data types and default values associated with
each of the properties of a connection.

   Property       Connection Designer Label    Data Type   Default Value
   ---------------------------------------------------------------------

   DispLogin        Display Login               Numeric        1
   Asynchronous     Asynchronous Execution      Logical        .F.
   DispWarnings     Display Warnings            Logical        .F.
   BatchMode        Batch Processing            Logical        .T.
   Transactions     Automatic Transactions      Numeric        1
   PacketSize       Packet Size                 Numeric        4096
   Comment                                      Character      ''
   ConnectTimeOut   Connection (sec)            Numeric        15
   IdleTimeOut      Idle (min)                  Numeric        3
   QueryTimeOut     Query (sec)                 Numeric        3
   WaitTime         Wait Time (ms)              Numeric        100

The sample code below creates and modifies the properties of a connection:

      *Begin code
      LOCAL lcconnstring, lcconname, lnconnections, lbconnexists
      lcconnstring    =  "'DSN=PUBS;DATABASE=pubs;UID=sa;PWD='"
      lcconnname      =   "VFPCONN"
      lnconnections   =   0
      lbconnexists    =   .F.
      IF !FILE('VFPCONN.DBC')
      CLOSE DATA ALL
      CREATE DATABASE VFPCONN
      ELSE
      OPEN DATABASE VFPCONN
      ENDIF
      lnconnections=ADBOBJECTS(CONNECTS,'CONNECTION')
      IF lnconnections>0
      FOR i=1 TO ALEN(CONNECTS,1)
      IF UPPER(CONNECTS[i])=lcconnname
      lbconnexists=.T.
      EXIT
      ENDIF
      NEXT
      ENDIF
      IF !lbconnexists
      CREATE CONNECTION &lcconnname CONNSTRING (lcconnstring)
      ENDIF
      * Set connection properties to custom values.
      =DBSETPROP('VFPCONN','Connection','DispLogin', 3)
      =DBSETPROP('VFPCONN','Connection','Asynchronous', .T.)
      =DBSETPROP('VFPCONN','Connection','DispWarnings', .T.)
      =DBSETPROP('VFPCONN','Connection','BatchMode', .F.)
      =DBSETPROP('VFPCONN','Connection','Transactions', 2)
      =DBSETPROP('VFPCONN','Connection','PacketSize',8192)
      =DBSETPROP('VFPCONN','Connection','Comment', 'Comment Added')
      =DBSETPROP('VFPCONN','Connection','ConnectTimeOut', 10)
      =DBSETPROP('VFPCONN','Connection','IdleTimeOut', 0)
      =DBSETPROP('VFPCONN','Connection','QueryTimeOut', 0)
      =DBSETPROP('VFPCONN','Connection','WaitTime',150)
      MODI CONNECTION VFPCONN
      RETURN
      *End code.

After running the program code, a dialog appears titled "Connection
Designer-VPFCONN." Click the Verify Connection button and a message indicating
the connection was successful should appear.

NOTE: In order to use the connection, an ODBC Data source matching the Data
source name specified in the connection string must exist.

If the ODBC Data source does not exist, the following ODBC error message is
returned:

   Connectivity error [Microsoft][ODBC Driver Manager] Data source name not
   found and no default driver specified.

REFERENCES
==========

For additional information, please see the following article(s) in the Microsoft
Knowledge Base:

   Q137445 How to Display View and Connection Properties

   Q132231 Properties You can Access with SQLGETPROP()

Visual FoxPro Help, version 4.00.950; search on: "DBSETPROP()"

Additional query words:

======================================================================
Keywords          : KbClientServer kbDatabase kbServer kbvfp300 kbvfp500 kbvfp600 kbMDAC250 
Technology        : kbHWMAC kbOSMAC kbVFPsearch kbAudDeveloper kbMDACSearch kbMDAC250 kbVFP300bMac kbVFP300 kbVFP300b kbVFP500 kbVFP600 kbVFP500a
Version           : MACINTOSH:3.0b; WINDOWS:2.5,3.0,3.0b,5.0,5.0a,6.0
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.