登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

飞哥的技术博客

世上无难事,只怕有心人!

 
 
 

日志

 
 
 
 

简单Oracle存储过程教程  

2009-05-11 12:22:14|  分类: Oracle |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

简单Oracle存储过程教程

一个简单的分页存储过程的实现和调用。在看了众多的分页存储过程以后发现都是针对sqlserver的,而没有oracle的,因此想写一个关于oracle的存储过程,因为我用到的数据库是oracle。

Oracle分页存储过程的思路于sqlserver的思路是一样的,但是我这里做了点改动,在因为Oracle的语法和规则的不同所以,Oracle分页存储过程看上去有点不一样。见笑,见笑!

在Oracle的存储过程中返回记录集,需要用到游标变量,Oracle不能像sqlserver那样可以直接返回一个记录集。

create or replace package DotNet is

  -- Author  : good_hy
  -- Created : 2004-12-13 13:30:30
  -- Purpose :

  TYPE type_cur IS REF CURSOR;     --定义游标变量用于返回记录集
   
  PROCEDURE DotNetPagination(      
  Pindex in number,                --分页索引   
  Psql in varchar2,                --产生dataset的sql语句
  Psize in number,                 --页面大小
  Pcount out number,               --返回分页总数
  v_cur out type_cur               --返回当前页数据记录
  );  

  procedure DotNetPageRecordsCount(
  Psqlcount in varchar2,           --产生dataset的sql语句
  Prcount   out number             --返回记录总数
  );

end DotNot;
create or replace package body DotNet is

--***************************************************************************************

PROCEDURE DotNetPagination(
  Pindex in number,
  Psql in varchar2,
  Psize in number,  
  Pcount out number,
  v_cur out type_cur
)
AS

  v_sql VARCHAR2(1000);
  v_count number;  
  v_Plow number;
  v_Phei number;
Begin
  ------------------------------------------------------------取分页总数
  v_sql := 'select count(*) from (' || Psql || ')';
  execute immediate v_sql into v_count;
  Pcount := ceil(v_count/Psize);
  ------------------------------------------------------------显示任意页内容
  v_Phei := Pindex * Psize + Psize;
  v_Plow := v_Phei - Psize + 1;
  --Psql := 'select rownum rn,t.* from cd_ssxl t' ;            --要求必须包含rownum字段
  v_sql := 'select * from (' || Psql || ') where rn between ' || v_Plow || ' and ' || v_Phei ;

  open v_cur for v_sql;

End DotNetPagination;

--**************************************************************************************

procedure DotNetPageRecordsCount(
  Psqlcount in varchar2,
  Prcount   out number
  )
  as

   v_sql varchar2(1000);
   v_prcount number;
   
  begin

   v_sql := 'select count(*) from (' || Psqlcount || ')';
   execute immediate v_sql into v_prcount;
   Prcount := v_prcount;                  --返回记录总数                                                      
   
  end DotNetPageRecordsCount;

--**************************************************************************************

end DotNot;
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    Dim conn As New OracleClient.OracleConnection()
    Dim cmd As New OracleClient.OracleCommand()
    Dim dr As OracleClient.OracleDataReader

Private Sub gridbind(ByVal pindex As Integer, ByVal psql As String, Optional ByVal psize As Integer = 10)

        conn.ConnectionString = "Password=gzdlgis;User Source=gzgis"
        cmd.Connection = conn
        cmd.CommandType = CommandType.StoredProcedure
        conn.Open()

        '------------------------------------------------------------------------------------
        cmd.CommandText = "DotNot.DotNetPageRecordsCount"
        '------------------------------------------------------------------------------------
        cmd.Parameters.Add("psqlcount", OracleType.VarChar).Value = psql
        cmd.Parameters.Add("prcount", OracleType.Number).Direction = ParameterDirection.Output

        cmd.ExecuteNonQuery()

        Me.DataGrid1.AllowPaging = True
        Me.DataGrid1.AllowCustomPaging = True
        Me.DataGrid1.PageSize = psize
        Me.DataGrid1.VirtualItemCount = cmd.Parameters("prcount").Value

        cmd.Parameters.Clear()
        '------------------------------------------------------------------------------------
        cmd.CommandText = "DotNot.DotNetPagination"
        '------------------------------------------------------------------------------------
        cmd.Parameters.Add("pindex", Data.OracleClient.OracleType.Number).Value = pindex
        cmd.Parameters.Add("psql", Data.OracleClient.OracleType.VarChar).Value = psql '"select rownum rn,t.* from cd_ssxl t"
        cmd.Parameters.Add("psize", Data.OracleClient.OracleType.Number).Value = psize
        cmd.Parameters.Add("v_cur", Data.OracleClient.OracleType.Cursor).Direction = ParameterDirection.Output
        cmd.Parameters.Add("pcount", Data.OracleClient.OracleType.Number).Direction = ParameterDirection.Output

        dr = cmd.ExecuteReader()

        Me.DataGrid1.DataSource = dr
        Me.DataGrid1.DataBind()

        dr.Close()
        conn.Close()

        Response.Write("总计页数 " & cmd.Parameters("pcount").Value)
    End Sub

----------------------------------------------------------------------------------------

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Dim psql As String = "select rownum rn,t.* from cd_ssxl t"
            gridbind(0, psql, 20)
            
        End If

    End Sub

------

简单Oracle存储过程教程

一个简单的分页存储过程的实现和调用。在看了众多的分页存储过程以后发现都是针对sqlserver的,而没有oracle的,因此想写一个关于oracle的存储过程,因为我用到的数据库是oracle。

Oracle分页存储过程的思路于sqlserver的思路是一样的,但是我这里做了点改动,在因为Oracle的语法和规则的不同所以,Oracle分页存储过程看上去有点不一样。见笑,见笑!

在Oracle的存储过程中返回记录集,需要用到游标变量,Oracle不能像sqlserver那样可以直接返回一个记录集。

create or replace package DotNet is

  -- Author  : good_hy
  -- Created : 2004-12-13 13:30:30
  -- Purpose :

  TYPE type_cur IS REF CURSOR;     --定义游标变量用于返回记录集
   
  PROCEDURE DotNetPagination(      
  Pindex in number,                --分页索引   
  Psql in varchar2,                --产生dataset的sql语句
  Psize in number,                 --页面大小
  Pcount out number,               --返回分页总数
  v_cur out type_cur               --返回当前页数据记录
  );  

  procedure DotNetPageRecordsCount(
  Psqlcount in varchar2,           --产生dataset的sql语句
  Prcount   out number             --返回记录总数
  );

end DotNot;
create or replace package body DotNet is

--***************************************************************************************

PROCEDURE DotNetPagination(
  Pindex in number,
  Psql in varchar2,
  Psize in number,  
  Pcount out number,
  v_cur out type_cur
)
AS

  v_sql VARCHAR2(1000);
  v_count number;  
  v_Plow number;
  v_Phei number;
Begin
  ------------------------------------------------------------取分页总数
  v_sql := 'select count(*) from (' || Psql || ')';
  execute immediate v_sql into v_count;
  Pcount := ceil(v_count/Psize);
  ------------------------------------------------------------显示任意页内容
  v_Phei := Pindex * Psize + Psize;
  v_Plow := v_Phei - Psize + 1;
  --Psql := 'select rownum rn,t.* from cd_ssxl t' ;            --要求必须包含rownum字段
  v_sql := 'select * from (' || Psql || ') where rn between ' || v_Plow || ' and ' || v_Phei ;

  open v_cur for v_sql;

End DotNetPagination;

--**************************************************************************************

procedure DotNetPageRecordsCount(
  Psqlcount in varchar2,
  Prcount   out number
  )
  as

   v_sql varchar2(1000);
   v_prcount number;
   
  begin

   v_sql := 'select count(*) from (' || Psqlcount || ')';
   execute immediate v_sql into v_prcount;
   Prcount := v_prcount;                  --返回记录总数                                                      
   
  end DotNetPageRecordsCount;

--**************************************************************************************

end DotNot;
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    Dim conn As New OracleClient.OracleConnection()
    Dim cmd As New OracleClient.OracleCommand()
    Dim dr As OracleClient.OracleDataReader

Private Sub gridbind(ByVal pindex As Integer, ByVal psql As String, Optional ByVal psize As Integer = 10)

        conn.ConnectionString = "Password=gzdlgis;User Source=gzgis"
        cmd.Connection = conn
        cmd.CommandType = CommandType.StoredProcedure
        conn.Open()

        '------------------------------------------------------------------------------------
        cmd.CommandText = "DotNot.DotNetPageRecordsCount"
        '------------------------------------------------------------------------------------
        cmd.Parameters.Add("psqlcount", OracleType.VarChar).Value = psql
        cmd.Parameters.Add("prcount", OracleType.Number).Direction = ParameterDirection.Output

        cmd.ExecuteNonQuery()

        Me.DataGrid1.AllowPaging = True
        Me.DataGrid1.AllowCustomPaging = True
        Me.DataGrid1.PageSize = psize
        Me.DataGrid1.VirtualItemCount = cmd.Parameters("prcount").Value

        cmd.Parameters.Clear()
        '------------------------------------------------------------------------------------
        cmd.CommandText = "DotNot.DotNetPagination"
        '------------------------------------------------------------------------------------
        cmd.Parameters.Add("pindex", Data.OracleClient.OracleType.Number).Value = pindex
        cmd.Parameters.Add("psql", Data.OracleClient.OracleType.VarChar).Value = psql '"select rownum rn,t.* from cd_ssxl t"
        cmd.Parameters.Add("psize", Data.OracleClient.OracleType.Number).Value = psize
        cmd.Parameters.Add("v_cur", Data.OracleClient.OracleType.Cursor).Direction = ParameterDirection.Output
        cmd.Parameters.Add("pcount", Data.OracleClient.OracleType.Number).Direction = ParameterDirection.Output

        dr = cmd.ExecuteReader()

        Me.DataGrid1.DataSource = dr
        Me.DataGrid1.DataBind()

        dr.Close()
        conn.Close()

        Response.Write("总计页数 " & cmd.Parameters("pcount").Value)
    End Sub

----------------------------------------------------------------------------------------

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Dim psql As String = "select rownum rn,t.* from cd_ssxl t"
            gridbind(0, psql, 20)
            
        End If

    End Sub

---------------------------------------------------------------------------------------

    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        Dim psql As String = "select rownum rn,t.* from cd_ssxl t"

        Me.DataGrid1.CurrentPageIndex = e.NewPageIndex
        gridbind(e.NewPageIndex, psql, 20)
    End Sub

Copyright © 2005-2008 PHP China. All rights reserved Server sponsored by Zend & Comsenz




引文来源  简单Oracle存储过程教程 - PHPChina 开源社区门户 - PHP论坛|PHP教程|PHP源码|PHP下载|PHP培训|PHP新闻|PHP专题|Zend产品服务|PHP学习---------------------------------------------------------------------------------

    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        Dim psql As String = "select rownum rn,t.* from cd_ssxl t"

        Me.DataGrid1.CurrentPageIndex = e.NewPageIndex
        gridbind(e.NewPageIndex, psql, 20)
    End Sub

Copyright © 2005-2008 PHP China. All rights reserved Server sponsored by Zend & Comsenz




引文来源  简单Oracle存储过程教程 - PHPChina 开源社区门户 - PHP论坛|PHP教程|PHP源码|PHP下载|PHP培训|PHP新闻|PHP专题|Zend产品服务|PHP学习
  评论这张
 
阅读(339)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018