Oracle中table类型数据赋值给cursor 5C

在Type中创建了一个类型:
create or replace type bb_ptyxztqk_Table as table of bb_ptyxztqk_type;
里面放自定义的record类型,现在要将table中的数据放置到cursor中,怎么弄?
这样弄不行:
open cur for
select r_index, r_name, r_this, r_last, r_minus
from table(cast(obj_type_tab AS bb_ptyxztqk_type));
求大神指点!
整体代码:
类型:
create or replace type bb_ptyxztqk_Table as table of bb_ptyxztqk_type;
create or replace type bb_ptyxztqk_Type as object(
d_index number,
d_name varchar2(100),
d_this number,
d_last number,
d_minus number
);
sql:
PROCEDURE pro_getdata(enddate in varchar2, cur out type_cursor) is
Type RecType Is Record(
r_index number,
r_name varchar2(100),
r_this number,
r_last number,
r_minus number);
Type TabType Is Table Of RecType Index By Binary_Integer;
myTab TabType;
obj_type_tab bb_ptyxztqk_table := bb_ptyxztqk_table();
l_index number := 1;
begin
if (l_index = 1) then
myTab(l_index).r_index := 1;
myTab(l_index).r_name := '上线单位';
myTab(l_index).r_this := 123;
myTab(l_index).r_last := 456;
myTab(l_index).r_minus := 333;
end if;
l_index := myTab.First;
for l_in in l_index .. myTab.count Loop
obj_type_tab.EXTEND;
obj_type_tab(obj_type_tab.LAST) := bb_ptyxztqk_type(myTab(l_index).r_index,
myTab(l_index).r_name,
myTab(l_index).r_this,
myTab(l_index).r_last,
myTab(l_index).r_minus);
l_index := myTab.Next(l_index);
end Loop;
open cur for
select r_index, r_name, r_this, r_last, r_minus
from table(cast(obj_type_tab AS bb_ptyxztqk_type));

end;

2个回答

CREATE OR REPLACE NONEDITIONABLE PROCEDURE pro_getdata(enddate in varchar2, cur out sys_refcursor) is
Type RecType Is Record(
r_index number,
r_name varchar2(100),
r_this number,
r_last number,
r_minus number);
Type TabType Is Table Of RecType Index By Binary_Integer;

myTab TabType;

obj_type_tab bb_ptyxztqk_table;
l_index number := 1;

begin
if (l_index = 1) then
myTab(l_index).r_index := 1;
myTab(l_index).r_name := '上线单位';
myTab(l_index).r_this := 123;
myTab(l_index).r_last := 456;
myTab(l_index).r_minus := 333;
end if;
l_index := myTab.First;
for l_in in l_index .. myTab.count Loop
obj_type_tab.EXTEND;
obj_type_tab(obj_type_tab.LAST) := bb_ptyxztqk_type(myTab(l_index).r_index,
myTab(l_index).r_name,
myTab(l_index).r_this,
myTab(l_index).r_last,
myTab(l_index).r_minus);
l_index := myTab.Next(l_index);
end Loop;
open cur for
select d_index, d_name, d_this, d_last, d_minus
from table(obj_type_tab);
end;

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
请问有关oracle中的cursor类型
我在用ado连接oracle 8.05时,返回的recordcount等于-1,代码如下rnDim conn As New ADODB.ConnectionrnDim rs As New ADODB.Recordsetrnconn.Open "Provider=MSDAORA.1;Password=bjxt;User ID=bjxt;" & _rn "Data Source=bjxt;Persist Security Info=True"rnrs.Open "select * from yqdm", conn, 1, 1rnMsgBox rs.RecordCountrn此时显示-1,但是如果在rs.Open "select * from yqdm", conn, 1, 1 之前加入rnrs.CursorLocation = adUseClientrn此时显示了正确的结果22。rn但是如果连接到sql server 7,rs.cursorlocation等于adUseClient还是adUseServerrn都能得到正确的结果。rnrn所以请问这是什么原因?oracle 中的cursor类型是什么?
c#如何接收oracle包中返回的cursor类型数据?
oracle数据库 包 ABC中 返回的是个游标rnrnType t_cursor is ref cursorrnrn然后我c# 怎么接收 这个t_cursorrn听说oracle 返回游标的 t_cursor 是返回的一个tablern我 c#怎么接收啊?rn谢谢。
如何给Image类型数据赋值
表中有一列的数据类型是image,请问如何输入此类型的数据rn
请问 如何给CLongBinary类型的数据赋值
有40000个字节的数据,想要赋给定义为CLongBinary类型的一个变量,怎么做?rn希望能给出具体的语句,谢谢
怎样给BYTE类型的数据赋值。
我想把 0101010 二进制赋值给Outdata,请问怎么做?rnBYTE* Outdata=new BYTE[32]; rn谢谢。rn
如何给ADODB.FIELD类型的数据赋值?!
我想调用一个函数,这个函数需要一个ADODB.FIELD类型的参数rn请问如何给这个参数赋初值?!
如何将byte[]类型的数据赋值给RSAPrivateKey?
想将明文用rsa密钥加密,密钥保存在byte数组中。rn代码如下:rnCipher cipher=Cipher.getInstance("RSA/ECB/PKCS1Padding");rncipher.init(Cipher.ENCRYPT_MODE, ???);rn问题是在cipher的第二个参数中,需要填入Key类型的rsa密钥。我的rsa密钥原来是保存在文本文件中的,读出来之后变成了Byte数组类型,请问如何把它转换成Key类型(或者RSAPrivateKey)?
如何在.cs中给table赋值?
现有一个table设为服务器控件,id为table1,如何在.cs中将文字赋给table?
动态给TABLE中的每个单元格赋值
用json返回一个对象数组,然后动态创建表格,把json返回数组里面的内容添加到创建的动态表格里面去rn只要知道怎么得到某一个单元格的对象、任何把显示的内容放上去
如何将Table赋值给DataGrid?
我通过SQL查询得到DataVeiw,因为特殊要求我需要DataGrid显示成:rn工序| 费用明细 | 内部结算收入rn-----------------------rn | 人工费 | 人工 | 55.56rn |-----|---------------rn上料| 机械费 | 装载机 | 89.12rn | |---------------rn | | 推土机 | 87.87rn-----------------------rn我将得到的DataView转换为Table, 现在table已符合要求,我怎么能将这个table赋值给DataGrid???rn谢谢!!!
jquery 动态给table赋值
html请忽视各种class,因为前端用的是layui<table class="layui-table" lay-skin="line" id="datas"> <colgroup> <col width="150"> <col width="200"> <col> </colgroup> <thead> <tr>
如何给table统一赋值
rn现在是 bordercolor在每个页面里面都要设置,很是麻烦,rn而在css里面我没有看到什么属性能够替代bordercolor,rn我不单单是让table的边框有颜色,还要在表格的中间一样的效果,rn而不是中间全部白的,请问有没有办法在一个地方一次性设置,rn或者能不能让"#1180c0"这个颜色值动态设置,否则以后修改可麻烦了
利用ajax给table赋值
我在前台有一个需求表 是一个十行五列的表格rn我用ajax写入了数据库 ajax方法如下rn function AddValue() rn var optvalArr = []; var data;rn $(".Opints", "#Need").each(function (i, u) rn //取行中5个文本框的值rn var a = $("input[name='uModel']", u).val();rn var b = $("input[name='uArea']", u).val();rn var c = $("input[name='uLeiXing']", u).val();rn var d = $("input[name='uPingShu']", u).val();rn var e = $("input[name='uSpec']", u).val();rnrn optvalArr.push('"Model":"' + a + '","Area":"' + b + '","LeiXing":"' + c + '","PingShu":"' + d + '","Spec":"' + e + '"');rn data = JSON.parse("[" + optvalArr.join(",") + "]");rnrn );rn GetArea(optvalArr);rn rn function GetArea(optvalArr) rn $.ajax(rn type: "post",rn url: "tools/UserNeed.ashx",rn data: "action=add&options=" + escape(optvalArr.join(",")) + "",rn success: function (data) rn alert(datat);rn rn )rn rn表格如下图,依次循环十行就可以了rn rn rn rn rn rn 10rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn现在 在后台我要把他读出来 按照前台的顺序一次入到表格中 数据库中的数据如何下 rn"Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑","Model":"李騰飛","Area":"灿灿","LeiXing":"韩寒","PingShu":"星星","Spec":"笑笑"rnrn请教下 如何把这次数据一次赋值给表格?
关于给table宽度赋值
var a = 200;rn var bodywidth = document.body.offsetWidth; rn var map= bodywidth - a;rn document.all("MapControl1").style.width = map;rnrn这样的话 好像 获取不到值是: objects;rn请各位大侠帮帮忙
oracle 中如何给一个nvarchar2类型的绑定变量赋值.
定义一个绑定变量:rnvariable v1 nvarchar2rn赋值rnexecute :v1 ?
oracle给日期赋值
update PL_TOTAL_STOCK t set t.xiaoqi = to_date('2019-07-31','yyyy-MM-dd') where t.id = '830885870f684492b4dedbaf0d22fc2a';
table之间可以赋值吗?把一个table类型赋值给
网页里创建了 rn rn rn相应的cs为: rnrnprotected void Button4_Click(object sender, EventArgs e) rn rn String sql = "select * from user_info"; rn string[] th = "id", "用户名", "密码" ; rn string[] getname = "id", "username", "password" ; rn this.usertable = CreatTable.cTable(sql, th, getname); rn rn rn调用的CreatTable类为: rnpublic static Table cTable(string sql, string[] thname,string[] getname) rn rnrn int col = thname.Length; rn Table ct = new Table(); rn ct.BorderWidth = 2; rn TableRow th = new TableRow(); rn for (int i = 0; i < col; i++) rn rn TableCell thc = new TableCell(); rn thc.Width = 100; rn thc.Text = thname[i]; rn th.Cells.Add(thc); rn rn //取出查询的结果 rn DataSet ds = DB.dbSearch(sql); rn if (ds.Tables[0].Rows.Count == 0) rn rnrn rn else rn rn for(int j=0;j
如何把CString类型的数据赋值给LPTSTR类型的变量??
如题!!rntypedef struct _NETRESOURCE rn DWORD dwScope; rn DWORD dwType; rn DWORD dwDisplayType; rn DWORD dwUsage; rn LPTSTR lpLocalName; rn LPTSTR lpRemoteName; rn LPTSTR lpComment; rn LPTSTR lpProvider; rn NETRESOURCE;rnNETRESOURCE ns;rnCStringList grouplist;rn我想把rngrouplist.RemoveHead()的值赋给rnns.lpRemoteNamern怎么办??rnrn
如何把CString类型的数据给LPCTSTR类型赋值
如何把CString类型的数据给LPCTSTR类型赋值 rn
如何把CString类型的数据给LPCTSTR类型赋值呢?
代码如下:rnrnvoid CEeeeDlg::OnBtnSelmovie() rnrn // TODO: Add your control notification handler code herern char sz_FileName[128]="";rn CString FileName;rn CFileDialog dlg(TRUE,NULL,NULL,OFN_HIDEREADONLY|OFN_PATHMUSTEXIST,c_szRmFilter,this);rnFilter, this);rn memset(sz_FileName,0,sizeof(sz_FileName));rn rn if (dlg.DoModal() != IDOK) return;rn FileName=dlg.GetFileName();rn WMPPlayer.SetUrl(FileName);rnrnrnWMPPlayer类的SetUrl方法定义如下:rn void SetUrl(LPCTSTR lpszNewValue);rn
怎么样给类型中的过程赋值
Typern TOnAudit = Procedure(Sender: TObject)rnrn TTest = Packed Recordrn OnAudit: TOnAudit;rnendrnrnrnrnProcedure Button1OnClick(Sender: TObject);rnvarrn Test: TTest;rnbeginrn Test.OnAudit := ?????? //怎样对过程进行赋值.rnend;
给实体类的数据赋值
[code=csharp]rn protected void Page_Load(object sender, EventArgs e)rn rn if (Session["UserName"] == null)rn rn //this.ClientScript.RegisterClientScriptBlock(this.GetType(), "key1", "alert('请先登录!')",true);rn //Response.Redirect("~/index.aspx");rn this.ClientScript.RegisterStartupScript(this.GetType(), "", " ");rnrn rn elsern rn if (!IsPostBack)rn rn Profile.shoplist.GetCartItem(Session["UserName"].ToString());rn string DressId = Request.QueryString["DressId"];rn int Num = Convert.ToInt32(Request.QueryString["num"]);rn string size = Request.QueryString["size"];rn if (!string.IsNullOrEmpty(DressId))rn rnrn if (Session["flag"].ToString().Equals(""))rn rn Profile.shoplist.Add(DressId, size, Num);rn Session["flag"] = DressId;rnrn rnrn rn BingCart(Profile.shoplist);rn Profile.shoplist.SetCartItems(Session["UserName"].ToString());rn Profile.Save();rn rn rnrn rn[/code]rn[code=csharp]rn public class DressItemInforn rn string dressId;//服装编号rn public string DressIdrn rn get return dressId; rn set dressId = value; rn rnrn string dressMerchant;//商家rn public string DressMerchantrn rn get return dressMerchant; rn set dressMerchant = value; rn rnrn decimal unitcost;//成本价rn public decimal Unitcostrn rn get return unitcost; rn set unitcost = value; rn rnrn decimal marketPrice;//市场价rn public decimal MarketPricern rn get return marketPrice; rn set marketPrice = value; rn rnrn decimal orignial;//吊牌价rn public decimal Orignialrn rn get return orignial; rn set orignial = value; rn rnrn string dressTitle;//商品标题rn public string DressTitlern rn get return dressTitle; rn set dressTitle = value; rn rnrn string dressdetails;//商品介绍rn public string Dressdetailsrn rn get return dressdetails; rn set dressdetails = value; rn rnrn string dressImage;//图片rn public string DressImagern rn get return dressImage; rn set dressImage = value; rn rnrn int qty;//库存rn public int Qtyrn rn get return qty; rn set qty = value; rn rnrn string size;//尺寸大小rnrn public string Sizern rn get return size; rn set size = value; rn rn int quantity;//购买数量rnrn public int Quantityrn rn get return quantity; rn set quantity = value; rn rn ///rn ///默认构造rn ///rn public DressItemInfo() rn public DressItemInfo(int quantity) this.quantity = quantity; rn ///rn ///带参数构造rn ///rn public DressItemInfo(string DressId, string DressMerchant, decimal Unitcost, decimal MarketPrice, decimal Orignial, string DressTitle, string Dressdetails, string DressImage, int Qty,string Size,int Quantiy)rn rn this.dressId = DressId;rn this.dressMerchant = DressMerchant;rn this.unitcost = Unitcost;rn this.marketPrice = MarketPrice;rn this.orignial = Orignial;rn this.dressTitle = DressTitle;rn this.dressdetails = Dressdetails;rn this.dressImage = DressImage;rn this.qty = Qty;rn this.size = Size;rn this.quantity = Quantiy;rn rn rn[/code]rnrn我希望加载的时候把Num赋值给DressItemInfo的Quantity 要怎么实现?因为我下面的方法会调用到Quantityrn另外顺便问下 在加载的时候我注释的那2行 我发现当UserName为null的时候不会出现提示 而是直接跳转到首页 //Response.Redirect("~/index.aspx");这句没有的话就会跳出提示
自定义TABLE类型数据,如何赋值给一个游标从存过中返回
CREATE OR REPLACE PACKAGE PKG_TESTrnASrn TYPE R_CABLERES IS RECORD(DEVBM VARCHAR2(60),LINENUM NUMBER(6),LENGTH NUMBER(9,2),ERRINFO VARCHAR2(200));rn TYPE T_CABLERES IS TABLE OF R_CABLERES INDEX BY BINARY_INTEGER;rn --定义动态游标rn TYPE T_CURSOR IS REF CURSOR;rnEND;rn/rnrnCREATE OR REPLACE PROCEDURE TMP_P_TESTS(R_RECORD OUT PKG_TEST.T_CURSOR)rnASrn R_ROW PKG_TEST.R_CABLERES; --记录rn T_DATA PKG_TEST.T_CABLERES; --表rnBEGINrn SELECT '第一行',1,2.3,'测试1' INTO R_ROW FROM DUAL;rn T_DATA(T_DATA.COUNT + 1) := R_ROW;rn SELECT '第二行',4,5.6,'测试2' INTO R_ROW FROM DUAL;rn T_DATA(T_DATA.COUNT + 1) := R_ROW;rnrn --************************************************************rn --在这里,如何将T_DATA里的数据赋值给游标R_RECORD从存储过程返回rn --************************************************************rnEND;rn/rnrn
如何给CTime类型赋值?
如何给CTime类型赋值?rn如CTime ct;如何对其赋hour,minute,second???
如何给OLE_COLOR类型的赋值?
在ActiveX中接口中添加一个方法,void CNJDC2Ctrl::SetPart2Cor([color=#FF0000]OLE_COLOR[/color] part2cor)rn参数是一个颜色值,这里参数类型却只能是OLE_COLOR,在容器的程序去调用这个方法时,只能给一个OLE_COLOR类型的实参,不知道这个OLE_COLOR类型实参该怎么赋值了?或者有没有改进方法,能否在自动生成后手动把OLE_COLOR变为COLORREF,然后赋值时直接赋个COLORREF类型的就行了?
sql给DATE类型赋值?
insert into table_name values(date?);rn
给dropdowndw类型的列赋值?
我想给dropdowndw类型的列赋值:rnlist1和list2两个列分别是dropdwondw格式的。rndw_xtcs.setitem(1,'list1',test1)rndw_xtcs.setitem(1,'list2',test2)
如何给SqlClient.SqlParameter类型赋值?
我现在想往SqlDataAdapter.SelectCommand.Parameters中赋多个值,代码如下:rnrnDim adapter As New SqlClient.SqlDataAdapterrnDim aa() As SqlClient.SqlParameterrnPublic userid As StringrnPublic password As StringrnUserid= "DotNet"rnPassword="DotNet"rnrnaa(0).Value = userid 此处总报错, 'System.NullReferenceException' のハンドルされていないrnaa(1).Value = passwordrnrn……rnrnFor Each cmdParms As SqlClient.SqlParameter In aarn adapter.SelectCommand.Parameters.Add(cmdParms)rnNextrn该如何给SqlClient.SqlParameter类型赋值?另外如何给object类型赋值?问题可能比较菜,还请大虾们帮忙啊.rn
注解给简单类型赋值
@value:简单类型赋值 属性:value表示简单类型赋值 位置:1.属性定义的上面,无需sat方法推荐使用 2.在set方法的上面 例: @Value(value=”张三”)//属性value可省略 private String name; @Value(va...
oracle函数返回table类型结果集
--创建自定义对象类型 CREATE OR REPLACE TYPE RetireOrderTemp AS OBJECT(A varchar2(200), B varchar2(200), C varchar2(200),D varchar2(200),E int, F int); /--创建自定义table表类型 CREATE OR REPLACE TYPE RetireOrderTempRes
Oracle中游标Cursor的使用
Cursor用来遍历临时表的查询结果。 声明cursor后可用for或者fetch进行遍历。 使用for进行遍历的代码: declare cursor c_students is select * from students; c_names students%rowtype; begin for c_names in c_students loop dbms_output.put
Oracle 中如何给存储过程的参数赋值
我定义了一个存储过程,但是在调用的时候出现了问题,不知道如何传递参数rnrncall myPro('123'); 提示参数的类型或个数错误rnrnrndeclare mystr varchar(20);rnmystr:='123'; 提示在=号附近有语法错误rncall myPro(mystr);rnrn我该如何调用呢?
oracle触发器中给主键赋值问题
create or replace trigger child_birthrn after update or insert on HRB02_04_03rn FOR EACH ROWrn declarern id1 number;rn id2 number;rn select TEST_SEQ.Nextval into id1 from dualrn select TEST_SEQ.Currval into id2 from dualrnbeginrn if updating thenrn update BIR_PERINATALrn set INHisCode = :NEW.hrb02_04_002,rn motherName = :NEW.d01,rn birthChildWeigth = (select hrb02_04_083rn from HRB02_04_04rn where d01 = :NEW.cid),rn birthChildstature = (select hrb02_04_084rn from HRB02_04_04rn where d01 = :NEW.cid)rn where perid = id2;rn end if;rn if inserting thenrn insert into BIR_PERINATALrn (PERID, INHisCode, motherName, birthChildWeigth, birthChildstature)rn valuesrn (id1,rn :NEW.hrb02_04_002,rn :NEW.d01,rn (select hrb02_04_083 from HRB02_04_04 where d01 = :NEW.cid),rn (select hrb02_04_084 from HRB02_04_04 where d01 = :NEW.cid));rn end if;rnend;rnrnrnrnrn我想在insert时用遍了id1,即序列的下一个值。update时用id2,序列当前值,实现添加于更新,可是一直编译错误。rn说触发器 'CHIS.CHILD_BIRTH' 无效且未通过重新验证。请大家帮忙看下!
Oracle中Cursor(游标)学习
一  概念 游标是SQL的一个内存工作区,由系统或用户以变量的形式定义。游标的作用就是用于临时存储从数据库中提取的数据块。在某些情况下,需要把数据从存放在磁盘的表中调到计算机内存中进行处理,最后将处理结果显示出来或最终写回数据库。这样数据处理的速度才会提高,否则频繁的磁盘数据交换会降低效率。 二  类型   Cursor类型包含三种: 隐式Cursor,显式Cursor和Ref Cursor(动态...
在oracle中给一个字符串赋值的问题
在给str := rn 'select p.CATENAME,p.PROD_PIC,p.UP_TIME ,p.PROD_NAME,p.STATEPAGE,m.MTOWN,m.MTEL_CODE from SYS_PROD_INFO p join sys_member m on p.MEMBERID=m.MEMBERID where p.UP_TIME>=p.UP_TIME>=(TO_DATE (TO_CHAR (SYSDATE, ''yyyy-MM-dd''), ''yyyy-MM-dd'')-1) and p.CATECODE='''||sys_catecode||'''';rn这条语句赋值的时候,如果只有一个条件的话是可以执行的:rn例一:rnstr := rn'select p.CATENAME,p.PROD_PIC,p.UP_TIME ,p.PROD_NAME,p.STATEPAGE,m.MTOWN,m.MTEL_CODE from SYS_PROD_INFO p join sys_member m on p.MEMBERID=m.MEMBERID where p.UP_TIME>=p.UP_TIME>=(TO_DATE (TO_CHAR (SYSDATE, ''yyyy-MM-dd''), ''yyyy-MM-dd'')-1) rn例二:rnstr := rn 'select p.CATENAME,p.PROD_PIC,p.UP_TIME ,p.PROD_NAME,p.STATEPAGE,m.MTOWN,m.MTEL_CODE from SYS_PROD_INFO p join sys_member m on p.MEMBERID=m.MEMBERID where p.CATECODE='''||sys_catecode||''''; rn以上两个例子,执行存储过程是没有问题的,但是如果两个条件都加上,存储过程就不能往下执行(在给str赋值之后)rnrn给str赋值是在存储过程中,运用游标的时候rn下面是我写的存储过程:rnCREATE OR REPLACE PROCEDURE order_prod_procedurernISrn sys_keyword VARCHAR2 (20);rn sys_effecttime DATE;rn sys_catecode VARCHAR2 (20);rn sys_ordertype NUMBER (1);rn sys_buskeyid NUMBER;rn sys_memberid NUMBER;rn catename_price VARCHAR2 (20);rn mtown_price VARCHAR2 (20);rn uptime_price DATE;rn statepage_price VARCHAR (255);rn prodpic_price VARCHAR (255);rn mtelcode_price VARCHAR (100);rn prodname_price VARCHAR (100);rnBEGINrn DECLARErn CURSOR c_bus_keyrn ISrn SELECT *rn FROM sys_bus_key;rnrn TYPE t_sor IS REF CURSOR;rnrn c_prod_info t_sor;rn c_prod_price t_sor;rn c_orderid t_sor;rn str VARCHAR2 (255);rn str3 VARCHAR2 (255);rn datestr VARCHAR2 (20);rn BEGINrn FOR v_sys_bus_key IN c_bus_keyrn LOOPrn sys_keyword := v_sys_bus_key.keyword;rn sys_effecttime := v_sys_bus_key.effecttime;rn sys_catecode := v_sys_bus_key.catecode;rn sys_catename :=v_sys_bus_key.catename;rn sys_ordertype := v_sys_bus_key.ordertype;rn sys_buskeyid := v_sys_bus_key.keyid;rn sys_memberid := v_sys_bus_key.memberid;rn datestr := 'yyyy-MM-dd';rn IF sys_effecttime >=rn TO_DATE (TO_CHAR (SYSDATE, 'yyyy-MM-dd'), 'yyyy-MM-dd')rn THENrn if sys_ordertype =1rn thenrn str2:='1';rn DBMS_OUTPUT.put_line (str2);rn if SUBSTR(sys_catecode,0,4)='c001'rn thenrn str:= 'select p.CATENAME,p.PROD_PIC,p.UP_TIME ,p.PROD_NAME,p.STATEPAGE,m.MTOWN,m.MTEL_CODE from SYS_PROD_INFO p join sys_member m on p.MEMBERID=m.MEMBERID where p.UP_TIME>=p.UP_TIME>=(TO_DATE (TO_CHAR (SYSDATE, ''yyyy-MM-dd''), ''yyyy-MM-dd'')-1) and p.CATECODE='''||sys_catecode||'''';rn elsif SUBSTR(sys_catecode,0,4)='c002'rn thenrn str:= 'select p.CATENAME,p.PROD_PIC,p.UP_TIME ,p.PROD_NAME,p.STATEPAGE,m.MTOWN,m.MTEL_CODE from SYS_PLASTIC_PRICE p join sys_member m on p.MEMBERID=m.MEMBERID where p.UP_TIME>=p.UP_TIME>=(TO_DATE (TO_CHAR (SYSDATE, ''yyyy-MM-dd''), ''yyyy-MM-dd'')-1) and p.CATECODE='''||sys_catecode||'''';rn end if; rn end if; rnrn OPEN c_prod_price FOR str;rn rn LOOPrn FETCH c_prod_pricern INTO catename_price, prodpic_price, uptime_price, prodname_price, statepage_price,rn mtown_price, mtelcode_price;rn EXIT WHEN c_prod_price%NOTFOUND;rn rn INSERT INTO sys_order_prodrn (ORDERID,buykey, keyid, memberid,rn catename, ordertype, orderadd, releasetime,rn infopath, infoid, dereqpath, infopic,rn releasemeth, infotitlern )rn VALUES (seqp_sys_order_prod.nextval,sys_keyword, sys_buskeyid, sys_memberid,rn catename_price, sys_ordertype, mtown_price, uptime_price,rn statepage, NULL, NULL, prodpic,rn mtelcode_price, prodname_pricern );rn END LOOP;rn str:='';rn CLOSE c_prod_price;rn COMMIT; rn end if;rn rn END LOOP;rn EXCEPTIONrn WHEN OTHERSrn THENrn ROLLBACK;rn END;rnEND order_prod_procedure;rn
Oracle中Cursor介绍和使用
一  概念  游标是SQL的一个内存工作区,由系统或用户以变量的形式定义。游标的作用就是用于临时存储从数据库中提取的数据块。在某些情况下,需要把数据从存放在磁盘的表中调到计算机内存中进行处理,最后将处理结果显示出来或最终写回数据库。这样数据处理的速度才会提高,否则频繁的磁盘数据交换会降低效率。  二  类型    Cursor类型包含三种: 隐式Cursor,显式Cursor和Ref Cur
Oracle中游标Cursor介绍
概念 类型 异常处理 [b]一 概念 [/b] cursor:实际上是一块内存工作区,用来存放DML或者SElect操作的结果。 游标是SQL的一个内存工作区,由系统或用户以变量的形式定义。游标的作用就是用于临时存储从数据库中提取的数据块。在某些情况下,需要把数据从存放在磁盘的表中调到计算机内存中进行处理,最后将处理结果显示出来或最终写回数据库。这样数据处理的速度才会提...
ie中div的cursor与table的兼容问题
rnrnrn rnrn rnrn rnrn aaaaa bbbbrnrnrnrnrnrn rnrnrnrnrnrnrn在ie中就可以看到鼠标置于文字上hand会变成I的手势问题 在firefox,chrome就没有问题
如何为Table类型的局部变量赋值!
如何为Table类型的局部变量赋值!rnDeclare @T Table(ID int)rn我只知道用Insert Into 往@T变量里插入记录,还有什么其它的与table类型数据赋值操作有关的语句吗?rn如何为该变量成批的导入数据呢?比如说 Set @T = (Select OrderID From Orders) ...我知道是一个错误语句,但我指的就是这个意思-成批的导入,指点一下,谢谢!
关于oracle中procedure和function返回cursor类型的变量
/* 注意: 在使用游标作为返回值时,要注意再动态绑定时打开游标,然后返回。 在使用时直接使用游标,不需要再次打开,故而只能使用传统的open/close方式来使用游标, for循环使用游标时,会牵扯到打开游标,会出现重复打开的错误,所以不能使用。 */–在过程中返回类型为游标变量类型 CREATE OR REPLACE PROCEDURE findset_emp
相关热词 c#入门推荐书 c# 解码海康数据流 c# xml的遍历循环 c# 取 查看源码没有的 c#解决高并发 委托 c#日期转化为字符串 c# 显示问号 c# 字典对象池 c#5.0 安装程序 c# 分页算法