'Declaration Public Shadows ReadOnly Property Parameters As SqlParameterCollection
public new SqlParameterCollection Parameters {get;}
'Declaration Public Shadows ReadOnly Property Parameters As SqlParameterCollection
public new SqlParameterCollection Parameters {get;}
dotConnect for SQL Server supports named and unnamed parameters.
static void CreateCommand(SqlConnection myConnection, string mySelectQuery, SqlParameter[] myParamArray) { SqlCommand myCommand = new SqlCommand(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) { SqlParameter[] myParams = new SqlParameter[] { new SqlParameter("DeptNo", 10), new SqlParameter("DName", "COUNTING") }; SqlConnection myConnection1 = new SqlConnection( "User Id=sa;Server=localhost;Initial Catalog=Test;"); CreateCommand(myConnection1,"UPDATE Test.Dept SET DName = :DName WHERE DeptNo = :DeptNo",myParams); }
Public Sub CreateCommand(ByVal myConnection As Devart.Data.SqlServer.SqlConnection, _ ByVal mySelectQuery As String, ByVal myParamArray() As Devart.Data.SqlServer.SqlParameter) Dim myCommand As New Devart.Data.SqlServer.SqlCommand(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.SqlServer.SqlParameter myP1.ParameterName = "DeptNo" myP1.Value = 10 Dim myP2 As New Devart.Data.SqlServer.SqlParameter myP2.ParameterName = "DName" myP2.Value = "ACCOUNTING" Dim myParams(1) As Devart.Data.SqlServer.SqlParameter myParams(0) = myP1 myParams(1) = myP2 Dim myConnection1 As New Devart.Data.SqlServer.SqlConnection( _ "User Id=sa;Server=localhost;Initial Catalog=Test;") CreateCommand(myConnection1, "UPDATE Test.Dept SET DName = :DName WHERE DeptNo = :DeptNo", myParams) End Sub