Trabalhando com Stored Procedures no Oracle
É possível ter várias facilidades durante a construção de uma aplicação usando Microsoft .Net. Uma destas facilidades é a partir da utilização da base de dados Oracle. A framework disponibiliza a .Net Framework Data for Oracle provendo de uma nativa interface para a base de dados e um aumento de performance e escabilidade de sua aplicação.
Para demonstrar o funcionamento de uma aplicação .Net com base de dados Oracle, iremos criar dois métodos que irá demonstrar como criar uma conexão usando OLE DB PROVIDER for Oracle, criar parâmetros para uma Stored Procedure e por fim executá-la .
Private strConnString As String = "Provider=MSDAORA;Data Source=nome_banco;
User ID=nome_usuario;Password=senha"
Dim Str_conexao As New OleDbConnection(strConnString)
Dim nome_commando As OleDBCommand
Dim nome_parametro As OleDbParameter
' Esse método irá criar um parâmetro para a Stored Procedure
Public Sub Create_parametro()
Str_conexao.open
nome_commando = New OleDbCommand("CustOrderHist", Str_conexao)
nome_commando.CommandType = CommandType.StoredProcedure
nome_commando.CommandText = "Nome_para_procedure"
' Adicionando parâmetro
nome_parametro = nome_commando.Parameters.Add("pParametro1", _
OleDbType.LongVarChar, 5)
nome_parametro.Direction = ParameterDirection.Input
nome_parametro = nome_commando.Parameters.Add("pParametro2", _
OleDbType.LongVarChar, 5)
nome_parametro.Direction = ParameterDirection.Input
nome_parametro = nome_commando.Parameters.Add("pParametro3", _
OleDbType.LongVarChar, 5)
nome_parametro.Direction = ParameterDirection.Input
End Sub
Public Sub Executa_procedure()
'Passando parâmetros
cmd_parametro.Parameters("pParametro1").Value = "Paramentro1"
cmd_parametro.Parameters("pParametro2").Value = "Paramentro2"
cmd_parametro.Parameters("pParametro3").Value = "Paramentro3"
'Executa a Stored Procedure
cmd_parametro.ExecuteNonQuery()
End Sub
Agora é com você Bom Trabalho