未知乐园
百度空间 | 百度首页 
 
文章列表
 
2009-09-26 22:53

在写Oracle的时候,经常做一些日期,字符或者数字的格式;下面就是我写的一些笔记:

 
2009-09-15 22:38

方法一:
是用来指定修改某个用户的
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
'函

 
2009-08-26 23:39

从网上找到的一段非常经典的删除一个用户下所有对象的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

 
2009-08-26 22:50

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

自从 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

 
2009-08-20 12:14

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

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

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

 
2009-08-13 16:37
把要转换的文件拉到千千静听播放列表中--在歌曲名上点右键--转换格式--MP3编码器--配置--恒定码率(CBR)--64-- 确定 --转换采样频率--22050Hz --目标文件夹 --立即转换。 千千静听是一个转业的音频转换器 ,自带的转换器支持 所有格式转mp3 , 所有格式转wma
  

   把要转换的文件拉到千千静听播放列表中--在歌曲名上点右键--“转换格式”--“MP3编码器”--“配置”--“恒定码率(CBR)”--“64”--

 
2009-08-11 22:41

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

 
2009-06-25 18:41
很经典的一段代码,在某种情况下很好用的代码:
For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count    '确定工程组件数量
    ActiveWorkbook.VBProject.VBComponents(i).CodeModule.DeleteLines 1, ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines     '从第一行循环到最后一行的删除动作
Next
 
2009-06-06 10:44

执行一个脚本即可,脚本内容如下:
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;

 
2009-04-24 08:50
  • 尽可能少使用“.”,使用对象变量
    在前面已经介绍过的对长对象引用使用对象变量以及使用With…End With等都是简化”.”的方法。因为在代码中的每个句点都表示至少一个(而且可能是多个)过程调用,而这些过程调用必须在后台执行。真正好的做法是在局部进行缓存对象引用,例如,应该把对象模型中较高层次的对象引用保存到局部对象变量中,然后用这些对象引用创建其他较低层次的对象引用。例如,引用某单元格数据时,可用如下代码:

  •  
         
     
     
    个人档案
     
    core22
    男, 26岁
    甘肃 兰州 
    上次登录:
    8天前
    加为好友
     
       
     
    最近访客
     
     

    BD枫枫

    22140945

    Bai→Du

    孤高的星河

    17556231

    qq510020201

    浊泪

    MMC_ADCLR
         


    ©2009 Baidu