get_table_id

top518

--获取表中的最大编码（前面加有自定义的表名的缩写头）
create or replace function sys_get_nextid_g
(l_table_name in varchar2,l_col_name in varchar2)
return varchar2
is
l_string varchar2(200);
ls_head varchar2(10);
cursor_name number;
l_no varchar2(20);
l_date varchar2(8);
l_number number;
begin
  l_string :='select Max('||l_col_name||') from '||l_table_name;

  cursor_name := DBMS_SQL.OPEN_CURSOR;
  DBMS_SQL.PARSE(cursor_name, l_string, DBMS_SQL.native);
  dbms_sql.define_column(cursor_name,1,l_no,20);
  l_no := DBMS_SQL.EXECUTE(cursor_name);
  
  if dbms_sql.fetch_rows(cursor_name) > 0 then
     dbms_sql.column_value(cursor_name,1,l_no);
  End if;
  
  --execute immediate l_string into l_no;
  select to_char(sysdate,'yyyymmdd') into l_date from dual;
  
  select s.bill_sym_id into ls_head
  from sys_bill_type s
  where s.bill_id = l_table_name;
  
  If substr(substr(l_no,-12),1,8) = l_date then
     l_number := to_number(substr(l_no,-4)) + 1;
  Elsif substr(substr(l_no,-12),1,8) <> l_date then
        l_number := 1;
  End if;
  l_no := Rtrim(ls_head) || l_date || ltrim(to_char(l_number,'0000'));
  
  return l_no;
end;

On_A

要写SQL先看看书.
推荐:<<ORACLE 9I 从入门到精通>>-----中国水利水电出版社
里面对动态的SQL讲解的很细,例子很多.
为什么我买什么书,单位同事就跟着买??????郁闷啊!
难道我是BOOK TEST READER?

top518

在 sqlplus 里怎么查表或数据库的死锁情况

eygle

select * from v$lock;
select * from v$locked_object;

综合v$session,v$lock,v$locked_object等视图来查看这些信息

top518

declare
cursor pay_a ....
begin
        open pay_a;
        fetch pay_a into relating_id, match_amt;
        exit when pay_a%notfound;
while  match_remain > 0 loop
           update         oppbill....

           insert into APVOUCHSRC        .....
                match_remain := match_remain - match_amt;
   
                if sqlca.sqlcode <> 0 then
                  close apVouchsrc_ta;
                        return -1;
           end if;
end loop;
return 1;
end;
请教这样写法是否对，为什么提示错误？

zhang_yong88

你再仔細看看﹐你的邏輯都有錯誤。
語法結構上都沒做到有始有終。看不懂。

top518

select   sum(a.qty),
         sum(a.sale),
         sum(a.tax),
         sum(a.ap)
into qtyHM,saleHM,taxHM,apHM
FROM apdetail a;

update salereport s
  set
    s.qtyhm = qtyHM,
    s.salehm = saleHM,
    s.taxhm = taxHM,
    s.aphm = '123456';