Oracle記憶過程教程

Oracle改ページ保存プロセスの考え方はsqlserverと同じですが、ここではOracleの文法と規則が違っていますので、Oracle改ページ保存過程はちょっと違っています。笑って、笑ってくださいOracleの記憶過程で記録集に戻ります。ラベル変数を使う必要があります。Oracleはsqlserverのように直接に記録集に戻ることができません。ネットでは複雑なsql文を生成することを想定していますので、sql文を生成することは記憶中に考えられませんでした。以下はOracleで実現されるページ別保存プロセスである。

 
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; 

以下は.netでOracle改ページ保存プロセスを呼び出すステップである。ネットでは記録集に戻るためのメモリーを呼び出しますが、datagridの中の改ページはサポートされていませんので、datagridのカスタマイズページ機能を利用する必要があります。

 
rotected 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 ID=gzdlgis;Data 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