Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Query challenge 2: cumulative weekly budget
Message
From
09/04/1998 15:57:05
Fernando España
Alta Tecnologia En Informatica
Guatemala, Guatemala
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00090874
Message ID:
00090898
Views:
21
**YOU CAN CREATE A GRAPH FROM YOUR SELECT SQL BY USING A OLE AUT. WITH A EXCEL CHAR
*IT'S MORE EASY AND WORK FINE
*HERE IS A SAMPLE

public MYGRAPH
MYGRAPH = GetObject('','excel.chart') && CREATE EXCEL CHAR OBJECT

MYGRAPH.application.visible = .t. && EXCELL IS VISIBLE NOW
MYGRAPH.application.worksheets(1).cells().clear && CLEAR THE WORSHEETS
**WRITING THE HEADERS
MYGRAPH.application.worksheets(1).cells(1,1).value="YEAR"
MYGRAPH.application.worksheets(1).cells(1,2).value="SALES"
MYGRAPH.application.worksheets(1).cells(1,3).value="BUY"
**ADDING RECORDS
SELECT MYQUERY
COUNT TO TOTAL
SCAN
MYGRAPH.application.worksheets(1).cells(RECNO()+1,1).value=MYQUERY.YEAR
MYGRAPH.application.worksheets(1).cells(RECNO()+1,2).value=MYQUERY.SALES
MYGRAPH.application.worksheets(1).cells(RECNO()+1,3).value=MYQUERY.BUY
ENDSCAN
*AND YOU CAN ADD AN TOTAL COLUMN
MYGRAPH.application.worksheets(1).cells(TOTAL+1,1).value="TOTALS"
MYGRAPH.application.worksheets(1).cells(TOTAL+1,2).value='=SUMA(SALES)'
MYGRAPH.application.worksheets(1).cells(TOTAL+1,3).value='=SUMA(BUY)'

SEND ME YOUR RESULTS

SORY FOR MY ENGLISH!!
Fernando España
SQL Server Specialist
Previous
Reply
Map
View

Click here to load this message in the networking platform