VFP 愛用者社區

[Ruey]

來源:動感游標 net_steven
http://www.vfp.cn/forum_view.asp?forum_id=1&view_id=343

用CA讀取excel表
自聚會以來一直想為論壇做點什麼，這裡貼一點個人心得，樂見與狐友們分享：
（基本上偶屬於吸熱動物一類 ：P）
直接讀取的方法相信大多狐友都會，但發覺當數據量很大時性能很差，所以想到用CA訪問，
性能不錯！
*----------------------------------------------------------------------------------------------------
lcfile=GETFILE('xls', 'select a .xls:', 'Open', 1, 'Select your EXCEL file')

If Empty(lcfile)
Messagebox("Pls select your XLS file ",0,"Alert")
RETURN .f.
ENDIF

lccn=[DBQ=]+lcfile+[;DefaultDir=]+JUSTPATH(lcfile)+[;Driver={Microsoft Excel Driver (*.xls)};DriverId=790;FIL=excel 8.0]

hnd=SQLSTRINGCONNECT(lccn,.t.)
IF hnd<0
messagebox(" Could not access your excel file!",0,"")
RETURN
ENDIF
lc_schema=[col_A c(20),col_B c(20),col_date d]
lc_sql=[SELECT sht.col_A,sht.col_b,sht.col_date FROM "Sheet1$" sht where sht.col_a is not null ]
ca1=NEWOBJECT('CursorAdapter')
with ca1
.CursorSchema =lc_schema
.Alias = 'tmp_xls'
.DataSourceType = 'ODBC'
.DataSource = hnd
.SelectCmd =lc_sql
.Tables = 'Sheet1$'
.sendupdates=.f.
if !.CursorFill(.t.)
aerror(laErrors)
messagebox(laErrors[2])
return
endif .CursorFill()
ENDWITH
SELECT tmp_xls
browse
SQLDISCONNECT(hnd)
rele ca1
use in tmp_xls
*----------------------------------------------------------------------------------------------------
1，excel sheet的第一行列名要與Cursor Schema 保持一致，即：col_A，col_B,col_date
2， Mihu兄有空的話能否用trycatchfinally改造一下？
3，UT現在要付費才能訪問，鬱悶！

[jimmy987]

請問ca1=NEWOBJECT('CursorAdapter')中的CURSORADAPTER
是何物件, 執行時會出現ERROR
不知Ruey能否指點一二,感激不盡....

[Ruey]

這是VFP8.0的新類別....

詳細的介紹.用CURSORADAPTER 查詢就有相關文章.