ITPub博客

首页 > Linux操作系统 > Linux操作系统 > DBMS_SQL例子

DBMS_SQL例子

原创 Linux操作系统 作者:abstractcyj 时间:2013-10-22 14:37:11 0 删除 编辑
DECLARE
  l_cursor   PLS_INTEGER;
  l_wareid   t_ware_base.wareid%TYPE;
  l_warename t_ware_base.warename%TYPE;
  l_retval   PLS_INTEGER;
BEGIN
  l_cursor := dbms_sql.open_cursor;
  dbms_sql.parse(l_cursor,
                 'select wareid, warename from t_ware_base where wareid like :wareid ',
                 1);

  dbms_sql.define_column(l_cursor, 1, l_wareid);
  dbms_sql.define_column(l_cursor, 2, l_warename, 100);
  --dbms_sql.define_column(
  dbms_sql.bind_variable(l_cursor, ':wareid', '%58%');
  l_retval := dbms_sql.execute(l_cursor);

  dbms_output.put_line('l_retval = ' || l_retval);
  WHILE dbms_sql.fetch_rows(l_cursor) > 0 LOOP
    dbms_sql.column_value(l_cursor, 1, l_wareid);
    dbms_sql.column_value(l_cursor, 2, l_warename);
    dbms_output.put_line(l_wareid || '-' || l_warename);
  END LOOP;

  /*IF dbms_sql.fetch_rows(l_cursor) > 0 THEN
    dbms_sql.column_value(l_cursor, 1, l_wareid);
    dbms_output.put_line(l_wareid);
  ELSE
    dbms_output.put_line('No rows returned');
  END IF;*/
  dbms_sql.close_cursor(l_cursor);
END;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/8520577/viewspace-774798/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
曾从事java方向开发多年。近年已经转入数据库方向。主要擅长SQL优化,Oracle数据库问题诊断,Oracle备份与恢复等。服务于医药物流,医院等行业

注册时间:2010-01-26

  • 博文量
    555
  • 访问量
    829407