在写Oracle的时候，经常做一些日期，字符串或者数字的格式化；下面就是我写的一些笔记：

方法一：
是用来指定修改某个用户的
sub passwordexpires(username)
dim users
'获取所有用户
set users = getobject("winmgmts:{impersonationlevel=impersonate}").instancesof("win32_useraccount")
for each user in users
if user.name = username then
'如果和参数指定的用户名相同，则设置密码永不过期
user.PasswordExpires = False
'提交刚才的修改
user.Put_()
end if
next
end sub
'函

从网上找到的一段非常经典的删除一个用户下所有对象的spool脚本，屡试不爽，实在忍不住，拿出来共享一下！欢迎大家都来讨论！

--删除某个用户下的对象
set heading off;
set feedback off;
spool c:\dropobj.sql;

prompt --drop tables
select 'drop table ' || table_name ||';'||chr(13)||chr(10) from user_tables;
prompt --drop view
select 'drop view ' || view_name||';'||chr(13)||chr(10) from user_views;
prompt --drop sequence
select 'drop sequence ' || sequen

如何取得一个表的所有字段名用逗号分割

自从 Oracle 9i 开始，就可以通过SYS_CONNECT_BY_PATH 函数实现将从父节点到当前
行内容以“path”或者层次元素列表的形式显示出来。

--如果想得到的列集合全部是大写，可将第一行的lower函数去掉
select max(substr(sys_connect_by_path(lower(column_name),','),2)) col
from (select column_name,column_id from user_tab_columns
      where table_name=upper('&表名'))
start with column_id=1
conn

有的时候不知道是什么原因，VB IDE开发环境的“保存”快捷按钮就不翼而飞、人间蒸发了！要保存工程就显的很麻烦！我们怎么找回它呢？跟我来！

把鼠标放在工具箱快捷按钮上，右击->自定义->选中“标准”选项（前面的勾也要选中）->重新设置->OK!

再看看IDE环境，是不是已经有了“保存”快捷按钮了？

Option Explicit

Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Long
On Error Resume Next
For I = 1 To Data.Files.Count
    MsgBox Data.Files(I)
Next
End Sub

执行一个脚本即可，脚本内容如下：
set lin 200
set pagesize 10000
set heading off
select 'drop ' ||object_type||' '||object_name||';'from user_objects;
执行该脚本后，将输出的内容再次执行即可

简单的举一个例子，比如仅仅想删除所有的table
SQL> set lin 200
SQL> set pagesize 10000
SQL> set heading off
SQL> select 'drop table '||table_name||';' from user_tables;

drop table BONUS;
drop table DEPT;