导出EXCEL/FOXPRO/PRODOX格式表
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了导出EXCEL/FOXPRO/PRODOX格式表,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含3890字,纯文字阅读大概需要6分钟。
内容图文
![导出EXCEL/FOXPRO/PRODOX格式表](/upload/InfoBanner/zyjiaocheng/534/b7eb82791ee441c7b89ad1097a763569.jpg)
一般是在access或是SQLSERVER中查寻,或是汇总,然后生成一个‘记录集’可以显示在GRID里,也可以将这个记录集 导出 到磁盘中。 下面可以 导出 Xls,DBF,DB,MDB(表),这些功能是由ISAM数据库接口实现,为了 导出 各种版本的文件,我在MS网站下载了最新的JET4
一般是在access或是SQLSERVER中查寻,或是汇总,然后生成一个‘记录集’可以显示在GRID里,也可以将这个记录集导出到磁盘中。下面可以导出Xls,DBF,DB,MDB(表),这些功能是由ISAM数据库接口实现,为了导出各种版本的文件,我在MS网站下载了最新的JET4和MDAC6。前者到用于桌面数据库如ACCESS,FOXPRO的组件,后者是实现新版本ADO组件。分别在:
http://download.microsoft.com/download/access2000/SP/4.0/NT5/EN-US/Jet40SP5_W2K.exe
http://download.microsoft.com/download/dasdk/install/2.60.6526.3/WIN98Me/CN/mdac_typ.exe
这些是标准的SQL导出语句:
select*into[office/9.shtml'target='_blank'class='article'>Excel8.0;database=导出目录].导出表名from表
select*into[FoxPro2.6;database=导出目录].导出表名from表
select*into[FoxPro2.5;database=同上].导出表名from表
select*into[dBaseIII;database=同上].导出表名from表
select*into[Paradox4.X;database=同上].导出表名from表
select*into[;database=C:\temp\xxx.mdb].导出表名from表
下面程序为实现用户自定议文件名用变量代替一部分。
http://go.163.com/~chunpeng/project/export.jpg
http://go.163.com/~chunpeng/project/Export.zip点这里下载原程序文件。
'请先引用ADODB类库。
DimExport_Str,mdbTableAsString
DimrsExportAsNewADODB.Recordset
DimconnAsNewADODB.Connection
PrivateSubClose_cmd_Click()
UnloadMe
EndSub
PrivateSubEXport_cmd_Click()
DimmyPath,myStrAsString,myPosAsInteger
'******************处理选择的各种表的导出
WithDialog1
IfmyOption(2).ValueThen
.FilterIndex=1
.ShowSave
myStr=StrReverse(.FileName)'串取反
myPos=InStr(myStr,"\")'在反字符串中,找从左开始第一个\的位置
OnErrorGoTomyError'防FILENAME为空,MID出错
myPath=StrReverse(Mid(myStr,myPos))'取目录部分,并还原.
myStr=StrReverse(Left(myStr,myPos-1))'取文件名
Export_Str="select*into[dBaseIII;database="&myPath&"]."&myStr&"fromCustomers"
.DefaultExt="*.DBF"
ElseIfmyOption(3).ValueThen
mdbTable=InputBox("请给导出到MDB文件的表确定表名")
.FilterIndex=2
.ShowSave
Export_Str="select*into[;database="&.FileName&"]."&mdbTable&"fromCustomers"
.DefaultExt="*.MDB"
ElseIfmyOption(4).ValueThen
.FilterIndex=3
.ShowSave
Export_Str="select*into[Excel8.0;database="&.FileName&"].CustomersfromCustomers"
.DefaultExt="*.XLS"
ElseIfmyOption(5).ValueThen
.FilterIndex=4
.ShowSave
myStr=StrReverse(.FileName)'串取反
myPos=InStr(myStr,"\")'在反字符串中,找从左开始第一个\的位置
OnErrorGoTomyError'防FILENAME为空,MID出错
myPath=StrReverse(Mid(myStr,myPos))'取目录部分,并还原.
myStr=StrReverse(Left(myStr,myPos-1))'取文件名
Export_Str="select*into[Paradox4.X;database="&myPath&"]."&myStr&"fromCustomers"
.DefaultExt="*.DB"
EndIf
EndWith
'*****生成文件
Debug.PrintExport_Str
IfrsExport.State=1Then
rsExport.Close
EndIf
IfDir(Dialog1.FileName)<>""Then
OnErrorGoTomyError'防用户没选文件
IfDialog1.FilterIndex<>2Then
Kill(Dialog1.FileName)
EndIf
rsExport.OpenExport_Str,conn,adOpenStatic,adLockOptimistic
Else
rsExport.OpenExport_Str,conn,adOpenStatic,adLockOptimistic
EndIf
myError:
ExitSub
EndSub
PrivateSubForm_Load()
'联接数据库并打开记录集
conn.CursorLocation=adUseServer
conn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=" App.Path "\NWind.mdb;"
rsExport.Open"select*fromCustomers",conn,adOpenStatic,adLockOptimistic
SetGrid1.DataSource=rsExport
'初始化对话筐
WithDialog1
.Filter="FoxBase/FoxPro(*.DBF) *.DBF Access8.0(*.MDB) *.MDB Excel8.0(*.XLS) *.XLS Paradox4.x(*.DB) *.DB"
.DialogTitle="导出文件为"
.CancelError=False
EndWith
EndSub
->内容总结
以上是互联网集市为您收集整理的导出EXCEL/FOXPRO/PRODOX格式表全部内容,希望文章能够帮你解决导出EXCEL/FOXPRO/PRODOX格式表所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。