第一回发帖 求解决 利用VFP 实现excel 插入到 slq

第一次发帖 求解决 利用VFP 实现excel 插入到 slq
public nhandle &&&定义连接串名
  nhandle=sqlstringconnect("driver=sql server;server=asong;uid=sa;pwd=songlinux;database=123")
if nhandle>0
  MESSAGEBOX('连接成功！！！')
ENDIF
*cGetFileName = GETFILE("XLS", "文档名称：")

*USE f:\xianzhi\分厂计划

*APPEND FROM (cGetFileName) TYPE XL8 

*USE 
SQLEXEC(nhandle ,"exec sp_configure 'show advanced options',1 reconfigure")

SQLEXEC(nhandle ,"exec sp_configure 'Ad Hoc Distributed Queries',1 reconfigure")
SQLEXEC(nhandle ,"INSERT INTO xingming SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=c:\2.xls',sheet1$)")

*INSERT INTO xingming SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)





这是VFP command1的 click 代码 
可是就是插入不到sql 里面去 ，
本人初学 ，不知道该如何实现，求解决，
最好用getfile 找到excel

------解决方案--------------------
示例：
cc=GETFILE()
?cc

------解决方案--------------------
或者这样：
cGetFileName = Getfile("XLS", "文档名称：")
If Empty(cGetFileName) && 没有选择文件
Return
Endif

*SQLExec(nhandle ,"exec sp_configure 'show advanced options',1 reconfigure")
*SQLExec(nhandle ,"exec sp_configure 'Ad Hoc Distributed Queries',1 reconfigure")
SQLExec(nhandle ,"INSERT INTO xingming SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE="+cGetFileName+"',sheet1$)")