Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Is VFP too fast for SQL Server
Message
General information
Forum:
Visual FoxPro
Category:
Client/server
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Database:
MS SQL Server
Miscellaneous
Thread ID:
01038128
Message ID:
01038793
Views:
24
Here's the little test program I was working with. It fails at the "select CalcVarCursor" line near the bottom, but only when running normally. When tracing, it does not fail.
oDE = newobject("LOCIDataEnv", "source\LOCIAnalysisData")
oDE.OpenTables()

* ------------------------------------------------------------------------
* Fill ACalcVarCursor.
* ------------------------------------------------------------------------
oDE.ACalcVarCA.NoData = .f.
oDE.ACalcVarCA.CursorFill()

* ------------------------------------------------------------------------
* Get rid of existing records.
* ------------------------------------------------------------------------
select ACalcVarCursor
delete all
? "TableUpdate after DELETE ALL on ACalcVarCursor returned " + transform(tableupdate(.t.))
oDE.ACalcVarCA.CursorRefresh()

* ------------------------------------------------------------------------
* Append from ACALC_VA and save to SQL Server table.
* ------------------------------------------------------------------------
select ACalcVarCursor
append from data\acalc_va
replace all projectid with 0
? "TableUpdate after APPEND FROM ACALC_VA returned " + transform(tableupdate(.t.))
oDE.ACalcVarCA.CursorRefresh()

* ------------------------------------------------------------------------
* Fill AnalysisCursor.
* ------------------------------------------------------------------------
oDE.AnalysisCA.NoData = .f.
oDE.AnalysisCA.CursorFill()

* ------------------------------------------------------------------------
* Get rid of existing records.
* ------------------------------------------------------------------------
select AnalysisCursor
delete all
? "TableUpdate after DELETE ALL on AnalysisCursor returned " + transform(tableupdate(.t.))
oDE.AnalysisCA.CursorRefresh()

* ------------------------------------------------------------------------
* Append from ANALYSIS and save to SQL Server table.
* ------------------------------------------------------------------------
select AnalysisCursor
append from data\analysis
replace all projectid with 0,;
            linenumber with -recno()
? "TableUpdate after APPEND FROM ANALYSIS returned " + transform(tableupdate(.t.))
oDE.AnalysisCA.CursorRefresh()

* ------------------------------------------------------------------------
* Fill CalcVarCursor.
* ------------------------------------------------------------------------
oDE.CalcVarCA.NoData = .f.
oDE.CalcVarCA.CursorFill()

* ------------------------------------------------------------------------
* Get rid of existing records.
* ------------------------------------------------------------------------
select CalcVarCursor
delete all
? "TableUpdate after DELETE ALL on CalcVarCursor returned " + transform(tableupdate(.t.))
oDE.CalcVarCA.CursorRefresh()
>Can you post your code?
>
>Enmanuel
>
eCost.com continues to rip people off
Check their rating at ResellerRatings.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform