导出EXCELFOXPROPRODOX格式表
一般在ACCESS或SQLSERVER中进行搜索或汇总,然后生成一个‘记录集’,可以在网格中显示,也可以导出到磁盘。
您可以导出Xls、DBF、DB、MDB(表格)如下。这些功能都是通过ISAM数据库接口实现的。为了导出各种版本的文件,我从MS网站下载了最新的JET4和MDAC6。前者用于ACCESS、FOXPRO等桌面数据库,后者用于实现新版ADO组件。分别在:
http://download . Microsoft . com/download/access 2000/SP/4.0/NT5/EN-US/jet 40 SP 5 _ w2k . exe
http://download . Microsoft . com/download/dasdk/install/2 . 60 . 6526 . 3/win 98 me/CN/mdac _ typ . exe
以下是标准的SQL导出语句:
选择*进入【Excel 8.0数据库=导出目录]。从表中导出表名
选择*进入【FoxPro 2.6数据库=导出目录]。从表中导出表名
选择*进入【FoxPro 2.5数据库=同上】。从表中导出表名
select * into[dBase III;数据库=同上】。从表中导出表名
选择*进入【悖论4。x;数据库=同上】。从表中导出表名
select * into[;Database=C:\temp\xxx.mdb】。从表中导出表名
下面的程序用一个变量替换文件名的一部分,以实现用户自定义文件名。
/ncre 2/Files/2007-9/27/98565268 . jpg
Http://go.163.com/~chunpeng/project/Export.zip点击这里下载原程序文件。
请先参考ADODB类库。
Dim Export_Str,mdbTable As String
Dim rsExport作为新的ADODB。记录集
Dim conn作为新ADODB。关系
私有Sub Close_cmd_Click()
卸下我
末端接头
私有子导出_cmd_Click()
Dim myPath,myStr为字符串,myPos为整数
* * * * * * * * * * * * * * * * * *处理各种选定表格的导出。
使用对话框1
If myOption(2)。那就值了
。FilterIndex = 1
。显示保存
Mystr = strverse(。文件名)'字符串倒置
MyPos = InStr(myStr," \ ")'在反向字符串中,找到左起第一个\的位置。
“错误转到我的错误”防止文件名成为空,以及MID错误。
My path = strverse (mid (mystr,mypos))'获取目录部分并恢复它。
Mystr = strverse (left (mystr,mypos-1))'取文件名
export _ Str = " select * into[dBase III;数据库=" & myPath & "]。"& myStr &“来自客户”
。DefaultExt = " *。DBF”
位律师回复
0条评论