Property Value
The parameters of a SQL statement or a stored procedure. The default value is an empty collection.
The following example creates a
UniConnection,
UniCommand, fills its parameters and displays them. An UPDATE statement with the parameters involved is executed then.
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