第一次发帖 求解决 利用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$)")
