Microsoft DataGrid 控件绑定到ADO控件在 Visual FoxPro 中尚不支持.但可以绑定 DataGrid ActiveX 控件到 ADO 记录集,DataGrid.DataSource 属性用于绑定控件到 ADO 记录集THISFORM.DataGrid1.DATASOURCE=myADORecordSet PROCEDURE form1.INIT
PUBLIC myconn, myrs
myconn=CREATEOBJECT('ADODB.CONNECTION')
myconn.cursorlocation=3
lcConnectString="DRIVER=Microsoft Visual FoxPro Driver;" + ;
"SourceType=DBC;SourceDB="+HOME(2)+"DATA\TESTDATA.DBC;" + ;
"Exclusive=NO;BackGroundFetch=NO;NULL=NO;Collate=MACHINE"
myconn.OPEN(lcConnectString)
myrs=CREATEOBJECT('ADODB.RECORDSET')
myrs.activeconnection=myconn
myrs.locktype=3
myrs.OPEN("SELECT * FROM CUSTOMER",,,,1)
THISFORM.DataGrid1.DATASOURCE=myrs
ENDPROC
PUBLIC myconn, myrs
myconn=CREATEOBJECT('ADODB.CONNECTION')
myconn.cursorlocation=3
lcConnectString="DRIVER=Microsoft Visual FoxPro Driver;" + ;
"SourceType=DBC;SourceDB="+HOME(2)+"DATA\TESTDATA.DBC;" + ;
"Exclusive=NO;BackGroundFetch=NO;NULL=NO;Collate=MACHINE"
myconn.OPEN(lcConnectString)
myrs=CREATEOBJECT('ADODB.RECORDSET')
myrs.activeconnection=myconn
myrs.locktype=3
myrs.OPEN("SELECT * FROM CUSTOMER",,,,1)
THISFORM.DataGrid1.DATASOURCE=myrs
ENDPROC
visual foxpro6中目前不支持ADO控件!