| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 716 人关注过本帖, 1 人收藏
标题:vfp9.0+sql 存取 EXCEL 表求助
只看楼主 加入收藏
webglass
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-10-9
结帖率:0
收藏(1)
已结贴  问题点数:20 回复次数:6 
vfp9.0+sql 存取 EXCEL 表求助
如何把EXCEL表存进SQL的表的IMAGE或者TEXT类型里面,然后可以取出来改写后再存进去
搜索更多相关主题的帖子: EXCEL 如何 
2014-10-09 10:35
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:7 
没弄过
2014-10-09 11:43
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:7 
1.sql表用 TEXT类型
2.保存文件到 TEXT类型字段
  str1=FILETOSTR('文件') &&注意带路径全文件名
  SQLEXEC(句柄,"INSERT INTO 表 (TEXT类型字段,文件名) VALUES  (?str1,'文件名')")
3.读取文件
   SQLEXEC(句柄,"SELECT TEXT类型字段,文件名 FROM 表","tmp")
   STRTOFILE(tmp.TEXT类型字段,路径+文件名)

注意。我给出只是示意代码,明白消化就可以了









[ 本帖最后由 kiff 于 2014-10-10 10:59 编辑 ]
2014-10-10 10:55
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:7 
1. 将 Excel 文件写入数据表 Employee 的“附件”字段(数据类型为 Text),同时将文件名写入“文件名”(Character类型)字段。
程序代码:
* 指定来源文件
LOCAL cFile,cStr,cFileName,cSql
cFile = GETFILE("xls*")
IF EMPTY(cFile)
    RETURN
ENDIF
IF !FILE(cFile)
    MESSAGEBOX('指定的文件不存在!',48,'提示')
    RETURN
ENDIF

* 上传附件,并保存文件名
cStr = FILETOSTR(cFile)
cFileName = JUSTFNAME(cFile)
cSql = 'UPDATE employee SET 附件=?cStr,文件名=?cFileName WHERE id = 287'
IF SQLEXEC(gnHandle,cSql) < 0
    MESSAGEBOX('添加附件失败!')
ENDIF
2. 删除数据表中保存的 Excel 文件
程序代码:
* 确认删除
IF MESSAGEBOX('是否删除附件?',36+256,'提示') = 7
    RETURN
ENDIF

LOCAL cSql
cSql = 'UPDATE employee SET 附件=NULL,文件名=NULL WHERE id = 287'
IF SQLEXEC(gnHandle,cSql) < 0
    MESSAGEBOX('删除附件失败!')
ENDIF
3. 下载并打开 Excel 文件
程序代码:
* 下载附件到临时文件 cFile
LOCAL cFile,cSql
cSql = 'SELECT 文件名,附件 FROM employee WHERE id = 287'
IF SQLEXEC(gnHandle,cSql,'curTmp') < 0
    MESSAGEBOX('下载附件失败!',48,'提示')
    RETURN
ENDIF
cFile = ADDBS(SYS(2023)) + ALLT(curTmp.文件名)
= STRTOFILE(curTmp.附件,cFile)
USE IN curTmp

* 打开附件
DECLARE Integer ShellExecute IN "Shell32.dll" Integer hwnd,String lpVerb,String lpFile,String lpPara,String lpDir,Long lpShowCmd
= ShellExecute(0,"open",cFile,"","",1)


泉城飞狐
2014-10-10 11:39
webglass
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-10-9
收藏
得分:0 
回复 3 楼 kiff
非常感谢
2014-10-20 12:23
webglass
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-10-9
收藏
得分:0 
回复 4 楼 liuxingang28
不慎感激啊,呵呵
2014-10-20 12:23
webglass
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-10-9
收藏
得分:0 
回复 4 楼 liuxingang28
请教一下高手,如果在VFP里面直接查看EXCEL表,例如用IMAGE型显示EXCEL,不慎感激
2014-10-20 16:07
快速回复:vfp9.0+sql 存取 EXCEL 表求助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017147 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved