Microsoft KB Archive/314656

= FIX: OLE DB Provider Can Fail After Updating 512 Records Using Microsoft ActiveX Data Objects =

Article ID: 314656

Article Last Modified on 2/26/2002

-

APPLIES TO


 * Microsoft Visual FoxPro 7.0 Professional Edition

-



This article was previously published under Q314656



SYMPTOMS
When you use ActiveX Data Objects (ADO) and the Visual FoxPro OLE DB provider to add records to a table in a loop, the procedure may fail after approximately 512 records, and the following error message may appear:

Multiple-step operation generated errors. Check each status value.



RESOLUTION
To resolve this problem, obtain the latest service pack for Visual FoxPro for Windows 7.0. For additional information, click the following article number to view the article in the Microsoft Knowledge Base:

316964 How to Obtain the Latest Visual FoxPro for Windows 7.0 Service Pack



STATUS
Microsoft has confirmed that this is a problem in Microsoft Visual FoxPro for Windows 7.0. This problem was first corrected in Visual FoxPro for Windows 7.0 Service Pack 1.



Steps to Reproduce Behavior
To reproduce the problem, run the following code: CD JUSTPATH(SYS(16)) CLOSE DATABASES ALL RELEASE ALL CLEAR ALL

CREATE DATABASE simple_data CREATE TABLE 'SIMPLE.DBF' NAME 'SIMPLE' (RECID I NOT NULL, CALLID I NOT NULL) ALTER TABLE 'SIMPLE' ADD PRIMARY KEY RECID TAG RECID USE CLOSE DATABASES ALL

LOCAL loConn AS ADODB.CONNECTION, ; loRs AS ADODB.Recordset, ; lnCounter AS INTEGER

loConn = CREATEOBJECT(&quot;ADODB.Connection&quot;) loConn.OPEN([Provider=VFPOLEDB.1;Data Source=] + JUSTPATH(SYS(16,0)) + ;   [;Mode=ReadWrite;Password=&quot;&quot;;Collating Sequence=MACHINE])

loRs = CREATE(&quot;ADODB.Recordset&quot;) WITH loRs .ActiveConnection = loConn .CursorType= 3 && adOpenStatic .CursorLocation= 3 && adUseClient .LockType= 3 && adLockOptimistic .OPEN(&quot;simple&quot;)

FOR lnCounter = 1 TO 1000 @ 10, 10 SAY lnCounter .AddNew .FIELDS(&quot;recid&quot;).VALUE = lnCounter .FIELDS(&quot;callid&quot;).VALUE = lnCounter .UPDATE ENDFOR .CLOSE ENDWITH loConn.CLOSE

loRS = NULL loConn = NULL

RELEASE ALL

Additional query words: kbVFP700sp1fix

Keywords: kbbug kbfix kbcodesnippet kbdatabase KB314656

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.