khz-web1
سه شنبه 31 شهریور 1388, 03:46 صبح
سلام
من یک گریدویو دارم که یکی از ستونهاش چک باکس داره ... ، از کد زیر جهت حذف سطرهای تیک خرده گریدویو استفاده می کنم ... مشکل اینجاست که اگر چند سطر را انتخاب کنم و بر روی دکمه حذف بزنم ارور میده ... ولی در صورت انتخاب فقط یک سطر بدرستی کار می کند
The variable name '@contactid' has already been declared. Variable names must be unique within a query batch or stored procedure.
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=databasepoyesh;Integrated Security=True")
Dim cmd3 As SqlCommand = New SqlCommand
For Each row As GridViewRow In GridView1.Rows
Dim checkbox As CheckBox = CType(row.FindControl("cbRows"), CheckBox)
If checkbox.Checked Then
Dim employeeID As Integer = Convert.ToInt32(GridView1.DataKeys(row.RowIndex).V alue)
For i = 0 To employeeID
cmd3.CommandText = "delete from tablecontact where contactid=@contactid"
cmd3.Parameters.AddWithValue("@contactid", employeeID.ToString())
cmd3.Connection = con
con.Open()
cmd3.ExecuteNonQuery()
con.Close()
Next
End If
Next row
End Sub
لطفا بگید که من کدمو چجوری اصلاح کنم ....
با تشکر
من یک گریدویو دارم که یکی از ستونهاش چک باکس داره ... ، از کد زیر جهت حذف سطرهای تیک خرده گریدویو استفاده می کنم ... مشکل اینجاست که اگر چند سطر را انتخاب کنم و بر روی دکمه حذف بزنم ارور میده ... ولی در صورت انتخاب فقط یک سطر بدرستی کار می کند
The variable name '@contactid' has already been declared. Variable names must be unique within a query batch or stored procedure.
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=databasepoyesh;Integrated Security=True")
Dim cmd3 As SqlCommand = New SqlCommand
For Each row As GridViewRow In GridView1.Rows
Dim checkbox As CheckBox = CType(row.FindControl("cbRows"), CheckBox)
If checkbox.Checked Then
Dim employeeID As Integer = Convert.ToInt32(GridView1.DataKeys(row.RowIndex).V alue)
For i = 0 To employeeID
cmd3.CommandText = "delete from tablecontact where contactid=@contactid"
cmd3.Parameters.AddWithValue("@contactid", employeeID.ToString())
cmd3.Connection = con
con.Open()
cmd3.ExecuteNonQuery()
con.Close()
Next
End If
Next row
End Sub
لطفا بگید که من کدمو چجوری اصلاح کنم ....
با تشکر