Oracle和MSSQL中循环的使用
ORACLE
CREATE OR REPLACE FUNCTION SETSTATE(OLDVALUE VARCHAR2, POS NUMBER, SVALUE VARCHAR2)
RETURN VARCHAR2
IS
RETURN_VALUE VARCHAR2 (20);
LEN NUMBER(8);
I NUMBER(8);
TEMP_VALUE VARCHAR2(1);
BEGIN
LEN := LENGTH(OLDVALUE);
IF POS > LEN THEN
RETURN '指定的索引大于字符串的长度！';
END IF;
I := 0;
RETURN_VALUE := '';
FOR I IN 1..LEN LOOP
TEMP_VALUE := SUBSTR(OLDVALUE, I, 1);
IF I = POS THEN
TEMP_VALUE := SVALUE;
END IF;
RETURN_VALUE := RETURN_VALUE || TEMP_VALUE;
END LOOP;
RETURN RETURN_VALUE;
END;
MSSQL
IF EXISTS(SELECT * from SYSOBJECTS WHERE NAME = 'SETSTATE')
DROP FUNCTION SETSTATE
GO
CREATE FUNCTION SETSTATE(@OLDVALUE NVARCHAR(20), @POS INT, @SVALUE NVARCHAR(1))
RETURNS NVARCHAR(20)
AS
BEGIN
DECLARE @RETURN_VALUE NVARCHAR(20),
@LENGTH INT,
@I INT,
@TEMP_VALUE NVARCHAR(1);
SET @LENGTH = LEN(@OLDVALUE);
SET @I = 1;
SET @RETURN_VALUE = '';
IF(@POS > @LENGTH)
SET @RETURN_VALUE = @OLDVALUE;
ELSE
BEGIN
WHILE(@I <= @LENGTH)
BEGIN
SET @TEMP_VALUE = SUBSTRING(@OLDVALUE, @I, 1);
IF (@I = @POS)
SET @TEMP_VALUE = @SVALUE;
SET @RETURN_VALUE = @RETURN_VALUE + @TEMP_VALUE;
SET @I = @I + 1;
END
END
RETURN @RETURN_VALUE;
END
GO
相关文档：
1.尽可能地使用绑定变量 不用开关CURSOR_SHARING=FORCE
如果你愿意，这个特性会实现一个自动绑定器（auto-binder）。
如果有一个查询编写为SELECT * from EMP WHERE EMPNO = 1234，自动绑定器会悄无声息地把它改写成
SELECT * from EMP WHERE EMPNO = :x。这确实能动态地大大减少硬解析数，并减少前面讨论� ......
--JOBS
DECLARE
X NUMBER;
BEGIN
SYS.DBMS_JOB.SUBMIT(job => X,
what => 'sp_test();',
next_date => to_date('28-04-2009 11:58:00',
'dd/mm/yyyy hh24:mi:ss'),
interval => 'SYSDATE+1');
END;
/
commit;
select to_char(sysdate-90,'yyyymmdd') from dual; --选择日期
select * from ......
http://www.inthirties.com/thread-757-1-1.html
很荣幸，被邀请为CSDN学习大本营里的Oracle老师。有个网友发消息过来，一起探讨如何学习Oracle，一下是回复，和大家一起探讨。
首先，要明确你的方向和目标。
对于Oracle来说，这个体系是比较庞大的，所以明确一个目标和你的方向是在学习前需要思考的问题。 管理， ......
Oracle创建表时，常遇到先删除后创建的情况，而它又没有drop table... if exists语法。为此可以使用user_objects数据字典和动态sql语句实现类似的功能，如下所示：
create or replace procedure proc_dropifexists(
p_table in varchar2
) is
v_count number(10);
begin
&nbs ......
