| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1416 人关注过本帖
标题:怎么样把select查找到的记录生成txt文件
只看楼主 加入收藏
daring
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2006-7-12
收藏
 问题点数:0 回复次数:4 
怎么样把select查找到的记录生成txt文件
怎么样把select查找到的记录生成txt文件,用什么函数,语句怎么写,代码都要在pb中实现
搜索更多相关主题的帖子: txt文件 select 记录 函数 语句 
2006-10-18 15:07
潇洒老乌龟
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:407
专家分:0
注 册:2005-12-13
收藏
得分:0 
1\使用动态数据窗口
2\dw_1.saveas()

乌龟学堂http://www. 承接各种软件开发、系统集成、网络搭建。 QQ:124030710
2006-10-18 16:25
jimn2000
Rank: 2
等 级:新手上路
威 望:3
帖 子:274
专家分:0
注 册:2006-4-3
收藏
得分:0 

dw_1.saveas()
dw_1.SaveAsAscii("H:\Q2\RESULTS.TXT","&","'")
我整理了一个可以保存成中文汉字字头的代码.希望对你有用,dw_1.saveas()的缺点就是文字取不来.

//if dw_1.rowcount() > 0 then
// dw_1.SaveAs("",Text!, false)
//end if
//==============================================================================
// 把数据窗口的数据保存成有表头文字的excel文件和txt文件两种类型
// add by jhz
//==============================================================================

integer li_rtn,ii,li_asc
string ls_name,ls_pathname
boolean lb_exist
any vdType

if dw_1.rowcount() < 1 then
messagebox("提示信息","请先检索数据再导出!")
return -1 //error
end if

li_rtn = getfilesavename("选择文件", &
ls_pathname, ls_name, "xls", &
"Excel文档(*.xls), *.xls," + &
"txt文档(*.txt), *.txt")

if li_rtn = 1 then
lb_exist = fileexists(ls_pathname)
if lb_exist then
li_rtn = messagebox("保存", ls_pathname+"已经存在,是否覆盖?",Exclamation!, YesNo!)
end if
//保存成excel文件
if upper(right(ls_pathname,3)) = 'XLS' then

if li_rtn = 1 then
//当文件存在用户选择覆盖,或是文件本就不存在时。
li_rtn = dw_1.saveasascii(ls_pathname)
if li_rtn = 1 then
messagebox("提示信息","数据导出成功!")
else
messagebox("错误信息","数据导出失败!")
return -1 //error
end if
else
return -1 //error
end if
end if

//保存成txt文件
if upper(right(ls_pathname,3)) = 'TXT' then
li_rtn = dw_1.saveasascii(ls_pathname," ","~t")
if li_rtn = 1 then
messagebox("提示信息","数据导出成功!")
end if
end if
else
return -1
end if



欢迎大家访问我的网站 www. 域名代理网站 web.
2006-10-25 17:56
jiazishu
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-9
收藏
得分:0 
支持
2006-11-09 11:47
路過
Rank: 3Rank: 3
等 级:论坛游侠
威 望:7
帖 子:160
专家分:111
注 册:2006-12-15
收藏
得分:0 


2006-12-20 13:51
快速回复:怎么样把select查找到的记录生成txt文件
数据加载中...
 
   



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

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