Решил проверить - а дома только laptop :((( Который работет очень медленно. Может у кого есть время и ресурсы и запустит этот код на компьютере получше:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
CLEAR
LOCAL oConn as "adodb.connection"
LOCAL oRS as "adodb.recordset"
oConn = CREATEOBJECT('adodb.connection')
oRS = CREATEOBJECT('adodb.recordset')
cConnStrng = ;
"Provider=vfpoledb;Data Source=c:\ado\;SourceType=DBF"
oConn.Open(cConnStrng)
oRS = oConn.Execute( "create table ado free (num n(10 ), tit c( 190 ), tit2 c( 200 ), tit3 c( 100 ))")
SET DEVICE TO screen
FOR i= 1 TO 5000000
oRS = oConn.Execute( "insert into ado (num,tit) values (RECNO(),SYS(2015 ))")
ENDFOR
oRS.Close()
oConn.Close()
Заранее спасибо за помощь в исследовании FoxPro...
Надо только созадть дирректорий C:\ado а после запуска программы смотреть за размером файла... Может и получится...
