'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()
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()