ریست کردن دستور command.Parameters.AddWithValue

[royaeel]

لطفا اگر امکان داره پاسخ سوال من را بدهید.
در این کد باید ورودی کاربر که طبق یک حلقه از کاربر گرفته می شود در جدول درج شود ولی فقط مقدار اول را در جدول می ریزد. فکر می کنم باید دستور Command را یه جوری reset کرد تا مقدار جدید بگیرد ولی متاسفاه روشی برای این کار نمی دانم.
با تشکر.





Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionString AsString = "provider=Microsoft.Jet.OLEDB.4.0;" + "data source = D:\SWP\1\RiskAsses\RiskAsses\bin\Debug\RiskDB.mdb"



Dim insertquery AsString = "insert into T_fmethod (TotalValue) values (@TotalValue)"



Dim myConnection AsNew OleDb.OleDbConnection(connectionString)
Dim command AsNew OleDb.OleDbCommand(insertquery, myConnection)
myConnection.Open()
command.Connection = myConnection




For

i = 0 To 2


a = InputBox(DataGridView1.Item(0, s).Value(),

"Enter ThreatValue of " + DataGridView2.Item(1, i).Value().ToString + " for " + DataGridView1.Item(0, s).Value(), "1", -1, -1)
b = InputBox(DataGridView1.Item(0, s).Value(), "Enter ImpactValue of " + DataGridView2.Item(1, i).Value().ToString + " for " + DataGridView1.Item(0, s).Value(), "0.1", -1, -1)




sum = a * b * t


command.Parameters.AddWithValue(

"@TotalValue", sum)

Next



command.ExecuteNonQuery()


myConnection.Close()

[kablayi]

داخل حلقه For این دستور رو بنویسید ...:



command = New OleDb.OleDbCommand(insertquery, myConnection)