How To Use a DataCombo ActiveX Control in Visual FoxPro (255790)

MORE INFORMATION

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

In order to bind a DataCombo 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 DataCombo.BoundColumn, DataCombo.ListField, and DataCombo.RowSource properties are used to bind the control with the ADO recordset, as follows:

WITH THISFORM.DataCombo1
   .BOUNDCOLUMN = myrs.FIELDS(0).NAME  && Source Field being bound to
   .ListField = myrs.FIELDS(0).NAME    && Source Display Field
   .ROWSOURCE = myrs                   && Source Recordset
ENDWITH
				

1. Create a program file named DataCombo.prg using the following code:

   oX = CREATEOBJECT('MYFORM')
   oX.SHOW()
   
   READ EVENTS
   
   DEFINE CLASS myform AS FORM
   	CAPTION = "DataCombo Control Form"
   	HEIGHT = 250
   	LEFT = 0
   	TOP = 0
   	WIDTH = 375
   	NAME = "myform"
   
   	ADD OBJECT DataCombo1 AS OLECONTROL WITH ;
   		OLECLASS = "MSDataListLib.DataCombo.1",;
   		TOP		 = 25, ;
   		LEFT	 = 25, ;
   		HEIGHT   = 22, ;
   		WIDTH	 = 175, ;
   		NAME     = "DataCombo1"
   
   	ADD OBJECT textBox1 AS TEXTBOX WITH ;
   		TOP     = 65, ;
   		LEFT    = 25, ;
   		HEIGHT  = 25, ;
   		WIDTH   = 150, ;
   		NAME    = "textBox1", ;
   		CONTROLSOURCE = "demo.cCustName"
   
   	ADD OBJECT commandButton2 AS COMMANDBUTTON WITH ;
   		TOP     = 225, ;
   		LEFT    = 275, ;
   		HEIGHT  = 25, ;
   		CAPTION = "\<Close", ;
   		NAME    = "commandButton2"
   
   	PROCEDURE LOAD
   		#DEFINE adUseClient 3
   		#DEFINE adLockOptimistic 3
   		WITH THIS
   *!*		 Create an ADO Connection to the FoxPro Samples
   			.ADDPROPERTY("oConn")
   			.oConn = CREATEOBJECT("ADODB.CONNECTION")
   
   *!* 	Need a Client Side Cursor for this
   			.oConn.CursorLocation = adUseClient
   
   *!* 	Open the data source - make sure the Samples directory is correctly
   *!* 	set in Tools:Options:File Locations
   			.oConn.OPEN("DRIVER=Microsoft Visual FoxPro Driver;" + ;
   				"SourceType=DBC;SourceDB=" + HOME(2) + "DATA\TESTDATA.DBC;" + ;
   				"Exclusive=NO;BackGroundFetch=NO;NULL=NO;Collate=MACHINE")
   
   *!* 	Create an ADO Recordset to be used as the datasource for the DataCombo control
   			.ADDPROPERTY("oRS")
   			.oRS = CREATEOBJECT("ADODB.RECORDSET")
   
   *!* 	Set the connection property of the recordset
   			.oRS.ActiveConnection = THISFORM.oConn
   
   *!*		The recordset inherits the cursorlocation of the connection
   			.oRS.LockType = adLockOptimistic
   			.oRS.OPEN("SELECT contact FROM CUSTOMER",,,, 1)
   		ENDWITH
   
   		IF !FILE('demo.dbf')
   			CREATE TABLE demo (cCustName c(30))
   			APPEND BLANK
   		ENDIF
   
   		IF !USED('demo')
   			USE demo
   		ENDIF
   	ENDPROC
   
   	PROCEDURE INIT
   		LOCAL loField
   
   *!* 	Set properties for the DataCombo control
   		WITH THIS.DataCombo1
   			loField = THISFORM.oRS.FIELDS(0)
   
   			.TEXT = loField.VALUE		 && Display value
   			.BOUNDCOLUMN = loField.NAME  && Source Field being bound to
   			.ListField = loField.NAME	 && Source Display Field
   			.ROWSOURCE = THISFORM.oRS	 && Source Recordset
   		ENDWITH
   	ENDPROC
   
   	PROCEDURE DataCombo1.DBLCLICK
   		LPARAMETERS area
   
   		SELECT demo
   		IF RECCOUNT() = 0
   			INSERT INTO demo VALUES (THIS.TEXT)
   		ELSE
   			UPDATE demo SET cCustName = THIS.TEXT
   		ENDIF
   		THISFORM.REFRESH
   	ENDPROC
   
   	PROCEDURE commandButton2.CLICK
   		THISFORM.RELEASE
   	ENDPROC
   
   	PROCEDURE UNLOAD
   		WITH THIS
   			.oRS.CLOSE
   			.oConn.CLOSE
   			.oRS = .NULL.
   			.oConn = .NULL.
   		ENDWITH
   		
   		CLOSE TABLES ALL
   		CLEAR EVENTS
   	ENDPROC
   ENDDEFINE
   					

2. Save and run DataCombo.prg.
3. Click on the DataCombo control to expand the drop-down box.
4. Double-click the DataCombo control and note that the text box value has been set to the value displayed in the DataCombo control.

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