mil disculpas estaba haciendo una prueba pero no me funciono este el codigo correcto....
Dim query As String = "insert into tb_emp_indu (nombre_empleado,ind_01,ind_02,ind_04) values (@nombre,@ind01, @ind02,getdate())"
Dim cmd As New SqlCommand(query, conn)
Dim del As String = "UPDATE tb_emp_indu set nombre_empleado='',ind_01='',ind_02=''where nombre_empleado = @nombre AND ind_01 = @ind01"
Dim fe As New SqlCommand(del, conn)
Dim qw As String = "select nombre_empleado,id_indumentaria,descripcion_indu ,CAST(CASE WHEN ind_02 IS NULL THEN 0 ELSE 1 END AS BIT ) as tipo,IND_02,getdate() from tb_indumentaria left JOIN
tb_emp_indu ON descripcion_indu = ind_01 AND NOMBRE_EMPLEADO = @nombre"
Dim ac As New SqlCommand(qw, conn)
For Each row As GridViewRow In gwd.Rows
Dim check As CheckBox = TryCast(row.FindControl("CheckBox1"), CheckBox)
If check.Checked = True Then
conn.Open()
fe.Parameters.Clear()
cmd.Parameters.Clear()
ac.Parameters.Clear()
fe.Parameters.AddWithValue("@nombre", TextBox1.Text)
fe.Parameters.AddWithValue("@ind01", gwd.Rows(row.RowIndex).Cells(3).Text)
cmd.Parameters.AddWithValue("@nombre", TextBox1.Text)
cmd.Parameters.AddWithValue("@ind01", gwd.Rows(row.RowIndex).Cells(3).Text)
cmd.Parameters.AddWithValue("@ind02", TextBox5.Text)
ac.Parameters.AddWithValue("@nombre", TextBox1.Text)
fe.ExecuteNonQuery()
cmd.ExecuteNonQuery()
Dim r As SqlDataReader = ac.ExecuteReader(CommandBehavior.CloseConnection)
gwd.DataSource = r
gwd.DataBind()
conn.Close()
Else
conn.Open()
fe.Parameters.Clear()
ac.Parameters.Clear()
fe.Parameters.AddWithValue("@nombre", TextBox1.Text)
fe.Parameters.AddWithValue("@ind01", gwd.Rows(row.RowIndex).Cells(3).Text)
ac.Parameters.AddWithValue("@nombre", TextBox1.Text)
fe.ExecuteNonQuery()
Dim r As SqlDataReader = ac.ExecuteReader(CommandBehavior.CloseConnection)
gwd.DataSource = r
gwd.DataBind()
conn.Close()
End If
Next
porfa ayudenme
