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