В VFP9 в SQLEXEC и SQLMORERESULTS можно передать имя массива, который будет заполнен информацией о количестве записей затронутых каждой выполненной командой.
Пример:
**************************************
CLOSE DATABASES all
SQLDISCONNECT(0)
CLEAR
SET MULTILOCKS ON
* Connect to any available Sql Server
nConn=SQLCONNECT("TestServer")
IF (nConn <1)
? "Failed to connect!"
AERROR(aerrs)
DISPLAY MEMORY LIKE aerrs
return
ENDIF
IF SQLEXEC(nConn ,"CREATE TABLE #test (f1 int, f2 varchar(10) NULL )")!=1
? "Failed to create demo table!"
AERROR(aerrs)
DISPLAY MEMORY LIKE aerrs
ENDIF
FOR I=1 TO 100
SQLEXEC(nConn ,"insert into #test (f1) values (?I)")
NEXT
SQLEXEC(nConn,"UPDATE #test SET f2=convert(varchar(10),f1) where f1 BETWEEN 32 and 79",NULL,aRowCount)
? "Updated records:", aRowCount(1,2)
DISPLAY MEMORY LIKE aRowCount
SQLDISCONNECT(nConn)
**************************************
Aleksey Tsingauz
Visual FoxPro Dev Team