'Declaration Public Shadows ReadOnly Property Parameters As OracleParameterCollection
public new OracleParameterCollection Parameters {get;}
'Declaration Public Shadows ReadOnly Property Parameters As OracleParameterCollection
public new OracleParameterCollection Parameters {get;}
static void CreateCommand(OracleConnection myConnection, string mySelectQuery, OracleParameter[] myParamArray) { OracleCommand myCommand = new OracleCommand(mySelectQuery, myConnection); string myMessage = ""; for (int i = 0; i < myParamArray.Length; i++) { myCommand.Parameters.Add(myParamArray[i]); myMessage += myCommand.Parameters[i].ToString() + "\n"; } Console.Write(myMessage); try { myConnection.Open(); myCommand.ExecuteNonQuery(); } finally { myConnection.Close(); } } static void Main(string[] args) { OracleParameter[] myParams = new OracleParameter[] { new OracleParameter("DeptNo", 10), new OracleParameter("DName", "COUNTING") }; OracleConnection myConnection1 = new OracleConnection( "User Id=Scott;Password=tiger;Data Source=Ora;"); CreateCommand(myConnection1,"UPDATE Test.Dept SET DName = :DName WHERE DeptNo = :DeptNo",myParams); }
Public Sub CreateCommand(ByVal myConnection As Devart.Data.Oracle.OracleConnection, _ ByVal mySelectQuery As String, ByVal myParamArray() As Devart.Data.Oracle.OracleParameter) Dim myCommand As New Devart.Data.Oracle.OracleCommand(mySelectQuery, myConnection) Dim myMessage As String = "" Dim i As Integer For i = 0 To (myParamArray.Length - 1) myCommand.Parameters.Add(myParamArray(i)) myMessage = String.Concat(myMessage, " ", myCommand.Parameters(i).ToString()) Next Console.WriteLine(myMessage) Try myConnection.Open() myCommand.ExecuteNonQuery() Finally myConnection.Close() End Try End Sub Sub Main() Dim myP1 As New Devart.Data.Oracle.OracleParameter myP1.ParameterName = "DeptNo" myP1.Value = 10 Dim myP2 As New Devart.Data.Oracle.OracleParameter myP2.ParameterName = "DName" myP2.Value = "ACCOUNTING" Dim myParams(1) As Devart.Data.Oracle.OracleParameter myParams(0) = myP1 myParams(1) = myP2 Dim myConnection1 As New Devart.Data.Oracle.OracleConnection( _ "User Id=Scott;Password=tiger;Data Source=Ora;") CreateCommand(myConnection1, "UPDATE Test.Dept SET DName = :DName WHERE DeptNo = :DeptNo", myParams) End Sub