User269602965 posted
Do not use providerName="System.Data.OracleClient"
It has been deprecated (no longer supported) by Microsoft
use providerName="Oracle.DataAccess.Client"
In your WHERE clause, good ideal to use BIND variables and not static values for security and coding reuse reasons
Examples of how I connect: In this case I am updating a table
Imports System.Xml.Linq.XElement
Public Shared Sub updateUnitsActiveFlag(ByVal decQuantity As Decimal)
' Insert Quantity into new row Units table'
Dim connectionString As String = ConfigurationManager.ConnectionStrings("OracleConnStr").ConnectionString
Try
Dim SQL =
<SQL>
INSERT INTO {YOURSCHEMANAME}.UNITS
(UNITS_SEQ, QUANTITY) VALUES (UNIT_SEQ.NextVal, :BindVarQuantity)
</SQL>
Using conn As New OracleConnection(connectionString)
Using cmd As New OracleCommand(SQL.Value, conn)
cmd.Parameters.Clear()
cmd.Parameters.Add("BindVarQuantity", OracleDbType.Decimal, decQuantity, ParameterDirection.Input)
conn.Open()
cmd.ExecuteNonQuery()
End Using
End Using
Catch ex As Exception
AppCalls.WriteToEventLog(ex, "Inserting UNITS.QUANTITY failed", "AppCalls.updateUnitsActiveFlag.vb")
End Try
End Sub
In this case I am filling a RadGrid object
Try
Dim connectionString As String = ConfigurationManager.ConnectionStrings("OracleConnStr").ConnectionString
Dim SQL = _
<SQL>
SELECT PRODUCT_CLASS, AMOUNT_ANNUAL_CONTRACT, COUNT, TOTAL_VALUE
FROM {YourSchemaName}.VW_COUNT_CONTRACTS
</SQL>
Using conn As New OracleConnection(connectionString)
Using cmd As New OracleCommand(SQL.Value, conn)
conn.Open()
Using oda As New OracleDataAdapter(cmd)
Dim ds As New DataSet()
oda.Fill(ds)
Me.RadGrid1.DataSource = ds
Me.RadGrid1.MasterTableView.DataSource = ds
End Using
End Using
End Using
Catch ex As Exception
End Try