vb.net 調用oracle的存儲過程

             ' getoracleconnection()是自己定義的一個內涵connectstring的連接
              Dim  conn  as  oracleconnection = getoracleconnection()
             
              Dim  cmd  As   New  OracleCommand()
             cmd  =  conn.CreateCommand
              ' Type默認為text,這里設為StoredProcedure 
             cmd.CommandType  =  CommandType.StoredProcedure

                ' StoredProcedure要用到的參數  
               Dim  para1  As   New  OracleParameter( " lstype_in " , OracleDbType.Int32, ParameterDirection.Input)
                    para1.Value  =  item.lstype
               Dim  para2  As   New  OracleParameter( " lsid_in " , OracleDbType.Int32, ParameterDirection.Input)
                    para2.Value  =  item.lsid
               Dim  para3  As   New  OracleParameter( " workid_in " , OracleDbType.Int32, ParameterDirection.Input)
                    para3.Value  =  workid
                ' 選擇要使用的Procedure名字 
               cmd.CommandText  =   " LSW_EXTRACT_FROM_LS "
               ' 加入參數
               cmd.Parameters.Add(para1)
               cmd.Parameters.Add(para2)
               cmd.Parameters.Add(para3)
                ' 如果無參數返回，用ExecuteNonQuery，如果有，單值使用
                ' ExecuteScalar，多值使用 ExecuteReader  
               cmd.ExecuteNonQuery()
                ' 參數清除
               cmd.Parameters.Clear()
                ' cmd销毁
                cmd.dispose()