Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Hierarchal FlexGrid
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00569890
Message ID:
00569934
Views:
31
I guess that's pretty much what I expected. I need to learn ado a little better, particularly the shape syntax. Is there a good place to start figuring out how to do that with a VFP backend.


>>Has anyone been able to get the VB Hierarchal FlexGrid to work in VFP? Or does anyone know of a similar control available ifor VFP?
>
>It's not exclusive of VB, rather it's an ActiveX control that can be used in VFP too.
>
>Works just fine in VFP, if you are looking at it for ADO shaped recordsets it would work the same as in VB, just retrieve your recordset and then assign it to the DataSource property of the grid. This simple example shows how you would use it:
>
Local cnStr, cCrit, cSql
>*-- create the connection with the shape provider
>This.oH = CreateObject("ADODB.Recordset")
>This.oCn = CreateObject("ADODB.Connection")
>cnStr = "Provider=MSDataShape.1;Data Provider=SQLOLEDB.1;"
>cnStr = CnStr + "Integrated Security=SSPI;Initial Catalog=myDatabase;"
>cnStr = CnStr + "Data Source=myServer"
>With This.oCn
>   .CursorLocation = 3
>   .ConnectionString = cnStr
>   .Open
>EndWith
>
>
>cCrit = "GXV13800"
>
>cSql = "SHAPE {Select Filename, field2 From myTable "
>cSql = cSql + "Where Filename Like '" + cCrit + "%'} "
>cSql = cSql + "As QReport APPEND ({Select field1, field2 From QR_Detail} "
>cSql = cSql + "As QDetail Relate FileName To cSql = cSql + "FileName) As QDetail"
>This.oH = This.oCn.Execute(cSql)
>This.oH.ActiveConnection = Null
>This.oCn.Close
>This.HFGrid1.DataSource = This.oH
>Where HFGrid1 is the ole control that contains the MSHFlexGrid control.HTH
Paul R. Moon
Business Software Solutions
paul@businessoftware.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform