I use ADO pass througs a lot and am wondering if anyone has some suggestions about optimizing. Don't want to switch to the VFP functions particularly now that I'll probably have to port the code to ACCESS or something over the next few years.
Example
lcconnstr="DRIVER={SQL SERVER};SERVER=GODZILA;UID=SALESMAN;PWD=MOTHRAATEGODZILA!!"
lcsql="SELECT ecommerce.dbo.orders.ordertypeid,"
lcsql=lcsql+" Ecommerce.db
rders.order_id as sono,"
lcsql=lcsql+" Ecommerce.db
rders.Order_Date,"
lcsql=lcsql+" Ecommerce.db
rders.ship_country,"
lcsql=lcsql+" Ecommerce.db
rder_Status.Shipping_Status_ID,"
lcsql=lcsql+" Ecommerce.db
rder_line_items.item_number, "
lcsql=lcsql+" Ecommerce.db
rder_line_items.quantity, "
lcsql=lcsql+" Ecommerce.db
rder_line_items.cost_subtotal, "
lcsql=lcsql+" Ecommerce.db
rder_line_items.qty_shipped, "
lcsql=lcsql+" Ecommerce.db
rder_line_items.pv_value, "
lcsql=lcsql+" ecommerce.dbo.ordertype.name as ordtype "
lcsql=lcsql+" FROM ecommerce.dbo.order_line_items inner join "
lcsql=lcsql+" ecommerce.dbo.orders on "
lcsql=lcsql+" ecommerce.dbo.order_line_items.order_id=ecommerce.dbo.orders.order_id "
lcsql=lcsql+" INNER JOIN "
lcsql=lcsql+" Ecommerce.db
rder_Status ON Ecommerce.db
rders.Order_ID = Ecommerce.db
rder_Status.Order_ID "
lcsql=lcsql+" left outer join "
lcsql=lcsql+" ecommerce.dbo.ordertype on "
lcsql=lcsql+" ecommerce.dbo.orders.ordertypeid = ecommerce.dbo.ordertype.id "
lcsql=lcsql+" where "+mcriteria
lcsql=lcsql+" ORDER BY Ecommerce.db
rders.Order_Date"
oconnection=CREATEOBJECT("ADODB.Connection")
oconnection.OPEN(lcconnstr)
rs=oconnection.execute(lcsql)
Then I read the record set into a DBF that I do all the work on or use as the basis of the report.
Bill Couture
http:\\
Example
lcconnstr="DRIVER={SQL SERVER};SERVER=GODZILA;UID=SALESMAN;PWD=MOTHRAATEGODZILA!!"
lcsql="SELECT ecommerce.dbo.orders.ordertypeid,"
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" ecommerce.dbo.ordertype.name as ordtype "
lcsql=lcsql+" FROM ecommerce.dbo.order_line_items inner join "
lcsql=lcsql+" ecommerce.dbo.orders on "
lcsql=lcsql+" ecommerce.dbo.order_line_items.order_id=ecommerce.dbo.orders.order_id "
lcsql=lcsql+" INNER JOIN "
lcsql=lcsql+" Ecommerce.db
lcsql=lcsql+" left outer join "
lcsql=lcsql+" ecommerce.dbo.ordertype on "
lcsql=lcsql+" ecommerce.dbo.orders.ordertypeid = ecommerce.dbo.ordertype.id "
lcsql=lcsql+" where "+mcriteria
lcsql=lcsql+" ORDER BY Ecommerce.db
oconnection=CREATEOBJECT("ADODB.Connection")
oconnection.OPEN(lcconnstr)
rs=oconnection.execute(lcsql)
Then I read the record set into a DBF that I do all the work on or use as the basis of the report.
Bill Couture
http:\\