BlogJava-Kimi's NutShell-随笔分类-Database

oracle 基本连接操作图示（转）

Kimi — Thu, 15 Nov 2007 01:54:00 GMT

近段时间很多网友提出监听配置相关问题，客户终端(Client)无法连接服务器端(Server)。本文现对监听配置作一简单介绍，并提出一些客户终端无法连接服务器端的解决思路，愿对广大网友与读者有一些帮助。

一、 监听器(LISTENER)

　　监听器是Oracle基于服务器端的一种网络服务，主要用于监听客户端向数据库服务器端提出的连接请求。既然是基于服务器端的服务，那么它也只存在于数据库服务器端，进行监听器的设置也是在数据库服务器端完成的。

二、 本地服务名(Tnsname)

　　Oracle 客户端与服务器端的连接是通过客户端发出连接请求，由服务器端监听器对客户端连接请求进行合法检查，如果连接请求有效，则进行连接，否则拒绝该连接。

本地服务名是Oracle客户端网络配置的一种，另外还有Oracle名字服务器(Oracle Names Server)等。Oracle常用的客户端配置就是采用的本地服务名，本文中介绍的也主要是基于本地服务名的配置。

三、 Oracle 网络连接配置方法

　　配置Oracle服务器端与客户端都可以在其自带的图形化Oracle网络管理器(Oracle Net Manager)里完成（强烈建议在这个图形化的工具下完成Oracle服务端或客户端的配置）。在Windows下，点击“开始/程序/Oracle - OraHome92/Configuration and Migration Tools/Net Manager”启动Oracle网络管理器工具，在Linux/Unix下，利用netmgr命令来启动图形化Oracle网络管理器，如：

$ netmgr

Windows 下启动Net Manager图形窗口如下图示：

图(一)

1、 Oracle 监听器配置(LISTENER)

　　如图(一)示，选中树形目录中监听程序项，再点击左上侧“+”按钮添加监听程序，点击监听程序目录，默认新加的监听器名称是LISTENER(该名称也可以由任意合法字符命名)。选中该名称，选中窗口右侧栏下拉选项中的“监听位置”，点击添加地址按钮。在出现的网络地址栏的协议下拉选项中选中 “TCP/IP”，主机文本框中输入主机名称或IP地址(如果主机即用作服务端也作为客户端，输入两项之一均有效；如果主机作为服务端并需要通过网络连接，建议输入IP地址)，端口文本框中输入数字端口，默认是1521，也可以自定义任意有效数字端口。配置好的监听位置如下图示：

图(二)

　　选中窗口右侧栏下拉选项中的“数据库服务”，点击添加数据库按钮。在出现的数据库栏中输入全局数据库名，如myoracle。注意这里的全局数据库名与数据库SID有所区别，全局数据库名实际通过域名来控制在同一网段内数据库全局命名的唯一性，就如Windows下的域名控制器，如这里可以输入 myoracle.192.168.1.5。Oracle主目录可以不填写，输入SID，如myoracle。完整的数据库服务配置如下图示：

图(三)

　　保存以上配置，默认即可在Oracle安装目录下找到监听配置文件 (Windows下如D:oracleora92networkadminlistener.ora，Linux/Unix下$ ORACLE_HOME/network/admin/listerer.ora)。至此，Oracle服务端监听器配置已经完成。

2、本地服务名配置(Tnsnames)

　　本地服务名是基于Oracle客户端的网络配置，所以，如果客户端需要连接数据库服务器进行操作，则需要配置该客户端，其依附对象可以是任意一台欲连接数据库服务器进行操作的pc机，也可以是数据库服务器自身。如前面所介绍，可以利用Oracle自带的图形化管理工具Net Manager来完成Oracle客户端的配置。选中如图(一)中的服务命名，再点击左上侧“+”按钮，弹出如下图示对话框：

图(四)

　　输入Net服务名，如myoracle，点击下一步，进入下图示对话框：

图(五)

选中TCP/IP(Internet协议)，点击下一步，如下图示：

图(六)

　　输入主机名与端口号。注意这里的主机名与端口号必须与数据库服务器端监听器配置的主机名和端口号相同。点击下一步，如下图示：

图(七)

　　选中(Oracle8i或更高版本)服务名，输入服务名。这里的服务名实际上就是数据库服务器端监听器配置中的全局数据库名，前者与后者必须相同。连接类型通常选专用服务器，这要视数据库服务器的配置而定，如果配置的共享数据库服务器，这里的连接类型就要选共享服务器，否则建议选专用服务器(关于专用服务器的介绍请参阅相关文档)。配置好后点击下一步，如下图示：

图(八)

　如果数据库服务器端相关服务启动了，可以点击测试按钮进行连接测试。Oracle默认是通过scott/tiger用户进行测试连接，由于scott用户是 Oracle自带的示例用户，对于正式的业务数据库或专业测试数据库可能没有配置这个用户，所以需要更改成有效的用户登录才可能测试成功。如果这里测试连接不成功，也不要紧，先点完成按钮结束配置。

　　回到Oracle网络管理器(Oracle Net Manager)主窗口，保存配置，默认即可在Oracle安装目录下找到本地服务名配置文件 (Windows下如D:oracleora92networkadmintnsnames.ora，Linux/Unix下$ ORACLE_HOME/network/admin/ tnsnames.ora)。配置完成的本地服务名如下图示：

图(九)

　　树形目录下的服务命名可以通过编辑菜单里的重命名菜单更改成任意合法字符组成的服务名称，注意服务名称前不能有空格字符，否则可能无法连接数据库服务器。

3、连接数据库服务器

(1) 启动服务器端监听器与数据库服务

Linux/Unix下，启动监听器：

$ lsnrctl start

关闭监听器：

$ lsnrctl stop

查看监听状态：

$ lsnrctl status

启动数据库：

$ sqlplus /nolog

SQL>conn sys@myoracle as sysdba --这里的myoracle是前面配置的客户端本地服务名

或

SQL>conn / as sysdba

SQL>startup

Windows下，启动监听器：

C:lsnrctl start

启动Oracle实例服务：

C:oradim ?a href="http://game.pchome.net/pcgame" class="none" title="cs" rel="external">cstartup –sid myoracle

关闭Oracle实例服务：

C:oradim –shutdown –sid myoracle

　　以上服务必须同时启动，客户端才能连接数据库。由于默认配置的监听器名称是Listener，上述命令可以正常启动监听器，如果监听器名称是其它名称，如aListener，则需要用下列方式才能启动：

Linux/Unix下：

$ lsnrctl start aListener

Windows下：

C:lsnrctl start aListener

(2) 测试连接数据库服务器

　　测试的方法多种多样，可以在上面配置本地服务名时进行测试，也可以是第三方客户端工具，如PL/SQL Developer，最方便的是用Oracle自带的sqlplus工具，以下利用sqlplus进行测试：

C:sqlplus /nolog

SQL>conn zgh@myoracle

已连接。

四、客户端连接服务器端常见问题排除方法

　　要排除客户端与服务器端的连接问题，首先检查客户端配置是否正确(客户端配置必须与数据库服务器端监听配置一致)，再根据错误提示解决。下面列出几种常见的连接问题：

1、 ORA-12541: TNS: 没有监听器

显而易见，服务器端的监听器没有启动，另外检查客户端IP地址或端口填写是否正确。启动监听器：

$ lsnrctl start

或

C:lsnrctl start

2、 ORA-12500: TNS: 监听程序无法启动专用服务器进程

对于Windows而言，没有启动Oracle实例服务。启动实例服务：

C:oradim –startup -sid myoracle

3、 ORA-12535: TNS: 操作超时

　　出现这个问题的原因很多，但主要跟网络有关。解决这个问题，首先检查客户端与服务端的网络是否畅通，如果网络连通，则检查两端的防火墙是否阻挡了连接。

4、 ORA-12154: TNS: 无法处理服务名

　　检查输入的服务名与配置的服务名是否一致。另外注意生成的本地服务名文件(Windows下如D:oracleora92networkadmin tnsnames.ora，Linux/Unix下/network/admin/tnsnames.ora)里每项服务的首行服务名称前不能有空格。

5、 ORA-12514: TNS: 监听进程不能解析在连接描述符中给出的 SERVICE_NAME

　　打开Net Manager，选中服务名称，检查服务标识栏里的服务名输入是否正确。该服务名必须与服务器端监听器配置的全局数据库名一致。

6、 Windows下启动监听服务提示找不到路径

　　用命令或在服务窗口中启动监听提示找不到路径，或监听服务启动异常。打开注册表，进入HKEY_LOCAL_MACHINE/SYSTEM/Current ControlSet/Services/OracleOraHome92TNSListener项，查看ImagePath字符串项是否存在，如果没有，设定值为D:oracleora92BINTNSLSNR，不同的安装路径设定值做相应的更改。这种方法同样适用于Oracle实例服务，同上，找到如同HKEY_LOCAL_MACHINE/SYSTEM/Current ControlSet/Services/Oracle ServiceMYORACLE项，查看ImagePath字符串项是否存在，如果没有，则新建，设定值为d:oracleora92 binORACLE.EXE MYORACLE。

以上是Oracle客户端连接服务器端常见的一些问题，当然不能囊括所有的连接异常。解决问题的关键在于方法与思路，而不是每种问题都有固定的答案。

Kimi 2007-11-15 09:54 发表评论

ORACLE 10G ODBC连接步骤和含义（转）

Kimi — Wed, 26 Sep 2007 08:00:00 GMT

Oracle 10g不但支持多种程序，如Java、.NET、.Com和Win32，而且确保所有的程序开发都可以使用到Oracle高级的数据库特性。也就是说，Oracle提供良好的开发环境，以支持各种应用程序的开发，并且，每个数据存取的驱动程序都经过良好的设计，以达到最佳的存取功能。对于Windows的开发环境而言，最常使用的数据存取方式有.NET和.Com两种，分别介绍如下。
.NET数据存取方式有三种，如图13-1所示。第一种是程序语言（例如，ASP.NET等）通过OLE DB.NET调用Oracle OLE DB，再存取Oracle数据库；第二种是程序语言通过ODBC.NET调用Oracle ODBC，再存取Oracle数据库；第三种是程序语言通过Oracle Data Provider for.NET直接存取Oracle数据库。

另一种数据存取的方式为.Com，如图13-2所示。

.Com数据存取的方式有三种。第一种是程序语言（例如，ASP.NET等）通过Oracle Objects for OLE（0040）存取Oracle数据库；第二种是程序语言通过ActiveX Data Objects（ADO）调用Oracle ODBC，再存取Oracle数据库；第三种是程序语言通过ActiveX Data Objects（ADO）调用Oracle OLE DB，再存取Oracle数据库。另外，程序语言也可以通过COM Automation Feature取得Oracle数据库的数据。
Oracle 10g Web数据库的存取如同前文所述，有多种数据存取的方式。在本节中，使用的方式如图13-3所示。

首先编写ASP（Active Server Page）程序，通过ADO（ActiveX Data Object）访问ODBC（Open Database Connectivity，开放式数据库连接），再通过ODBC存取Oracle数据库。
在Oracle 10g Web数据库的开发环境中，需要完成下列各项工作，才能从Internet上存取Oracle 10g Web数据库，这些工作如下所示：

创建一个数据库管理系统
设置ODBC
设置Web Server（例如，IIS的虚拟目录）
ASP程序的开发

    我们以本书的Misdb数据库为例，请先完成前面章节中的项目管理，创建11个表，分别有EMP、depart、probuy、invoice、customer、delivery、Ord、product、stock、WIP和 salgrade表，并插入多条数据。下面，分别介绍设置ODBC、设置Web Server和开发ASP程序。

13-2    设置ODBC

    ODBC的全名是Open Database Connectivity（开放式数据库连接），是应用程序连接数据库的接口。由于计算机的类型不同，从个人计算机到大型主机，都有自己处理数据的方式，ODBC则可以连接到相同或不相同的数据库管理系统，因此，ODBC可以给应用程序提供相同的存取数据库的接口，程序设计员在设计连接不同数据库时，只要处理与ODBC的连接就可以了，而不必针对不同的数据库设计完全不同的程序。特别需要提醒的是，不同的数据库都有自己对应的ODBC驱动程序，在使用不同数据库的同时，务必设置正确的ODBC驱动程序。就像在本节中，想要连接Oracle 10g数据库，就必须设置Oracle ODBC驱动程序，操作步骤如下：
    （1）选择Start→Programs→Oracle-OraDb10g_home1→Configuration and Migration Tools→Microsoft ODBC Administrator，如图13-4所示。

（2）打开ODBC Data Source Administrator，如图13-5所示。

（3）单击System DSN标签，如图13-6所示。

（4）单击Add按钮，出现如图13-7所示的对话框。

（5）向下拖动滚动条，找到Oracle in OraDb10g_home1选项，选择该选项，如图13-8所示。

（6）单击Finish按钮，进入Oracle ODBC Driver Configuration对话框，如图13-9所示。

    Data Source Name：自定义，程序调用时将使用这个名称，请输入misdbdsn。
    TNS Service Name：Oracle TNS服务名称，在创建数据库时，一般默认TNS服务名称与数据库名称相同，请输入MISDB，读者也可以自定义。
    User ID：用户的账户名称，这里使用System账户来测试。
    （7）单击Test Connection按钮，出现Oracle ODBC Driver Connect对话框，如图13-10所示。

Password：请输入安装时给System设置的密码，或自行修改后的密码。
（8）单击OK按钮，出现如图13-11所示的对话框。

（9）单击OK按钮，回到Oracle ODBC Driver Configuration对话框，如图13-12所示。

（10）单击OK按钮，回到ODBC Data Source Administrator的System DNS选项卡，如图13-13所示。

（11）单击OK按钮，完成ODBC的设置。

Kimi 2007-09-26 16:00 发表评论

MySQL 基本操作－－－丢了很久，今天又捡起来了，呵呵。玩具性的数据库，不过做点小程序还是蛮好的！

Kimi — Wed, 04 Apr 2007 07:34:00 GMT

MySQL数据库的基本操作

[ 转载 ]

一、连接MYSQL

　　格式： mysql -h主机地址 -u用户名－p用户密码

　　1、例1：连接到本机上的MYSQL。

　　首先在打开DOS窗口，然后进入目录 mysqlbin，再键入命令mysql -h localhost -u root -p+回车,也可以键入命令mysql -u root -p，回车后提示你输密码，如果刚安装好MYSQL，超级用户root是没有密码的，故直接回车即可进入到MYSQL中了，MYSQL的提示符是：mysql>

　　2、例2：连接到远程主机上的MYSQL。假设远程主机的IP为：110.110.110.110，用户名为root,密码为abcd123。则键入以下命令：
　　 mysql -h110.110.110.110 -uroot -pabcd123

　　（注:u与root可以不用加空格，其它也一样）

　　3、退出MYSQL命令： exit （回车）

二、修改密码

　　格式：mysqladmin -u用户名 -p旧密码 password 新密码

　　1、例1：给root加个密码ab12。首先在DOS下进入目录mysqlbin，然后键入以下命令
　　 mysqladmin -uroot -password ab12

　　注：因为开始时root没有密码，所以-p旧密码一项就可以省略了。

　　2、例2：再将root的密码改为djg345。
　　 mysqladmin -uroot -pab12 password djg345

三、增加新用户（注意：和上面不同，下面的因为是MYSQL环境中的命令，所以后面都带一个分号作为命令结束符）

　　格式：grant select on 数据库.* to 用户名@登录主机 identified by "密码"

　　例1、增加一个用户test1密码为abc，让他可以在任何主机上登录，并对所有数据库有查询、插入、修改、删除的权限。首先用以root用户连入MYSQL，然后键入以下命令：
　　 grant select,insert,update,delete on *.* to test1@"%" Identified by "abc";
　　但例1增加的用户是十分危险的，你想如某个人知道test1的密码，那么他就可以在internet上的任何一台电脑上登录你的mysql数据库并对你的数据可以为所欲为了，解决办法见例2。

　　例2、增加一个用户test2密码为abc,让他只可以在localhost上登录，并可以对数据库mydb进行查询、插入、修改、删除的操作（localhost指本地主机，即MYSQL数据库所在的那台主机），这样用户即使用知道test2的密码，他也无法从internet上直接访问数据库，只能通过MYSQL主机上的web页来访问了。
　　 grant select,insert,update,delete on mydb.* to test2@localhost identified by "abc";

　　如果你不想test2有密码，可以再打一个命令将密码消掉。
　　 grant select,insert,update,delete on mydb.* to test2@localhost identified by "";

　　下面来看看MYSQL中有关数据库方面的操作。注意：必须首先登录到MYSQL中，以下操作都是在MYSQL的提示符下进行的，而且每个命令以分号结束。

四、操作技巧

　　1、如果你打命令时，回车后发现忘记加分号，你无须重打一遍命令，只要打个分号回车就可以了。也就是说你可以把一个完整的命令分成几行来打，完后用分号作结束标志就OK。
五、显示命令

　　1、显示数据库列表。
　　 show databases;
　　刚开始时才两个数据库：mysql和test。mysql库很重要它里面有MYSQL的系统信息，我们改密码和新增用户，实际上就是用这个库进行操作。

　　2、显示库中的数据表：
　　 use mysql； //打开库，学过FOXBASE的一定不会陌生吧
　　 show tables;

　　3、显示数据表的结构：
　　 describe 表名;

　　4、建库：
　　 create database 库名;

　　5、建表：
　　 use 库名；
　　 create table 表名 (字段设定列表)；

　　6、删库和删表:
　　 drop database 库名;
　　 drop table 表名；

　　7、将表中记录清空：
　　 delete from 表名;

　　8、显示表中的记录：
　　 select * from 表名;

六、一个建库和建表以及插入数据的实例

drop database if exists school; //如果存在SCHOOL则删除
create database school; //建立库SCHOOL
use school; //打开库SCHOOL
create table teacher //建立表TEACHER
(
id int(3) auto_increment not null primary key,
name char(10) not null,
address varchar(50) default '南阳',
year date
); //建表结束
//以下为插入字段
insert into teacher values(','xuefeng','南阳理工,'1984-05-27');
insert into teacher values(','huifan','杞县高中','1985-07-23');

注：在建表中:
1.将ID设为长度为3的数字字段:int(3)并让它每个记录自动加一:auto_increment并不能为空:not null而且让他成为主字段primary key。
2.将NAME设为长度为10的字符字段。
3.将ADDRESS设为长度50的字符字段，而且缺省值为'南阳'。　　
4.将YEAR设为日期字段。

如果你在mysql提示符键入上面的命令也可以，但不方便调试。你可以将以上命令原样写入一个文本文件中假设为school.sql，然后复制到c:\下，并在DOS状态进入目录\mysql\bin，然后键入以下命令：

　　 mysql -uroot -p密码 < c:\school.sql

如果成功，空出一行无任何显示；如有错误，会有提示。（以上命令已经调试，你只要将//的注释去掉即可使用）。

七、将文本数据转到数据库中

　　1、文本数据应符合的格式：字段数据之间用tab键隔开，null值用\n来代替.
　　例：
　　　 3 yanzi 南阳师院 1984-05-27
　　　 4 mike 南阳七中 1985-07-23

　　2、数据传入命令 load data local infile "文件名" into table 表名;
　　注意：你最好将文件复制到\mysql\bin目录下，并且要先用use命令打表所在的库。

八、备份数据库：（命令在DOS的\mysql\bin目录下执行）

　　mysqldump --opt school>school.bbb
　　注释:将数据库school备份到school.bbb文件，school.bbb是一个文本文件，文件名任取，打开看看你会有新发现。

Kimi 2007-04-04 15:34 发表评论

DB40的管理工具object manager1.8的基本使用 (转自MatriX)

Kimi — Fri, 29 Dec 2006 02:21:00 GMT

使用Object Manager 瀏覽數據：
下載 objectmanager-1.7.1-win_ikvm.zip ( 這個包含 java vm)
http://developer.db4o.com/Files/

解壓後直接運行 objectmanager.bat
然後會出現 Object Manager 的介面,
選擇 File -> Open "Encrypted" File // 由於上面 encrypt 設為true, 故這裡使用encrypted
browse 上面例子產生的資料庫檔案 db.yap
輸入例子裡的 password : 123123 // 我測試時使用密碼打不開, 不輸入密碼卻能開啟檔案, 其怪
如果成功連接了就會出現下面的畫面：

選擇 File -> Query , 選擇要查詢的 Object class
就會出現下面的畫面：

選擇 File -> Export to XML
輸入 db.xml, 按存檔就會產生 db.xml 到目錄裡.
db.xml 的內容為：


   <>;jane>
   <>;pass456>


   <>;joeyta>
   <>;pass000>

當使用commit() 及rollback(), db4o 自動提供 read committed 的transactions.

db4o的功能不少，有興趣的同仁可參考下面更多官方的教學：
http://www.db4o.com/community/testdrive/formulaonetutorial.aspx
http://www.db4o.com/about/productinformation/resources/db4o-5.0-tutorial-java.pdf

Kimi 2006-12-29 10:21 发表评论

比较 SQL SERVER与ORACLE（转）

Kimi — Tue, 22 Aug 2006 07:44:00 GMT

T-SQL是SQL Server的语言引擎，而Oracle的语言引擎却是PLSQL。这两种查询语言都对ANSI SQL-92标准进行了扩展以提供额外的支持力度。你所创建的应用程序几乎都要用到这些补充特性。本文就对最常用的、非标准的Oracle扩展进行了说明，同时还要介绍下如何对这些扩展进行转化以用在SQL Server环境下。

列的选择

用PLSQL执行数据查询的时候，FROM子句是必须的，这同SQL Server的要求是一样的。 SELECT语句必须选择针对的数据表。在Oracle数据库内有一种特殊的表Dual。Dual表是Oracle中的一个实际存在的表，任何用户均可读取，常用在没有目标表的Select中。Dual表由Oracle连同数据字典一同创建，所有的用户都可以用名称DUAL访问该表。这个表里只有一列DUMMY，该列定义为VARCHAR2(1)类型，有一行值X。从DUAL表选择数据常被用来通过SELECT语句计算常数表达式，由于DUAL只有一行数据，所以常数只返回一次。

Oracle下的DUAL查询如下所示：
SELECT ‘x’ FROM dual
而对等的SQL Server查询则是下面这个样子：
SELECT ‘x’

以下是null相关的知识，用到了dual：
SQL> select 1 from dual where null=null;
没有查到记录
SQL> select 1 from dual where null='';
没有查到记录
SQL> select 1 from dual where ''='';
没有查到记录
SQL> select 1 from dual where null is null;
1
---------
1
SQL> select 1 from dual where nvl(null,0)=nvl(null,0);
1
---------
1
查看当前连接用户
SQL> select user from dual;

查看当前日期、时间
SQL> select sysdate from dual;

连接

Oracle用|| 符号作为连接符，而SQL Server的连接符是加号：+ 。

Oracle查询如下所示：
Select ‘Name’ || ‘Last Name’ From tableName

对应的SQL Server查询如下所示：
Select ‘Name’ + ‘Last Name’

数字取舍

Oracle数据库内有一个TRUNC函数，该函数返回m位十进制数的n位；如果省略m则n就是0位。m的值可以为负，表示截去小数点左边m位数字。

在SQL Server下可以用Round或者Floor。

以下是Oracle查询：
SELECT TRUNC(15.79,1) "Truncate" FROM DUAL;

下面是同类查询的SQL Server版本：
SELECT ROUND(15.79, 0) rounded , ROUND(15.79, 0,1) truncated
SELECT FLOOR(ROUND(15.79, 0)), FLOOR(ROUND(15.79, 0,1) )

数字转换

Oracle的TO_CHAR函数可以把n位NUMBER数据类型转换为VARCHAR2 数据类型，同时采用可选的数字格式。

SQL Server则通过STR函数返回数字转换之后的字符数据。不过，该函数不具方便的Format参数。

Oracle查询如下：
SELECT to_char(123.45 ,99999999999999) from tab
SELECT to_char(EXPIRY_DATE,'DDMONYYYY') from tab

以下是SQL Server版本的查询：
SELECT STR(123.45, 14)
SELECT STR(round(123.455 , 2),12,2)
SELECT CAST(REPLACE((CONVERT(varchar(12) , EXPIRYDATE, 106 )),' ' , '') as varchar(9))

LENGTH和LEN

以下是Oracle的查询：
SELECT LENGTH('SQLMAG') "Length in characters" FROM DUAL;

以上查询在SQL Server下是这样写的：
SELECT LEN('SQLMAG') "Length in characters"

日期

以上两种系统都具有各自的当前日期和时间格式。

Oracle取得日期和采用如下方式：
SYSDATE

SQL Server则是这样的：
GETDATE()

你可以用各种语法操作日期。以下的代码对Oracle日期值中的月份进行了格式调整（返回日期再加上n月）：
Select add_months(sysdate,12) from dual

SQL Server则是如下完成同等功能的：
Select dateadd(mm,12,getdate())

数据的减法也不同。以下代码在Oracle中直接对数据进行减法操作：
SELECT sysdate -add_months(sysdate,12) FROM dual

SQL Server则是这样做的：
SELECT datediff(dd, GetDate(),dateadd(mm,12,getdate()))

Kimi 2006-08-22 15:44 发表评论

CHEK_POS_SALE

Kimi — Fri, 14 Jul 2006 06:05:00 GMT

CREATE OR REPLACE Package Body Check_Pos_Sales Is

/*
TODO: owner="Administrator" created="2006-4-21"
text="cell procedure"
*/
Procedure Exec_Menology_Zsalebymonth(p_Brand   In Varchar2,
                                       p_Branch In Varchar2,
                                       p_Yearid In Varchar2,
                                       p_Monthid In Varchar2) Is

    Flag    Number;
    Str_Sql Varchar2(1000);

    v_Customer_Cc2 Constant Varchar2(20) := 'mm';
    v_Customer_Cc3 Constant Varchar2(20) := 'yyyy';
    -- v_Customer_Cc4 Constant Varchar2(40) := 'yyyy-mm-dd hh24:mi:ss';

Begin

    Flag := 0;
    Select Count(*)
      Into Flag
      From Dpdt.Menology Ec
     Where Ec.Brand = p_Brand
       And Ec.Branch = p_Branch
       And Ec.Yearid = p_Yearid
       And Ec.Monthid = p_Monthid;

    If (Flag = 1) Then
      Str_Sql := 'Update dpdt.menology w Set w.seqid=portsequence.nextval ,w.monthsale=(Select Nvl(Sum(Sprc), 0) From ' ||
                 p_Branch || '.Zsale T1 Where To_Char(T1.Sdate,' || '''' ||
                 v_Customer_Cc2 || '''' || ') Like ' || '''' || p_Monthid || '''' ||
                 ' and To_Char(T1.Sdate,' || '''' || v_Customer_Cc3 || '''' ||
                 ') Like ' || '''' || p_Yearid || '''' ||
                 '), w.updated_time= sysdate where w.branch like ' || '''' ||
                 p_Branch || '''' || ' and w.brand like ' || '''' ||
                 p_Brand || '''' || ' and w.yearid =' || '''' || p_Yearid || '''' ||
                 ' and w.monthid=' || '''' || p_Monthid || '''' || '';
    Elsif (Flag = 0) Then
      Str_Sql := 'Insert into dpdt.menology values(Portsequence.Nextval, ' || '''' ||
                 p_Brand || '''' || ', ' || '''' || p_Branch || '''' || ', ' || '''' ||
                 p_Yearid || '''' || ', ' || '''' || p_Monthid || '''' ||
                 ' ,(Select Nvl(Sum(Sprc), 0) From ' || p_Branch ||
                 '.Zsale T1 Where To_Char(T1.Sdate,' || '''' ||
                 v_Customer_Cc2 || '''' || ') Like ' || '''' || p_Monthid || '''' ||
                 ' and To_Char(T1.Sdate,' || '''' || v_Customer_Cc3 || '''' ||
                 ') Like ' || '''' || p_Yearid || '''' ||
                 '),sysdate,sysdate)';
    End If;
    Execute Immediate Str_Sql;
    Commit;
Exception
    When Others Then
      Dbms_Output.Put_Line(Sqlerrm);
      Rollback;

End Exec_Menology_Zsalebymonth;

/*
TODO: owner="Administrator" created="2006-4-21"
text="job procedure"
*/
Procedure Exec_Menology_Actionjob Is

    Cursor C1 Is
      Select Name From Pos_Db_User Group By Name;

Begin
    For V1 In C1 Loop
      Exec_Menology_Zsalebymonth(Substr(V1.Name, 1, 2),
                                 V1.Name,
                                 To_Char(Sysdate, 'yyyy'),
                                 To_Char(Sysdate, 'mm'));
      Exec_Menology_Zsalebymonth(Substr(V1.Name, 1, 2),
                                 V1.Name,
                                 To_Char(Add_Months(Sysdate, -1), 'yyyy'),
                                 To_Char(Add_Months(Sysdate, -1), 'mm'));

    End Loop;
    Commit;
Exception
    When Others Then
      Dbms_Output.Put_Line(Sqlerrm);
      Rollback;
End Exec_Menology_Actionjob;

Procedure Exec_Meters_Jobs Is
    Flag         Number;
    Flag2        Number;
    Yearsale     Number;
    Lastyearsale Number;
Begin
    Select Sum(Monthsale)
      Into Yearsale
      From Dpdt.Menology
     Where Yearid = To_Char(Sysdate, 'yyyy');
    Select Sum(Monthsale)
      Into Lastyearsale
      From Dpdt.Menology
     Where Yearid = To_Char(Add_Months(Sysdate, -12), 'yyyy');
    Flag := 0;
    Select Count(*)
      Into Flag
      From Dpdt.Meters t
     Where t.Saletype = 'FINISH'
       And t.Yearid = To_Char(Sysdate, 'yyyy');
    If (Flag = 1) Then
      Update Dpdt.Meters t
         Set t.Salesum      = Yearsale,
             t.Updated_Time = Sysdate,
             t.Seqid        = Portsequence.Nextval
       Where t.Saletype = 'FINISH'
         And t.Yearid = To_Char(Sysdate, 'yyyy');
    Elsif (Flag = 0) Then
      Insert Into Dpdt.Meters
      Values
        (Portsequence.Nextval,
         'FINISH',
         Yearsale,
         To_Char(Sysdate, 'yyyy'),
         Sysdate,
         Sysdate);
    End If;

    Flag2 := 0;
    Select Count(*)
      Into Flag2
      From Dpdt.Meters t
     Where t.Saletype = 'FINISH'
       And t.Yearid = To_Char(Add_Months(Sysdate, -12), 'yyyy');
    If (Flag2 = 1) Then
      Update Dpdt.Meters t
         Set t.Salesum      = Lastyearsale,
             t.Updated_Time = Sysdate,
             t.Seqid        = Portsequence.Nextval
       Where t.Saletype = 'FINISH'
         And t.Yearid = To_Char(Add_Months(Sysdate, -12), 'yyyy');
    Elsif (Flag2 = 0) Then
      Insert Into Dpdt.Meters
      Values
        (Portsequence.Nextval,
         'FINISH',
         Lastyearsale,
         To_Char(Add_Months(Sysdate, -12), 'yyyy'),
         Sysdate,
         Sysdate);
    End If;
    Commit;
Exception
    When Others Then
      Dbms_Output.Put_Line(Sqlerrm);
      Rollback;
End Exec_Meters_Jobs;

Procedure Test_Move_Ready is
    Cursor Cur Is
      select * from dpdt.saledtl;
begin
    For V1 In Cur Loop
      Test_Move_Action(v1.brhcst,
                       v1.saleno,
                       v1.seqno,
                       v1.styno,
                       v1.sizerun,
                       v1.reject,
                       v1.qty,
                       v1.prc,
                       v1.disc,
                       v1.rebate,
                       v1.cst_prc,
                       v1.org_prc,
                       v1.sprc,
                       v1.rsn);
      /*   insert into dpdt.saledtltest
        (BRHCST,
         saleno,
         seqno,
         styno,
         sizerun,
         reject,
         qty,
         prc,
         disc,
         rebate,
         cst_prc,
         org_prc,
         sprc,
         rsn)
      values
        (v1.brhcst,
         v1.saleno,
         v1.seqno,
         v1.styno,
         v1.sizerun,
         v1.reject,
         v1.qty,
         v1.prc,
         v1.disc,
         v1.rebate,
         v1.cst_prc,
         v1.org_prc,
         v1.sprc,
         v1.rsn);*/
    End Loop;
    Commit;
Exception
    When Others Then
      Dbms_Output.Put_Line(Sqlerrm);
      Rollback;

End Test_Move_Ready;

Procedure Test_Move_Action(brhcst In varchar2,
                             saleno In varchar2,
                             seqno   In integer,
                             styno   In varchar2,
                             sizerun In varchar2,
                             reject In char,
                             qty     In integer,
                             prc     In number,
                             disc    In number,
                             rebate In number,
                             cst_prc In number,
                             org_prc In number,
                             sprc    In char,
                             rsn     In char) is

begin
    insert into dpdt.saledtltest
      (BRHCST,
       saleno,
       seqno,
       styno,
       sizerun,
       reject,
       qty,
       prc,
       disc,
       rebate,
       cst_prc,
       org_prc,
       sprc,
       rsn)
    values
      (brhcst,
       saleno,
       seqno,
       styno,
       sizerun,
       reject,
       qty,
       prc,
       disc,
       rebate,
       cst_prc,
       org_prc,
       sprc,
       rsn);
    Commit;
     dbms_output.put_line('ggg');
Exception
    When Others Then
      Dbms_Output.Put_Line(Sqlerrm);
      Rollback;

End Test_Move_Action;

End Check_Pos_Sales;

Kimi 2006-07-14 14:05 发表评论

2个INIT和UPDATE ORACLE库的Package

Kimi — Fri, 14 Jul 2006 06:03:00 GMT

摘要: INIT： CREATE OR REPLACE PACKAGE BODY CUX_INIT_BASE_INFO IS procedure INIT_ALL is begin init_item; init_item_category_bkind; init_item_category_mkind; init_item_categ... 阅读全文

Kimi 2006-07-14 14:03 发表评论

使用rownum控制查询到的结果

Kimi — Sat, 01 Jul 2006 02:37:00 GMT

一个例子：
select * from (select rownum row_id ,t.* from cux_package t) where row_id between 5 and 9;

Kimi 2006-07-01 10:37 发表评论

具体的一个引入JAR入ORACLE的语句

Kimi — Fri, 16 Jun 2006 03:55:00 GMT

call sys.dbms_java.loadjava('-v -r -grant PUBLIC D:\Oracle\javalib\jconn2.jar')
注意路径是ORACLE所在机器的路径

Kimi 2006-06-16 11:55 发表评论

一个简单的oracle pl/sql 调用java的实现，目标：从SYBASE数据库里向ERP数据库（Oracle）实现数据流通

Kimi — Tue, 13 Jun 2006 01:41:00 GMT

1.向ORACLE里导入SYBASE　JDBC　的驱动JAR。
　使用语言LOADJAVA。
　例如：SQL> call dbms_java.loadjava (?-r -install -v -s -g public -genmissing
   absolute path to J2EE_HOME/lib/j2ee.jar?);
　具体可以参考　 http://www.stanford.edu/dept/itss/docs/oracle/10g/java.101/b12021/intro.htm
2.导入后在PL/SQL DEVELOPER的JAVA SOURCE里面新建所用的JAVA CLASS　，一般采用外部调试好的JAVA ，COPY即可。
　create or replace and compile java source named ErpToWms as
import java.sql.*;
import java.util.*;
public class ErpToWms {
public static String dd()throws Exception{
  ResultSet rs=null;
  Statement stmt=null;
  Connection conn=null;
  try{
  Class.forName("com.sybase.jdbc2.jdbc.SybDriver").newInstance();
  String url ="jdbc:sybase:Tds:192.168.0.206:4000/WMS";//myDB为你的数据库名
  Properties sysProps = System.getProperties();
  sysProps.put("user","sa");
  sysProps.put("password","");
   conn= DriverManager.getConnection(url, sysProps);
   stmt = conn.createStatement();
  String strSql = "select Count(*) from BARCODE t";
   rs = stmt.executeQuery(strSql);
  if (rs.next()) {
   System.out.println(rs.getString(1));
  }
  return rs.getString(1);
  }catch(Exception e){
   e.printStackTrace();
   return "";
  }finally{
  rs.close();
  stmt.close();
  conn.close();
  }
  }
    }
3.建立所对应的procedure或者funtion, 关键是看JAVA SOURCE的返回值而定。
　　例如 Function写法：
　　create or replace function getDataFromWms return varchar2 is
language java name 'ErpToWms.dd() return String';
4.最后写一个简单的procedure调用funtion.OK，搞定

有点麻烦的地方，请纠正。

Kimi 2006-06-13 09:41 发表评论

SQL&PL/SQL (转)

Kimi — Tue, 13 Jun 2006 01:33:00 GMT

SQL&PL/SQL
[Q]怎么样查询特殊字符，如通配符%与_
[A]select * from table where name like 'A_%' escape ''
[Q]如何插入单引号到数据库表中
[A]可以用ASCII码处理，其它特殊字符如&也一样，如
insert into t values('i'||chr(39)||'m'); -- chr(39)代表字符'
或者用两个单引号表示一个
or insert into t values('I''m'); -- 两个''可以表示一个'
[Q]怎样设置事务一致性
[A]set transaction [isolation level] read committed; 默认语句级一致性
set transaction [isolation level] serializable;
read only; 事务级一致性
[Q]怎么样利用游标更新数据
[A]cursor c1 is
select * from tablename
where name is null for update [of column]
……
update tablename set column = ……
where current of c1;
[Q]怎样自定义异常
[A] pragma_exception_init(exception_name,error_number);
如果立即抛出异常
raise_application_error(error_number,error_msg,true|false);
其中number从-20000到-20999，错误信息最大2048B
异常变量
SQLCODE 错误代码
SQLERRM 错误信息
[Q]十进制与十六进制的转换
[A]8i以上版本：
to_char(100,'XX')
to_number('4D','XX')
8i以下的进制之间的转换参考如下脚本
create or replace function to_base( p_dec in number, p_base in number )
return varchar2
is
l_str varchar2(255) default NULL;
l_num number default p_dec;
l_hex varchar2(16) default '0123456789ABCDEF';
begin
if ( p_dec is null or p_base is null ) then
return null;
end if;
if ( trunc(p_dec) p_dec OR p_dec 20;
[Q]怎么样抽取重复记录
[A]select * from table t1 where where t1.rowed !=
(select max(rowed) from table t2
where t1.id=t2.id and t1.name=t2.name)
或者
select count(*), t.col_a,t.col_b from table t
group by col_a,col_b
having count(*)>1
如果想删除重复记录，可以把第一个语句的select替换为delete
[Q]怎么样设置自治事务
[A]8i以上版本，不影响主事务
pragma autonomous_transaction;
……
commit|rollback;
[Q]怎么样在过程中暂停指定时间
[A]DBMS_LOCK包的sleep过程
如：dbms_lock.sleep(5);表示暂停5秒。
[Q]怎么样快速计算事务的时间与日志量
[A]可以采用类似如下的脚本
DECLARE
start_time NUMBER;
end_time NUMBER;
start_redo_size NUMBER;
end_redo_size NUMBER;
BEGIN
start_time := dbms_utility.get_time;
SELECT VALUE INTO start_redo_size FROM v$mystat m,v$statname s
WHERE m.STATISTIC#=s.STATISTIC#
AND s.NAME='redo size';
--transaction start
INSERT INTO t1
SELECT * FROM All_Objects;
--other dml statement
COMMIT;
end_time := dbms_utility.get_time;
SELECT VALUE INTO end_redo_size FROM v$mystat m,v$statname s
WHERE m.STATISTIC#=s.STATISTIC#
AND s.NAME='redo size';
dbms_output.put_line('Escape Time:'||to_char(end_time-start_time)||' centiseconds');
dbms_output.put_line('Redo Size:'||to_char(end_redo_size-start_redo_size)||' bytes');
END;
[Q]怎样创建临时表
[A]8i以上版本
create global temporary tablename(column list)
on commit preserve rows; --提交保留数据会话临时表
on commit delete rows; --提交删除数据事务临时表
临时表是相对于会话的，别的会话看不到该会话的数据。
[Q]怎么样在PL/SQL中执行DDL语句
[A]1、8i以下版本dbms_sql包
2、8i以上版本还可以用
execute immediate sql;
dbms_utility.exec_ddl_statement('sql');
[Q]怎么样获取IP地址
[A]服务器(817以上)：utl_inaddr.get_host_address
客户端：sys_context('userenv','ip_address')
[Q]怎么样加密存储过程
[A]用wrap命令，如（假定你的存储过程保存为a.sql）
wrap iname=a.sql
PL/SQL Wrapper: Release 8.1.7.0.0 - Production on Tue Nov 27 22:26:48 2001
Copyright (c) Oracle Corporation 1993, 2000. All Rights Reserved.
Processing a.sql to a.plb
提示a.sql转换为a.plb，这就是加密了的脚本，执行a.plb即可生成加密了的存储过程
[Q]怎么样在ORACLE中定时运行存储过程
[A]可以利用dbms_job包来定时运行作业，如执行存储过程，一个简单的例子，提交一个作业：
VARIABLE jobno number;
BEGIN
DBMS_JOB.SUBMIT(:jobno, 'ur_procedure;',SYSDATE,'SYSDATE + 1');
commit;
END;
之后，就可以用以下语句查询已经提交的作业
select * from user_jobs;
[Q]怎么样从数据库中获得毫秒
[A]9i以上版本，有一个timestamp类型获得毫秒，如
SQL>select to_char(systimestamp,'yyyy-mm-dd hh24:mi:ssxff') time1,
to_char(current_timestamp) time2 from dual;
TIME1 TIME2
----------------------------- ----------------------------------------------------------------
2003-10-24 10:48:45.656000 24-OCT-03 10.48.45.656000 AM +08:00
可以看到，毫秒在to_char中对应的是FF。
8i以上版本可以创建一个如下的java函数
SQL>create or replace and compile
java source
named "MyTimestamp"
as
import java.lang.String;
import java.sql.Timestamp;
public class MyTimestamp
{
public static String getTimestamp()
{
return(new Timestamp(System.currentTimeMillis())).toString();
}
};
SQL>java created.
注：注意java的语法，注意大小写
SQL>create or replace function my_timestamp return varchar2
as language java
name 'MyTimestamp.getTimestamp() return java.lang.String';
/
SQL>function created.
SQL>select my_timestamp,to_char(sysdate,'yyyy-mm-dd hh24:mi:ss') ORACLE_TIME from dual;
MY_TIMESTAMP ORACLE_TIME
------------------------ -------------------
2003-03-17 19:15:59.688 2003-03-17 19:15:59
如果只想获得1/100秒(hsecs)，还可以利用dbms_utility.get_time
[Q]如果存在就更新，不存在就插入可以用一个语句实现吗
[A]9i已经支持了，是Merge，但是只支持select子查询，
如果是单条数据记录，可以写作select …… from dual的子查询。
语法为：
MERGE INTO table
USING data_source
ON (condition)
WHEN MATCHED THEN update_clause
WHEN NOT MATCHED THEN insert_clause;
如
MERGE INTO course c
USING (SELECT course_name, period,
course_hours
FROM course_updates) cu
ON (c.course_name = cu.course_name
AND c.period = cu.period)
WHEN MATCHED THEN
UPDATE
SET c.course_hours = cu.course_hours
WHEN NOT MATCHED THEN
INSERT (c.course_name, c.period,
c.course_hours)
VALUES (cu.course_name, cu.period,
cu.course_hours);
[Q]怎么实现左联，右联与外联
[A]在9i以前可以这么写:
左联：
select a.id,a.name,b.address from a,b
where a.id=b.id(+)
右联:
select a.id,a.name,b.address from a,b
where a.id(+)=b.id
外联
SELECT a.id,a.name,b.address
FROM a,b
WHERE a.id = b.id(+)
UNION
SELECT b.id,'' name,b.address
FROM b
WHERE NOT EXISTS (
SELECT * FROM a
WHERE a.id = b.id);
在9i以上，已经开始支持SQL99标准，所以，以上语句可以写成：
默认内部联结：
select a.id,a.name,b.address,c.subject
from (a inner join b on a.id=b.id)
inner join c on b.name = c.name
where other_clause
左联
select a.id,a.name,b.address
from a left outer join b on a.id=b.id
where other_clause
右联
select a.id,a.name,b.address
from a right outer join b on a.id=b.id
where other_clause
外联
select a.id,a.name,b.address
from a full outer join b on a.id=b.id
where other_clause
or
select a.id,a.name,b.address
from a full outer join b using (id)
where other_clause
[Q]怎么实现一条记录根据条件多表插入
[A]9i以上可以通过Insert all语句完成，仅仅是一个语句，如：
INSERT ALL
WHEN (id=1) THEN
INTO table_1 (id, name)
values(id,name)
WHEN (id=2) THEN
INTO table_2 (id, name)
values(id,name)
ELSE
INTO table_other (id, name)
values(id, name)
SELECT id,name
FROM a;
如果没有条件的话，则完成每个表的插入，如
INSERT ALL
INTO table_1 (id, name)
values(id,name)
INTO table_2 (id, name)
values(id,name)
INTO table_other (id, name)
values(id, name)
SELECT id,name
FROM a;
[Q]如何实现行列转换
[A]1、固定列数的行列转换
如
student subject grade
---------------------------
student1 语文 80
student1 数学 70
student1 英语 60
student2 语文 90
student2 数学 80
student2 英语 100
……
转换为
语文数学英语
student1 80 70 60
student2 90 80 100
……
语句如下：
select student,sum(decode(subject,'语文', grade,null)) "语文",
sum(decode(subject,'数学', grade,null)) "数学",
sum(decode(subject,'英语', grade,null)) "英语"
from table
group by student
2、不定列行列转换
如
c1 c2
--------------
1 我
1 是
1 谁

Kimi 2006-06-13 09:33 发表评论

群里一位大侠帮我解决的双表关联，整理

Kimi — Thu, 01 Jun 2006 01:38:00 GMT

条件是A,B两表，A中有ID，同一ID有两值，以它更新时间为区别，现在要取的是最新的ID那个值，并且关联到B中的一属性。SQL不太好，留在这里以后继续学习

SELECT Distinct tab1.CUSTOMER_ID, ACV.LAST_NAME,tab1.maxla
   FROM AR_CONTACTS_V ACV,
        (SELECT RC.CUSTOMER_ID CUSTOMER_ID, MAX(ACV.LAST_UPDATE_DATE) MAXLA
           FROM AR_CONTACTS_V ACV, RA_CUSTOMERS RC
          WHERE ACV.CUSTOMER_ID(+) = RC.CUSTOMER_ID
          GROUP BY RC.CUSTOMER_ID) TAB1
WHERE ACV.CUSTOMER_ID(+) = TAB1.CUSTOMER_ID
    AND ACV.LAST_UPDATE_DATE(+) = TAB1.MAXLA

Kimi 2006-06-01 09:38 发表评论

oracle 存储过程调用java class 体会

Kimi — Mon, 29 May 2006 03:37:00 GMT

1.PL/SQL Developer下直接粘贴入JAVA SOURCE；
2.建立调用的存储过程
create or replace procedure SendMailP as
language java
name 'KemiClass.send()';
3.注意程序体里的文件路径，可以在调试的时候通过操作表来检测。
以上方法个人感觉等同于loadjava命令，请指教

Kimi 2006-05-29 11:37 发表评论

关于 LDAP

Kimi — Tue, 09 May 2006 07:48:00 GMT

LDAP的详细介绍

如果你在计算机行业工作，那么对LDAP可能早有耳闻了。想深入地了解LDAP吗？那么可以好好地读一下这篇文章。这篇介绍性的文章是一系列介绍如何在企业中设计、实现和集成LDAP环境的文章的头一篇。主要是先让你熟悉一下LDAP的基本概念，那些比较困难的细节问题将放到以后讨论。在这篇文章中我们将要介绍：

什么是LDAP?

什么时候该用LDAP存储数据？

LDAP目录树的结构

单独的LDAP记录

作为例子的一个单独的数据项

LDAP复制

安全和访问控制

现在LDAP技术不仅发展得很快而且也是激动人心的。在企业范围内实现LDAP可以让运行在几乎所有计算机平台上的所有的应用程序从LDAP目录中获取信息。LDAP目录中可以存储各种类型的数据：电子邮件地址、邮件路由信息、人力资源数据、公用密匙、联系人列表，等等。通过把LDAP目录作为系统集成中的一个重要环节，可以简化员工在企业内部查询信息的步骤，甚至连主要的数据源都可以放在任何地方。如果Oracle、Sybase、Informix或Microsoft SQL数据库中已经存储了类似的数据，那么LDAP和这些数据库到底有什么不同呢？是什么让它更具优势？请继续读下去吧！

什么是LDAP?
LDAP的英文全称是Lightweight Directory Access Protocol，一般都简称为LDAP。它是基于X.500标准的，但是简单多了并且可以根据需要定制。与X.500不同，LDAP支持TCP/IP，这对访问Internet是必须的。LDAP的核心规范在RFC中都有定义，所有与LDAP相关的RFC都可以在LDAPman RFC网页中找到。

怎么使用LDAP这个术语呢？
在日常交谈中，你可能会听到有些人这么说：“我们要把那些东西存在LDAP中吗？”，或者“从LDAP数据库中取出那些数据！”，又或者“我们怎么把LDAP和关系型数据库集成在一起？”。严格地说，LDAP根本不是数据库而是用来访问存储在信息目录（也就是LDAP目录）中的信息的协议。更为确切和正式的说法应该是象这样的：“通过使用LDAP，可以在信息目录的正确位置读取（或存储）数据”。但是，也没有必要吹毛求疵，尽管表达得不够准确，我们也都知道对方在说什么。

LDAP目录是数据库吗？
就象Sybase、Oracle、Informix或Microsoft的数据库管理系统（DBMS）是用于处理查询和更新关系型数据库那样，LDAP服务器也是用来处理查询和更新LDAP目录的。换句话来说LDAP目录也是一种类型的数据库，但是不是关系型数据库。不象被设计成每分钟需要处理成百上千条数据变化的数据库，例如：在电子商务中经常用到的在线交易处理（OLTP）系统，LDAP主要是优化数据读取的性能。

LDAP目录的优势
现在该说说LDAP目录到底有些什么优势了。现在LDAP的流行是很多因数共同作用的结果。我在这里说的不过是一些基本的原因，请你注意一下这不过是一小部分原因。

可能LDAP最大的优势是：可以在任何计算机平台上，用很容易获得的而且数目不断增加的LDAP的客户端程序访问LDAP目录。而且也很容易定制应用程序为它加上LDAP的支持。

LDAP协议是跨平台的和标准的协议，因此应用程序就不用为LDAP目录放在什么样的服务器上操心了。实际上，LDAP得到了业界的广泛认可，因为它是Internet的标准。产商都很愿意在产品中加入对LDAP的支持，因为他们根本不用考虑另一端（客户端或服务端）是怎么样的。LDAP服务器可以是任何一个开发源代码或商用的LDAP目录服务器（或者还可能是具有LDAP界面的关系型数据库），因为可以用同样的协议、客户端连接软件包和查询命令与LDAP服务器进行交互。与LDAP不同的是，如果软件产商想在软件产品中集成对DBMS的支持，那么通常都要对每一个数据库服务器单独定制。

不象很多商用的关系型数据库，你不必为LDAP的每一个客户端连接或许可协议付费。

大多数的LDAP服务器安装起来很简单，也容易维护和优化。

LDAP服务器可以用“推”或“拉”的方法复制部分或全部数据，例如：可以把数据“推”到远程的办公室，以增加数据的安全性。复制技术是内置在LDAP服务器中的而且很容易配置。如果要在DBMS中使用相同的复制功能，数据库产商就会要你支付额外的费用，而且也很难管理。

LDAP允许你根据需要使用ACI（一般都称为ACL或者访问控制列表）控制对数据读和写的权限。例如，设备管理员可以有权改变员工的工作地点和办公室号码，但是不允许改变记录中其它的域。ACI可以根据谁访问数据、访问什么数据、数据存在什么地方以及其它对数据进行访问控制。因为这些都是由LDAP目录服务器完成的，所以不用担心在客户端的应用程序上是否要进行安全检查。

LDAP对于这样存储这样的信息最为有用，也就是数据需要从不同的地点读取，但是不需要经常更新。例如，这些信息存储在LDAP目录中是十分有效的：

l 公司员工的电话号码簿和组织结构图

l 客户的联系信息

l 计算机管理需要的信息，包括NIS映射、email假名，等等

l 软件包的配置信息

l 公用证书和安全密匙

什么时候该用LDAP存储数据？
大多数的LDAP服务器都为读密集型的操作进行专门的优化。因此，当从LDAP服务器中读取数据的时候会比从专门为OLTP优化的关系型数据库中读取数据快一个数量级。也是因为专门为读的性能进行优化，大多数的LDAP目录服务器并不适合存储需要需要经常改变的数据。例如，用LDAP服务器来存储电话号码是一个很好的选择，但是它不能作为电子商务站点的数据库服务器。

如果下面每一个问题的答案都是“是”，那么把数据存在LDAP中就是一个好主意。

l 需要在任何平台上都能读取数据吗？

l 每一个单独的记录项是不是每一天都只有很少的改变？

l 可以把数据存在平面数据库（flat database）而不是关系型数据库中吗？换句话来说，也就是不管什么范式不范式的，把所有东西都存在一个记录中（差不多只要满足第一范式）。

最后一个问题可能会唬住一些人，其实用平面数据库去存储一些关系型的数据也是很一般的。例如，一条公司员工的记录就可以包含经理的登录名。用LDAP来存储这类信息是很方便的。一个简单的判断方法：如果可以把保数据存在一张张的卡片里，就可以很容易地把它存在LDAP目录里。

LDAP目录树的结构
LDAP目录以树状的层次结构来存储数据。如果你对自顶向下的DNS树或UNIX文件的目录树比较熟悉，也就很容易掌握LDAP目录树这个概念了。就象DNS的主机名那样，LDAP目录记录的标识名（Distinguished Name，简称DN）是用来读取单个记录，以及回溯到树的顶部。后面会做详细地介绍。

为什么要用层次结构来组织数据呢？原因是多方面的。下面是可能遇到的一些情况：

l 如果你想把所有的美国客户的联系信息都“推”到位于到西雅图办公室（负责营销）的LDAP服务器上，但是你不想把公司的资产管理信息“推”到那里。

l 你可能想根据目录树的结构给予不同的员工组不同的权限。在下面的例子里，资产管理组对“asset-mgmt”部分有完全的访问权限，但是不能访问其它地方。

l 把LDAP存储和复制功能结合起来，可以定制目录树的结构以降低对WAN带宽的要求。位于西雅图的营销办公室需要每分钟更新的美国销售状况的信息，但是欧洲的销售情况就只要每小时更新一次就行了。

刨根问底：基准DN
LDAP目录树的最顶部就是根，也就是所谓的“基准DN”。基准DN通常使用下面列出的三种格式之一。假定我在名为FooBar的电子商务公司工作，这家公司在Internet上的名字是foobar.com。

o="FooBar, Inc.", c=US

（以X.500格式表示的基准DN）

在这个例子中，o=FooBar, Inc. 表示组织名，在这里就是公司名的同义词。c=US 表示公司的总部在美国。以前，一般都用这种方式来表示基准DN。但是事物总是在不断变化的，现在所有的公司都已经（或计划）上Internet上。随着Internet的全球化，在基准DN中使用国家代码很容易让人产生混淆。现在，X.500格式发展成下面列出的两种格式。

o=foobar.com

（用公司的Internet地址表示的基准DN）

这种格式很直观，用公司的域名作为基准DN。这也是现在最常用的格式。

dc=foobar, dc=com

（用DNS域名的不同部分组成的基准DN）

就象上面那一种格式，这种格式也是以DNS域名为基础的，但是上面那种格式不改变域名（也就更易读），而这种格式把域名：foobar.com分成两部分 dc=foobar, dc=com。在理论上，这种格式可能会更灵活一点，但是对于最终用户来说也更难记忆一点。考虑一下foobar.com这个例子。当foobar.com和gizmo.com合并之后，可以简单的把“dc=com”当作基准DN。把新的记录放到已经存在的dc=gizmo, dc=com目录下，这样就简化了很多工作（当然，如果foobar.com和wocket.edu合并，这个方法就不能用了）。如果LDAP服务器是新安装的，我建议你使用这种格式。再请注意一下，如果你打算使用活动目录（Actrive Directory），Microsoft已经限制你必须使用这种格式。

更上一层楼：在目录树中怎么组织数据
在UNIX文件系统中，最顶层是根目录（root）。在根目录的下面有很多的文件和目录。象上面介绍的那样，LDAP目录也是用同样的方法组织起来的。

在根目录下，要把数据从逻辑上区分开。因为历史上（X.500）的原因，大多数LDAP目录用OU从逻辑上把数据分开来。OU表示“Organization Unit”，在X.500协议中是用来表示公司内部的机构：销售部、财务部，等等。现在LDAP还保留ou=这样的命名规则，但是扩展了分类的范围，可以分类为：ou=people, ou=groups, ou=devices，等等。更低一级的OU有时用来做更细的归类。例如：LDAP目录树（不包括单独的记录）可能会是这样的：

dc=foobar, dc=com

ou=customers

ou=asia

ou=europe

ou=usa

ou=employees

ou=rooms

ou=groups

ou=assets-mgmt

ou=nisgroups

ou=recipes

单独的LDAP记录
DN是LDAP记录项的名字
在LDAP目录中的所有记录项都有一个唯一的“Distinguished Name”，也就是DN。每一个LDAP记录项的DN是由两个部分组成的：相对DN（RDN）和记录在LDAP目录中的位置。

RDN是DN中与目录树的结构无关的部分。在LDAP目录中存储的记录项都要有一个名字，这个名字通常存在cn（Common Name）这个属性里。因为几乎所有的东西都有一个名字，在LDAP中存储的对象都用它们的cn值作为RDN的基础。如果我把最喜欢的吃燕麦粥食谱存为一个记录，我就会用cn=Oatmeal Deluxe作为记录项的RDN。

l 我的LDAP目录的基准DN是dc=foobar,dc=com

l 我把自己的食谱作为LDAP的记录项存在ou=recipes

l 我的LDAP记录项的RDN设为cn=Oatmeal Deluxe

上面这些构成了燕麦粥食谱的LDAP记录的完整DN。记住，DN的读法和DNS主机名类似。下面就是完整的DN：

cn=Oatmeal Deluxe,ou=recipes,dc=foobar,dc=com

举一个实际的例子来说明DN
现在为公司的员工设置一个DN。可以用基于cn或uid（User ID），作为典型的用户帐号。例如，FooBar的员工Fran Smith（登录名：fsmith）的DN可以为下面两种格式：

uid=fsmith,ou=employees,dc=foobar,dc=com

（基于登录名）

LDAP（以及X.500）用uid表示“User ID”，不要把它和UNIX的uid号混淆了。大多数公司都会给每一个员工唯一的登录名，因此用这个办法可以很好地保存员工的信息。你不用担心以后还会有一个叫Fran Smith的加入公司，如果Fran改变了她的名字（结婚？离婚？或宗教原因？），也用不着改变LDAP记录项的DN。

cn=Fran Smith,ou=employees,dc=foobar,dc=com

（基于姓名）

可以看到这种格式使用了Common Name（CN）。可以把Common Name当成一个人的全名。这种格式有一个很明显的缺点就是：如果名字改变了，LDAP的记录就要从一个DN转移到另一个DN。但是，我们应该尽可能地避免改变一个记录项的DN。

定制目录的对象类型
你可以用LDAP存储各种类型的数据对象，只要这些对象可以用属性来表示，下面这些是可以在LDAP中存储的一些信息：

l 员工信息：员工的姓名、登录名、口令、员工号、他的经理的登录名，邮件服务器，等等。

l 物品跟踪信息：计算机名、IP地址、标签、型号、所在位置，等等。

l 客户联系列表：客户的公司名、主要联系人的电话、传真和电子邮件，等等。

l 会议厅信息：会议厅的名字、位置、可以坐多少人、电话号码、是否有投影机。

l 食谱信息：菜的名字、配料、烹调方法以及准备方法。

因为LDAP目录可以定制成存储任何文本或二进制数据，到底存什么要由你自己决定。LDAP目录用对象类型（object classes）的概念来定义运行哪一类的对象使用什么属性。在几乎所有的LDAP服务器中，你都要根据自己的需要扩展基本的LDAP目录的功能，创建新的对象类型或者扩展现存的对象类型。

LDAP目录以一系列“属性对”的形式来存储记录项，每一个记录项包括属性类型和属性值（这与关系型数据库用行和列来存取数据有根本的不同）。下面是我存在LDAP目录中的一部分食谱记录：

dn: cn=Oatmeal Deluxe, ou=recipes, dc=foobar, dc=com

cn: Instant Oatmeal Deluxe

recipeCuisine: breakfast

recipeIngredient: 1 packet instant oatmeal

recipeIngredient: 1 cup water

recipeIngredient: 1 pinch salt

recipeIngredient: 1 tsp brown sugar

recipeIngredient: 1/4 apple, any type

请注意上面每一种配料都作为属性recipeIngredient值。LDAP目录被设计成象上面那样为一个属性保存多个值的，而不是在每一个属性的后面用逗号把一系列值分开。

因为用这样的方式存储数据，所以数据库就有很大的灵活性，不必为加入一些新的数据就重新创建表和索引。更重要的是，LDAP目录不必花费内存或硬盘空间处理“空”域，也就是说，实际上不使用可选择的域也不会花费你任何资源。

作为例子的一个单独的数据项
让我们看看下面这个例子。我们用Foobar, Inc.的员工Fran Smith的LDAP记录。这个记录项的格式是LDIF，用来导入和导出LDAP目录的记录项。

dn: uid=fsmith, ou=employees, dc=foobar, dc=com

objectclass: person

objectclass: organizationalPerson

objectclass: inetOrgPerson

objectclass: foobarPerson

uid: fsmith

givenname: Fran

sn: Smith

cn: Fran Smith

cn: Frances Smith

telephonenumber: 510-555-1234

roomnumber: 122G

o: Foobar, Inc.

mailRoutingAddress: fsmith@foobar.com

mailhost: mail.foobar.com

userpassword: {crypt}3x1231v76T89N

uidnumber: 1234

gidnumber: 1200

homedirectory: /home/fsmith

loginshell: /usr/local/bin/bash

属性的值在保存的时候是保留大小写的，但是在默认情况下搜索的时候是不区分大小写的。某些特殊的属性（例如，password）在搜索的时候需要区分大小写。

让我们一点一点地分析上面的记录项。

dn: uid=fsmith, ou=employees, dc=foobar, dc=com

这是Fran的LDAP记录项的完整DN，包括在目录树中的完整路径。LDAP（和X.500）使用uid（User ID），不要把它和UNIX的uid号混淆了。

objectclass: person

objectclass: organizationalPerson

objectclass: inetOrgPerson

objectclass: foobarPerson

可以为任何一个对象根据需要分配多个对象类型。person对象类型要求cn（common name）和sn（surname）这两个域不能为空。persion对象类型允许有其它的可选域，包括givenname、telephonenumber，等等。organizational Person给person加入更多的可选域，inetOrgPerson又加入更多的可选域（包括电子邮件信息）。最后，foobarPerson是为Foobar定制的对象类型，加入了很多定制的属性。

uid: fsmith

givenname: Fran

sn: Smith

cn: Fran Smith

cn: Frances Smith

telephonenumber: 510-555-1234

roomnumber: 122G

o: Foobar, Inc.

以前说过了，uid表示User ID。当看到uid的时候，就在脑袋里想一想“login”。

请注意CN有多个值。就象上面介绍的，LDAP允许某些属性有多个值。为什么允许有多个值呢？假定你在用公司的LDAP服务器查找Fran的电话号码。你可能只知道她的名字叫Fran，但是对人力资源处的人来说她的正式名字叫做Frances。因为保存了她的两个名字，所以用任何一个名字检索都可以找到Fran的电话号码、电子邮件和办公房间号，等等。

mailRoutingAddress: fsmith@foobar.com

mailhost: mail.foobar.com

就象现在大多数的公司都上网了，Foobar用Sendmail发送邮件和处理外部邮件路由信息。Foobar把所有用户的邮件信息都存在LDAP中。最新版本的Sendmail支持这项功能。

Userpassword: {crypt}3x1231v76T89N

uidnumber: 1234

gidnumber: 1200

gecos: Frances Smith

homedirectory: /home/fsmith

loginshell: /usr/local/bin/bash

注意，Foobar的系统管理员把所有用户的口令映射信息也都存在LDAP中。FoobarPerson类型的对象具有这种能力。再注意一下，用户口令是用UNIX的口令加密格式存储的。UNIX的uid在这里为uidnumber。提醒你一下，关于如何在LDAP中保存NIS信息，有完整的一份RFC。在以后的文章中我会谈一谈NIS的集成。

LDAP复制
LDAP服务器可以使用基于“推”或者“拉”的技术，用简单或基于安全证书的安全验证，复制一部分或者所有的数据。

例如，Foobar有一个“公用的”LDAP服务器，地址为ldap.foobar.com，端口为389。Netscape Communicator的电子邮件查询功能、UNIX的“ph”命令要用到这个服务器，用户也可以在任何地方查询这个服务器上的员工和客户联系信息。公司的主LDAP服务器运行在相同的计算机上，不过端口号是1389。

你可能即不想让员工查询资产管理或食谱的信息，又不想让信息技术人员看到整个公司的LDAP目录。为了解决这个问题，Foobar有选择地把子目录树从主LDAP服务器复制到“公用”LDAP服务器上，不复制需要隐藏的信息。为了保持数据始终是最新的，主目录服务器被设置成即时“推”同步。这些种方法主要是为了方便，而不是安全，因为如果有权限的用户想查询所有的数据，可以用另一个LDAP端口。

假定Foobar通过从奥克兰到欧洲的低带宽数据的连接用LDAP管理客户联系信息。可以建立从ldap.foobar.com:1389到munich-ldap.foobar.com:389的数据复制，象下面这样：

periodic pull: ou=asia,ou=customers,o=sendmail.com

periodic pull: ou=us,ou=customers,o=sendmail.com

immediate push: ou=europe,ou=customers,o=sendmail.com

“拉”连接每15分钟同步一次，在上面假定的情况下足够了。“推”连接保证任何欧洲的联系信息发生了变化就立即被“推”到Munich。

用上面的复制模式，用户为了访问数据需要连接到哪一台服务器呢？在Munich的用户可以简单地连接到本地服务器。如果他们改变了数据，本地的LDAP服务器就会把这些变化传到主LDAP服务器。然后，主LDAP服务器把这些变化“推”回本地的“公用”LDAP服务器保持数据的同步。这对本地的用户有很大的好处，因为所有的查询（大多数是读）都在本地的服务器上进行，速度非常快。当需要改变信息的时候，最终用户不需要重新配置客户端的软件，因为LDAP目录服务器为他们完成了所有的数据交换工作。

安全和访问控制
LDAP提供很复杂的不同层次的访问控制或者ACI。因这些访问可以在服务器端控制，这比用客户端的软件保证数据的安全可安全多了。

用LDAP的ACI，可以完成：

l 给予用户改变他们自己的电话号码和家庭地址的权限，但是限制他们对其它数据（如，职务名称，经理的登录名，等等）只有“只读”权限。

l 给予“HR-admins”组中的所有人权限以改变下面这些用户的信息：经理、工作名称、员工号、部门名称和部门号。但是对其它域没有写权限。

l 禁止任何人查询LDAP服务器上的用户口令，但是可以允许用户改变他或她自己的口令。

l 给予经理访问他们上级的家庭电话的只读权限，但是禁止其他人有这个权限。

l 给予“host-admins”组中的任何人创建、删除和编辑所有保存在LDAP服务器中的与计算机主机有关的信息

l 通过Web，允许“foobar-sales”组中的成员有选择地给予或禁止他们自己读取一部分客户联系数据的读权限。这将允许他们把客户联系信息下载到本地的笔记本电脑或个人数字助理（PDA）上。（如果销售人员的软件都支持LDAP，这将非常有用）

l 通过Web，允许组的所有者删除或添加他们拥有的组的成员。例如：可以允许销售经理给予或禁止销售人员改变Web页的权限。也可以允许邮件假名（mail aliase）的所有者不经过IT技术人员就直接从邮件假名中删除或添加用户。“公用”的邮件列表应该允许用户从邮件假名中添加或删除自己（但是只能是自己）。也可以对IP地址或主机名加以限制。例如，某些域只允许用户IP地址以192.168.200.开头的有读的权限，或者用户反向查找DNS得到的主机名必须为.foobar.com。

Kimi 2006-05-09 15:48 发表评论

OLAP 小记

Kimi — Sun, 07 May 2006 09:32:00 GMT

OLAP，英文全称为On-Line Analysis Processing，中文名称为联机分析处理，也称为在线
分析处理。

随着数据库技术的发展和应用，数据库存储的数据量从20世纪80年代的兆（M）字节及千兆（G）
字节过渡到现在的兆兆（T）字节和千兆兆（P）字节，同时，用户的查询需求也越来越复杂，涉
及的已不仅是查询或操纵一张关系表中的一条或几条记录，而且要对多张表中千万条记录的数据
进行数据分析和信息综合，关系数据库系统已不能全部满足这一要求。操作型应用和分析型应用，
特别是在性能上难以两全，人们常常在关系数据库中放宽了对冗余的限制，引入了统计及综合数
据，但这些统计综合数据的应用逻辑是分散而杂乱的、非系统化的，因此分析功能有限，不灵活，
维护困难。在国外，不少软件厂商采取了发展其前端产品来弥补关系数据库管理系统支持的不足，
他们通过专门的数据综合引擎，辅之以更加直观的数据访问界面，力图统一分散的公共应用逻辑，
在短时间内响应非数据处理专业人员的复杂查询要求。1993年，E.F.Codd（关系数据库之父）将
这类技术定义为“OLAP”。

OLAP是共享多维信息的、针对特定问题的联机数据访问和分析的快速软件技术。它通过对信息的
多种可能的观察形式进行快速、稳定一致和交互性的存取，允许管理决策人员对数据进行深入观察
。决策数据是多维数据，多维数据就是决策的主要内容。OLAP专门设计用于支持复杂的分析操作，
侧重对决策人员和高层管理人员的决策支持，可以根据分析人员的要求快速、灵活地进行大数据量
的复杂查询处理，并且以一种直观而易懂的形式将查询结果提供给决策人员，以便他们准确掌握企
业（公司）的经营状况，了解对象的需求，制定正确的方案。

OLAP具有灵活的分析功能、直观的数据操作和分析结果可视化表示等突出优点，从而使用户对基
于大量复杂数据的分析变得轻松而高效，以利于迅速做出正确判断。它可用于证实人们提出的复杂
的假设，其结果是以图形或者表格的形式来表示的对信息的总结。它并不将异常信息标记出来，是
一种知识证实的方法。

Kimi 2006-05-07 17:32 发表评论

ORACLE 成长：ORACLE JOBS 参数

Kimi — Fri, 21 Apr 2006 06:58:00 GMT

DBA_JOBS
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
字段（列）          类型                 描述
JOB                NUMBER          任务的唯一标示号
LOG_USER           VARCHAR2(30)    提交任务的用户
PRIV_USER          VARCHAR2(30)    赋予任务权限的用户
SCHEMA_USER        VARCHAR2(30)    对任务作语法分析的用户模式
LAST_DATE          DATE            最后一次成功运行任务的时间
LAST_SEC           VARCHAR2(8)     如HH24:MM:SS格式的last_date日期的小时，分钟和秒
THIS_DATE     DATE            正在运行任务的开始时间，如果没有运行任务则为null
THIS_SEC     VARCHAR2(8)     如HH24:MM:SS格式的this_date日期的小时，分钟和秒
NEXT_DATE          DATE            下一次定时运行任务的时间
NEXT_SEC           VARCHAR2(8)     如HH24:MM:SS格式的next_date日期的小时，分钟和秒
TOTAL_TIME         NUMBER          该任务运行所需要的总时间，单位为秒
BROKEN             VARCHAR2(1)     标志参数，Y标示任务中断，以后不会运行
INTERVAL           VARCHAR2(200)   用于计算下一运行时间的表达式
FAILURES    NUMBER     任务运行连续没有成功的次数
WHAT               VARCHAR2(2000) 执行任务的PL/SQL块
CURRENT_SESSION_LABEL RAW          MLSLABEL 该任务的信任Oracle会话符
CLEARANCE_HI      RAW MLSLABEL     该任务可信任的Oracle最大间隙
CLEARANCE_LO      RAW              MLSLABEL 该任务可信任的Oracle最小间隙
NLS_ENV           VARCHAR2(2000)   任务运行的NLS会话设置
MISC_ENV          RAW(32)          任务运行的其他一些会话参数

描述                    INTERVAL参数值
每天午夜12点            'TRUNC(SYSDATE + 1)'
每天早上8点30分         'TRUNC(SYSDATE + 1) + （8*60+30）/(24*60)'
每星期二中午12点         'NEXT_DAY(TRUNC(SYSDATE ), ''TUESDAY'' ) + 12/24'
每个月第一天的午夜12点    'TRUNC(LAST_DAY(SYSDATE ) + 1)'
每个季度最后一天的晚上11点 'TRUNC(ADD_MONTHS(SYSDATE + 2/24, 3 ), 'Q' ) -1/24'
每星期六和日早上6点10分    'TRUNC(LEAST(NEXT_DAY(SYSDATE, ''SATURDAY"), NEXT_DAY(SYSDATE, "SUNDAY"))) + （6×60+10）/（24×60）'

Kimi 2006-04-21 14:58 发表评论

ORACLE成长：一个动态SQL

Kimi — Thu, 20 Apr 2006 09:13:00 GMT

CREATE OR REPLACE Procedure Filldpb(Username1 In Varchar2) Is

Str_Sql Varchar2(1000);
v_Customer_Cc1 Constant Varchar2(20) := 'DP';
v_Customer_Cc2 Constant Varchar2(20) := 'mm';
v_Customer_Cc3 Constant Varchar2(20) := 'yyyy';
Logid Number(20);

Begin
Logid := 0;
Select Decode((Select Nvl(Menologyid, 0)
         From Dpdt.Menology Ec
         Where Ec.Brand = 'DP' And Ec.Branch = Username1 And Ec.Yearid = To_Char(Sysdate, 'yyyy') And
            Ec.Monthid = To_Char(Sysdate, 'mm')), Null, 0, 1)
Into Logid
From Dual;

If (Logid <> 0) Then
  Str_Sql := 'Update dpdt.menology w Set w.sumsale=(Select Nvl(Sum(Sprc), 0) From ' || Username1 ||
        '.Zsale T1 Where To_Char(T1.Sdate,' || '''' || v_Customer_Cc2 || '''' || ') Like To_Char(Sysdate,' || '''' ||
        v_Customer_Cc2 || '''' || '))';
Else
  Str_Sql := 'Insert into dpdt.menology values(Portsequence.Nextval, ' || '''' || v_Customer_Cc1 || '''' || ', ' || '''' ||
        Username1 || '''' || ', To_Char(Sysdate, ' || '''' || v_Customer_Cc3 || '''' || '), To_Char(Sysdate, ' || '''' ||
        v_Customer_Cc2 || '''' || '),(Select Nvl(Sum(Sprc), 0) From ' || Username1 ||
        ' .Zsale T1 Where To_Char(T1.Sdate, ' || '''' || v_Customer_Cc2 || '''' || ') Like To_Char(Sysdate, ' || '''' ||
        v_Customer_Cc2 || '''' || ')))';

  /*Str_Sql := ' Merge Into Dpdt.Menology Using (Select * From Dpdt.Menology Ec Where Ec.Brand = ' || '''' ||
            v_Customer_Cc1 || '''' || ' And Ec.Branch = ' || '''' || Username || '''' ||
            ' And Ec.Yearid = To_Char(Sysdate, ' || '''' || v_Customer_Cc3 || '''' ||
            ') And Ec.Monthid = To_Char(Sysdate, ' || '''' || v_Customer_Cc2 || '''' ||
            ')) Cc On (Cc.Menologyid Is Not Null) When Matched Then Update Set Sumsale = (Select Nvl(Sum(Sprc), 0) From ' || Username || ' .Zsale T1 Where To_Char(T1.Sdate, ' || '''' || v_Customer_Cc2 || '''' || ') Like To_Char(Sysdate, ' || '''' ||
            v_Customer_Cc2 || '''' || '))

    When Not Matched Then Insert(Menologyid, Brand, Branch, Yearid, Monthid, Sumsale) Values(Portsequence.Nextval, ' || '''' || v_Customer_Cc1 || '''' || ', ' || '''' || Username || '''' ||
            ', To_Char(Sysdate, ' || '''' || v_Customer_Cc3 || '''' || '), To_Char(Sysdate, ' || '''' || v_Customer_Cc2 || '''' ||
            '),(Select Nvl(Sum(Sprc), 0) From ' || Username || ' .Zsale T1 Where To_Char(T1.Sdate, ' || '''' || v_Customer_Cc2 || '''' || ') Like To_Char(Sysdate, ' || '''' ||
            v_Customer_Cc2 || '''' || ')) ';*/
End If;
Execute Immediate Str_Sql; --动态执行DDL语句
Commit;
Exception
When Others Then
  Dbms_Output.Put_Line(Sqlerrm);
  Rollback;
End Filldpb;

Kimi 2006-04-20 17:13 发表评论