royaeel
پنج شنبه 04 تیر 1388, 11:06 صبح
سلام، وقتی که این کد اجرا میشه و کاربر با استفاده از InputBox ورودی وارد می کند، به جای اینکه هر 2 مقدار وارد جدول بشود فقط مقدار اول را وارد می کند فکر می کنم دستور command فقط یکبار اجرا می شود. میشه در این رابطه کمکم کنید. ممنونم.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionString As String = "provider=Microsoft.Jet.OLEDB.4.0;" + "data source = D:\SWP\1\RiskAsses\RiskAsses\bin\Debug\RiskDB.mdb"
Dim insertquery As String = "insert into T_fmethod (TotalValue) values (@TotalValue)"
Dim myConnection As New OleDb.OleDbConnection(connectionString)
Dim command As New 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()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionString As String = "provider=Microsoft.Jet.OLEDB.4.0;" + "data source = D:\SWP\1\RiskAsses\RiskAsses\bin\Debug\RiskDB.mdb"
Dim insertquery As String = "insert into T_fmethod (TotalValue) values (@TotalValue)"
Dim myConnection As New OleDb.OleDbConnection(connectionString)
Dim command As New 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()