Using Oracle Stored Procedures in VB.NET

Category:

Database

Type:

Snippets

Difficulty:

Intermediate

Author:

Ravi Sankar

Version Compatibility:

More information:

This snippet of code gives you a quick example of using Oracle stored procedures in your VB.NET applications. objconn_orcl is the Oracle connection object here.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Dim objcommand2 As Oracle.DataAccess.Client.OracleCommand

Code:

Try

objcommand2 = New Oracle.DataAccess.Client.OracleCommand("update_contactinfo", objconn_orcl)

With objcommand2

.CommandType = CommandType.StoredProcedure

.Parameters.Add("v_fundcontact", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(txtfundcontact.Text)

.Parameters.Add("v_title", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(txtTitle.Text)

.Parameters.Add("v_phone", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(txtPhone.Text)

.Parameters.Add("v_email", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(txtEmail.Text)

.Parameters.Add("v_fromdate", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(txtFromDate.Value)

.Parameters.Add("v_todate", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(txtToDate.Value)

.Parameters.Add("v_fund", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = UCase(Trim(txtfund.Text))

.Parameters.Add("v_reportdte", Oracle.DataAccess.Client.OracleDbType.Varchar2).Value = Trim(CStr(txtfunddate.Value))

.ExecuteNonQuery()

End With

Catch ex As Exception

MsgBox("Error occured while updating Contact information " & ex.ToString())

expthrown = True

Finally

objcommand2 = Nothing

End Try