#define _endl Chr( 13 )+Chr( 10 )
create cursor aaa ( a1 n( 10 ), a2 C( 50 ))
insert into aaa values( 0 , "")
insert into aaa values(0 ," ")
* Наберем данных побольше
for i = 1  to  4 
	select x1.a1, x1.a2;
	from "aaa " x1, " aaa " x2;
	into cursor " aaa " readwrite
endfor
* 65536  записй
replace all a1 with Recno(),a2 with "Field  "+Str(Recno())

?Datetime()
* файл данных на локальном компьютере
lcTXT = " c:\aaa.txt "
if File(lcTXT)
	erase(lcTXT)
endif
copy to (lcTXT) type delimited with character |

* format файл на локальном компьютере
lcFMT = " c:\aaa.fmt "
=StrToFile('8.0'+_endl,lcFMT)
=StrToFile('2'+_endl,lcFMT,.t.)
=StrToFile('1 SQLCHAR 0 10 "|\""    1 a1 SQL_Latin1_General_CP1_CI_AS'+_endl,lcFMT,.t.)
=StrToFile('2 SQLCHAR 0 50 "\"\r\n" 2 a2 SQL_Latin1_General_CP1_CI_AS'+_endl,lcFMT,.t.)

oSQLServer = CreateObject(" SQLDMO.SQLServer ")
oSQLServer.Connect(" server "," user "," pwd ")
oTable = oSQLServer.Databases(" Northwind ").Tables(" aaa ")

oBulkCopy = CreateObject(" SQLDMO.BulkCopy")
with oBulkCopy
	.ImportRowsPerBatch =  1000 
	.UseServerSideBCP = .f.     
	.DataFileType =  5 		
	.FormatFilePath = lcFMT
	.DataFilePath = lcTXT
	.SetCodePage(- 1 )
endwith

oTable.TruncateData()
oTable.ImportData(oBulkCopy)
?Datetime()