6 |
The LA Fox Developer Newsletter
ADO Jumpstart
(Con? from page
5)
.Open
End With
With oRecordset
.ActiveConnection
=
oConnection
.Source
=
cShpStr
.CursorType
=
adOpenStatic
.LockType
=
adLockBatch0ptimistic
.CursorLocation
=
adUseClient
.Open
EndWith
Do While toRecordset.Eof
With oRecordset
?.Fields(”CustomerlD”).Value,.Fields(”CompanyName”).Value
EndWith
o0rders
=
oRecordset.Fields(”orders”).Value
Do While !o0rders.Eof
oShippers
=
oOrders.Fields(”shippers”).Value
oEmployee
=
oOrders.Fields(”employees”).Value
oEmployeeTerritories
=
oEmployee.Fields(”em ployeeterritories”).Value
oTerritorles
=
oEmployeelerritories.Fields(”territories”).Value
oRegion
=
oTerritories.Fields(”region”).Value
?“Order ID: “,oOrders.Fields(”orderid”).Value,;
“Order Date: “,oOrders.Fields(”orderdate”).Value
oOrderDetails
=
o0rders.Fields(”orderdetails”).Value
?“Territory:
“,
oTerritories.Flelds(”territOrydescriptiofl”).ValUe,;
“Region: “,oRegion.Fields(”RegionDescription”).Vatue
?“Shipper: “,oShippers.Fields(”companyname”).Value
oEmployee
=
oorders.Fields(”employees”).Val
With oEmployee
?“Employee: “,.Fields(”employeeid”).Value,;
.Fields(”firstname”).Value
“ .Fields(lastname”).Value
End With
?“Order Details:
Do
While loOrderDetails.Eof
oProducts = oOrderDetails.Fields(”Products”).Value
oCategories = oProducts.Fields(”categories”).Value
oSuppliers = oProducts.Fields(”suppliers”).Value
?Chr(9),;
oProducts.Fields(”productname”).Value,;
oSuppllers.Fields(”companyname”).Value,;
oCategories.Fields(”categoryname”).Value,;
oOrderDetails.Fields(”Quantity”).Value,;
oOrderDetails.Fields(”UnitPrice”).Value
oOrderDetails.MoveNext
EndDo
oOrders.MoveNext
EndDo
oRecordset.MoveNext
EndDo
The output appears as follows:
(Con?, page 7)
Undocumented
(Con? from page
5)
SET(”History”)
This returned the number of the history buffer in dBaselll+. Has
no meaning for VFP but it doesn’t generate an error, either.
SET(”IBLOCK”)
This always returns 0, regardless of the previous setting.
SET(”INSTRUCT”)
This function always returns “OFF”, even if you precede it with
SET INSTRUCT ON.
SET(”LDCHECK”)
This always returns OFF even if preceded with SET LOG HECK
ON...
SET(”MACDESKTOP”)
Returns the setting for SET MACDESKTOP, either ON or OFF.
To be continued..
Hot Tip...
Useful Info/Utilities
from Dan Covill
FoxPro Dcveloperc Network of San Diego
Tasklnfo
It you have wondered, as I otten have, where all that crap came
from that’s always running in your system, I have a neat utility
for you.
It’s called Tasklnfo, and it’s a shareware program by a Russian
who writes video device drivers for a living. His name is Igor
Arsenin and his Site is <http://www.iarsn.com>
It runs on Win 9x, NT and 2000, and combines the NT Task
Manager output with Win 98 System Info and a lot more. The
neatest thing to me is that, for every task and thread running, it
gives you the path and name of who it belongs to! Absolutely
amazing how many separate processes McAfee Anti-Virus
thinks it needs. The real vs virtual memory info is invaluable by
itself. This guy is good!
It’s a 350k download, and doesn’t even have to be installed, you
can just run it. Like most shareware, 30 days free, then only
$12 and well worth it. (If you try it, tell me what you think.)
Dependency
Walker
Found this gem in one of the newsletters I get.
<>Dependency Walker v2.0b5 (409k] W9X/NT FREE
http://www.dependencywalker.com/
http://www.dependencywalker.com/depends20beta5_x86.zip
(Con?, page 9)
Page 6
|
6 |