-- Командная строка от имени администратора
--C:\Windows\SysWOW64\regsvr32.exe "C:\Program Files (x86)\Common Files\System\Ole DB\vfpoledb.dll"

--exec sp_configure 'show advanced options', 1;
--RECONFIGURE WITH OVERRIDE
--exec sp_configure 'Ad Hoc Distributed Queries', 1;
--RECONFIGURE	WITH OVERRIDE

--http://www.sqlservercentral.com/Forums/Topic1286522-2799-1.aspx#bm1402390
--http://blogs.technet.com/b/isv_team/archive/2012/05/14/3497825.aspx
--HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Jet\4.0\Engines\xBase
--HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Access Connectivity Engine\Engines\Xbase

SELECT *
FROM OPENROWSET('MSDASQL', 
    'Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=D:\123\month1\;SourceType=DBF;
    Exclusive=No;BackgroundFetch=Yes;Null=Yes;collation = RUSSIAN;Deleted=Yes;";
	Initial Catalog=D:\123\month1\','select * from TP2206')

SELECT a.* 
FROM OPENROWSET('VFPOLEDB', 
'D:\123\month1\';;, 
'SELECT * FROM TP2206') AS a 

select top 100 *
from OpenDataSource('Microsoft.ACE.OLEDB.12.0',
'Data Source=D:\123\month1\;Extended Properties=DBASE IV')...TP2206

*-------------------------------------------------------------------------
close databases
set default to getdir()
public server
store sys(5)+sys(2003) to server
do setarea with "par22"
*--------
do setarea with "help"    && файл помощи
if .not.file("help.cdx")
   soob="Отсутсвует индексн.файл для файла Help.Файл будет создан."
   do atension.spr  
   do setarea with "help"    && файл помощи
   index on kdvts tag kdvts
endif
set order to tag kdvts     &&tag("nc01",select())
*--------
*--------
do setarea with "nc01"    && кадры
*--------
if .not.file("nc01.cdx")
   soob="Отсутсвует индексн.файл для файла NC01.Файл будет создан."
   do atension.spr  
   do setarea with "nc01"    && кадры
   index on nrt tag nrt
endif
set order to tag nrt     &&tag("nc01",select())
*--------