'Declaration Public Shadows ReadOnly Property Parameters As UniParameterCollection
public new UniParameterCollection Parameters {get;}
'Declaration Public Shadows ReadOnly Property Parameters As UniParameterCollection
public new UniParameterCollection Parameters {get;}
static void CreateCommand(UniConnection myConnection, string mySelectQuery, UniParameter[] myParamArray) { UniCommand myCommand = new UniCommand(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) { UniParameter[] myParams = new UniParameter[] { new UniParameter("DeptNo", 10), new UniParameter("DName", "COUNTING") }; UniConnection myConnection1 = new UniConnection("Provider=SQL Server;Data Source=SERVER;Initial Catalog=Northwind;User ID=sa"); CreateCommand(myConnection1,"UPDATE Test.Dept SET DName = :DName WHERE DeptNo = :DeptNo",myParams); }
Public Sub CreateCommand(ByVal myConnection As Devart.Data.Universal.UniConnection, _ ByVal mySelectQuery As String, ByVal myParamArray() As Devart.Data.Universal.UniParameter) Dim myCommand As New Devart.Data.Universal.UniCommand(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.Universal.UniParameter myP1.ParameterName = "DeptNo" myP1.Value = 10 Dim myP2 As New Devart.Data.Universal.UniParameter myP2.ParameterName = "DName" myP2.Value = "ACCOUNTING" Dim myParams(1) As Devart.Data.Universal.UniParameter myParams(0) = myP1 myParams(1) = myP2 Dim myConnection1 As New Devart.Data.Universal.UniConnection("Provider=SQL Server;Data Source=SERVER;Initial Catalog=Northwind;User ID=sa") CreateCommand(myConnection1, "UPDATE Test.Dept SET DName = :DName WHERE DeptNo = :DeptNo", myParams) End Sub