在VB6中导出EXCEL,FOXPRO,PRODOX格式的表
月底由于业务需要,MIS系统总会汇总当月业务情况,导出报价。我把我程序里的这部分函数列表拿出来做成一个小程序,仅供参考。
一般在ACCESS或SQLSERVER中进行搜索或汇总,然后生成一个‘记录集’,可以在网格中显示,也可以导出到磁盘。
您可以导出Xls、DBF、DB、MDB(表格)如下。这些功能都是通过ISAM数据库接口实现的。为了导出各种版本的文件,我从MS网站下载了最新的JET4和MDAC6。前者用于ACCESS、FOXPRO等桌面数据库,后者用于实现新版ADO组件。
以下是标准的SQL导出语句:
选择*进入【Excel 8.0数据库=导出目录]。从表中导出表名
选择*进入【FoxPro 2.6数据库=导出目录]。从表中导出表名
选择*进入【FoxPro 2.5数据库=同上】。从表中导出表名
select * into[dBase III;数据库=同上】。从表中导出表名
选择*进入【悖论4。x;数据库=同上】。从表中导出表名
select * into[;Database=C:\temp\xxx.mdb】。从表中导出表名
请先参考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 = StrReverse(。文件名)& acute字符串倒置
myPos = InStr(myStr," \ ")& acute;在反向字符串中,找到左起第一个\的位置。
出错时转到myError & acute文件名是空,MID有错误。
myPath = StrReverse(Mid(myStr,myPos))& acute;获取目录部分并恢复它。
myStr = StrReverse(Left(myStr,my pos-1))& acute;获取文件名
export _ Str = " select * into[dBase III;数据库=" & myPath & "]。"& myStr &“来自客户”
。DefaultExt = " *。DBF”
ElseIf myOption。那就值了
MDB = InputBox("请确定导出到MDB文件的表的表名")
。FilterIndex = 2
。显示保存
export _ Str = " select * into[;数据库=" &。文件名& "]。"& MDB表&“来自客户”
。DefaultExt = " *。MDB "
ElseIf myOption。那就值了
。FilterIndex = 3
。ShowSave
0条评论