ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 11493|回复: 1

[分享] 可以自动生成助记码的例子

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-11-28 20:29 | 显示全部楼层 |阅读模式
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '烨' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '掖' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '液' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '谒' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '腋' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '靥' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '一' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '伊' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '衣' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '医' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '依' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '咿' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '猗' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '铱' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '壹' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '揖' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '欹' , 'Q' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '漪' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '噫' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '黟' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '仪' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '圯' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '夷' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '沂' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '诒' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '宜' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '怡' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '迤' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '饴' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '咦' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '姨' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '荑' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '贻' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '眙' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '胰' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '酏' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '痍' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '移' , 'Y' )


INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '遗' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '颐' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '疑' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '嶷' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '彝' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '乙' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '已' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '以' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '钇' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '矣' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '苡' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '舣' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '蚁' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '倚' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '椅' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '旖' , 'Y' )
INSERT [hzpy] ( [Hz] , [Py] ) VALUES ( '义' , 'Y' )

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-11-28 20:31 | 显示全部楼层
最近做的一个项目,其中有一块的功能是将数据导出为Excel文件。我使用了oracle的utl_file程序包。主要实现思路:    1、声明一个纪录,用来存储导出的数据;    2、使用游标取数据到纪录中;    3、使用utl_file将纪录中的数据写入excel文件;    4、循环执行步骤2和3,完成数据的导出。    做的过程中主要遇到的问题:    1、excle文件中写数据如何写入下一列;          使用TAB字符完成excel中横向跳格,excel中TAB字符表示单元格的结尾,其中使用了chr()函数,应用举例如下:         select U.USER_NAMEchr(9),U.ACCOUNTchr(9) from USER U                                             例句1          例句1作为游标的主体,取出的数据每项都包含一个TAB字符,使用utl_file.put()往excel文件中写数据时会自动跳格    2、声明的纪录中各项的类型问题           这个问题的产生主要是在类型的强转化时产生。如例句1种的U.ACCOUNT为number型时,添加chr(9)时oracle会对进行强转化;当然这里的转化不会有问题(number转化为varchar2),但是当这种强转换还是会出现问题的,如声明的纪录里某个属性声明为用户自己定义的一种类型,oracle无法进行转换,则会报错。解决的办法很简单,可以将纪录的属性都声明为varchar类型,但是要注意长度。    3、导出文件存储路径问题       utl_file在写文件时,文件的存储路径必须在oracle初始化参数utl_file_dir中设置,需重起服务才能生效。后来经过查资料发现可以先建立一个directory,在存储过程中使用它。 建立directory的语句:create or replace directory FILEPATH as 'path' ";例句2(注:path为存储文件的路径,如c:\Temp)
    以下是我简单做的处理hr.jobs表数据的存储过程:       CREATE OR REPLACE PROCEDURE SP_JOBS_DATA_OUT(      p_file_name IN VARCHAR2           --***处理文件名称,需包含扩展名(xls用于写excel文件)***--      ) as
               


1.使用utl_file将oracle数据库中数据写入excel文件(1)
2.使用utl_file将oracle数据库中数据写入excel文件(2)
3.使用utl_file将oracle数据库中数据写入excel文件(3)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-2 23:12 , Processed in 0.026186 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表