科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道VB调用Oracle返回数据集

VB调用Oracle返回数据集

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

  PL/SQL 代码:   CREATE OR REPLACE PACKAGE "PKG_TEST" AS   TYPE myrcType IS REF CURSOR;   FUNCTION get(strbarcode VARCHAR) RETU

作者:中国IT实验室 来源:中国IT实验室 2007年10月6日

关键字: 开发 数据库 ORACLE

  • 评论
  • 分享微博
  • 分享邮件

  PL/SQL 代码:
  CREATE OR REPLACE PACKAGE "PKG_TEST" AS
  TYPE myrcType IS REF CURSOR;
  FUNCTION get(strbarcode VARCHAR) RETURN myrcType;
  END pkg_test;
  
  CREATE OR REPLACE PACKAGE BODY "PKG_TEST" AS
  FUNCTION get(strbarcode IN VARCHAR) RETURN myrcType IS
  rc myrcType;
  BEGIN
  OPEN rc FOR strbarcode;
  RETURN rc;
  END get;
  END pkg_test;
  
  VB 代码:
  Private Sub Command1_Click()
  On Error GoTo cursorErr:
  Dim cnn As New ADODB.Connection
  Dim rst As New ADODB.Recordset
  Dim cmd As New ADODB.Command
  
  cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott;Data Source=oraAny;Extended Properties=PLSQLRSet=1"
  cnn.Open
  
  With cmd
  .ActiveConnection = cnn
  .CommandType = adCmdText
  .CommandText = "{CALL scott.pkg_test.get(?)}"
  .Parameters.Append .CreateParameter("strBarCode", adVarChar, adParamInput, 100, "SELECT * FROM TAB")
  End With
  
  rst.CursorType = adOpenStatic
  rst.LockType = adLockReadOnly
  Set rst.Source = cmd
  rst.Open
  
  MsgBox rst.RecordCount
  
  Set rst = Nothing
  Set cmd = Nothing
  Exit Sub
  
  cursorErr:
  Set cmd = Nothing
  Set rst1 = Nothing
  MsgBox Err.Description
  End Sub
  

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    闂傚倷绶¢崣搴ㄥ窗閺囩偐鏋庨柕蹇嬪灪婵ジ鏌曡箛瀣偓鏍綖閿燂拷

    濠电姷顣介埀顒€鍟块埀顒€缍婇幃妯诲緞閹邦剛鐣洪梺闈浥堥弲婊勬叏濠婂牊鍋ㄦい鏍ㄧ〒閹藉啴鏌熼悜鈺傛珚鐎规洘宀稿畷鍫曞煛閸屾粍娈搁梻浣筋嚃閸ㄤ即宕㈤弽顐ュС闁挎稑瀚崰鍡樸亜閵堝懎濮┑鈽嗗亝濠㈡ê螞濡ゅ懏鍋傛繛鍡樻尭鐎氬鏌嶈閸撶喎顕i渚婄矗濞撴埃鍋撻柣娑欐崌閺屾稑鈹戦崨顕呮▊缂備焦顨呴惌鍌炵嵁鎼淬劌鐒垫い鎺戝鐎氬銇勯弽銊ф噥缂佽妫濋弻鐔碱敇瑜嶉悘鑼磼鏉堛劎绠為柡灞芥喘閺佹劙宕熼鐘虫緰闂佽崵濮抽梽宥夊垂閽樺)锝夊礋椤栨稑娈滈梺纭呮硾椤洟鍩€椤掆偓閿曪妇妲愰弮鍫濈闁绘劕寮Δ鍛厸闁割偒鍋勯悘锕傛煕鐎n偆澧紒鍌涘笧閹瑰嫰鎼圭憴鍕靛晥闂備礁鎼€氱兘宕归柆宥呯;鐎广儱顦伴崕宥夋煕閺囥劌澧ù鐘趁湁闁挎繂妫楅埢鏇㈡煃瑜滈崜姘跺蓟閵娧勵偨闁绘劕顕埢鏇㈡倵閿濆倹娅囨い蹇涗憾閺屾洟宕遍鐔奉伓

    重磅专题
    往期文章
    最新文章