DOCUMENT:Q253882  21-JUL-2000  [foxpro]
TITLE   :HOWTO: Use a DataGrid ActiveX Control in Visual FoxPro
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:6.0
OPER/SYS:
KEYWORDS:kbActiveX kbADO kbContainer kbCtrl kbvfp600 kbVS600sp3 kbGrpDSFox kbDSupport

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

 - Microsoft Visual FoxPro for Windows, version 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

The Microsoft DataGrid control (Msdatgrd.ocx) cannot directly use Microsoft
Visual FoxPro tables as a data source. The DataGrid control can, however, be
bound to an ActiveX Data Objects (ADO) recordset. This article illustrates how
to bind a DataGrid ActiveX control to an ADO recordset from within a Visual
FoxPro application.

You must have Visual Studio Service Pack 3 installed for this code to function.

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

NOTE: The Microsoft DataGrid control has not been tested with and is not
supported by Microsoft Visual FoxPro.

In order to bind a DataGrid ActiveX control to an ADO recordset, a recordset that
can be bookmarked or a client side ADO recordset must first be created. After
this ADO recordset has been created, the DataGrid.DataSource property is used to
bind the control with the ADO recordset, as follows:

   THISFORM.DataGrid1.DATASOURCE=myADORecordSet

1. Create a program file named "Datagrid.prg" (without the quotation marks)
   using the following code:

   PUBLIC OX
   OX=CREATEOBJECT('MYFORM')
   OX.SHOW
   READ EVENTS

   DEFINE CLASS myform AS FORM
      CAPTION = "DataGrid Form"
      HEIGHT = 250
      LEFT = 0
      TOP = 0
      WIDTH = 375
      NAME = "myform"

      ADD OBJECT DataGrid1 AS OLECONTROL WITH ;
         OLECLASS="MSDataGridLib.DataGrid.1",;
         TOP = 25, ;
         LEFT = 25, ;
         HEIGHT = 190, ;
         WIDTH = 325, ;
         NAME = "DataGrid1"

      ADD OBJECT commandbutton1 AS COMMANDBUTTON WITH ;
         TOP=225, ;
         LEFT=275, ;
         HEIGHT=25, ;
         CAPTION="\<Close", ;
         NAME="commandbutton1"

      PROCEDURE INIT
         PUBLIC myconn, myrs
         *!* Create an ADO Connection
         myconn=CREATEOBJECT('ADODB.CONNECTION')
         *!* Use a Client Side Cursor so that a bookmarkable cursor is used.
         myconn.cursorlocation=3 && adUseClient
         *!* Set a connection string to the VFP samples
         lcConnectString="DRIVER=Microsoft Visual FoxPro Driver;" + ;
            "SourceType=DBC;SourceDB="+HOME(2)+"DATA\TESTDATA.DBC;" + ;
            "Exclusive=NO;BackGroundFetch=NO;NULL=NO;Collate=MACHINE"
         *!* Open the connection
         myconn.OPEN(lcConnectString)
         *!* Create an ADO Recordset
         myrs=CREATEOBJECT('ADODB.RECORDSET')
         *!* Set the recordset activeconnection property
         myrs.activeconnection=myconn
         *!* The Recordset inherits the cursorlocation of the connection.
         *!* Use Optimistic locking
         myrs.locktype=3 && adLockOptimistic
         *!* Open the recordset
         myrs.OPEN("SELECT * FROM CUSTOMER",,,,1)
         *!* Bind the Control to the ADO recordset
         THISFORM.DataGrid1.DATASOURCE=myrs
      ENDPROC

      PROCEDURE commandbutton1.CLICK
         myrs.CLOSE
         myconn.CLOSE
         RELEASE myrs
         RELEASE myconn
         RELEASE THISFORM
      ENDPROC

      PROCEDURE UNLOAD
         CLEAR EVENTS
      ENDPROC

   ENDDEFINE

2. Save and run DATAGRID.PRG

If you make a change to a field in the DataGrid control, you might see the
following error:

   Multiple-step operation generated errors. Check each status value.

The fields in the DataGrid are padded with spaces. You might need to press the
DELETE key to remove a space for each character entered or delete the contents
of the entire field before typing.

(c) Microsoft Corporation 2000, All Rights Reserved. Contributions by John Desch,
Microsoft Corporation.


REFERENCES
==========

For additional information regarding ActiveX Controls supported with Microsoft
Visual FoxPro 6.0, click the article number below to view the article in the
Microsoft Knowledge Base:

   Q191222 INFO: ActiveX Controls Supported by Visual FoxPro 6.0

Additional query words:

======================================================================
Keywords          : kbActiveX kbADO kbContainer kbCtrl kbvfp600 kbVS600sp3 kbGrpDSFox kbDSupport 
Technology        : kbVFPsearch kbAudDeveloper kbVFP600
Version           : WINDOWS: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.