Realizar doble bucle for each
Publicado por Miguel Alvarado (1 intervención) el 26/11/2020 22:03:39
Buenas tardes, actualmente estoy desarrolando una aplicacion de escritorio en vb.net que se conecta a una base de datos en sql server.
El problema consiste en que nencesito 2 variables las cuales tienen que ser dinamicas por ese motivo cree 2 dataset que alimentan las variables las cuales serian temp y temp 2 y estas a su ves estan en un comando de sql.
El problema es que uso un for each para que sean dinamicas, cuando realizo el primer for each como pueden ver funciona correctamente actualizandome temp pero cuando trato de implementar el segunda for each no encuentro la manera de hacerlo, porque debido al primer for each siempre termina un bucle y comienza el otro, y yo lo que necesito es que las 2 variables cambien cada ves que pasen en el comando de sql y no que solo una a la vez este cambiando.
Este seria mi codigo.
Les agradeceria mucho si me pueden ayudar, de verdad que llevo pensando muchas horas y tambien buscando por todo internet pero no logro encontrar solucion a este problema.
El problema consiste en que nencesito 2 variables las cuales tienen que ser dinamicas por ese motivo cree 2 dataset que alimentan las variables las cuales serian temp y temp 2 y estas a su ves estan en un comando de sql.
El problema es que uso un for each para que sean dinamicas, cuando realizo el primer for each como pueden ver funciona correctamente actualizandome temp pero cuando trato de implementar el segunda for each no encuentro la manera de hacerlo, porque debido al primer for each siempre termina un bucle y comienza el otro, y yo lo que necesito es que las 2 variables cambien cada ves que pasen en el comando de sql y no que solo una a la vez este cambiando.
Este seria mi codigo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
For Each row As DataRow In ds3.Tables(0).Rows
Dim values() As Object = row.ItemArray
Dim temp As String = String.Empty
For Each value As Object In values
If Not value Is DBNull.Value Then
temp &= CStr(value) & Environment.NewLine
End If
Next
#Region "Actualizar el historial con la tarea"
Dim actualizarRealizado As New SqlCommand("update Hist_Startup set Codigo=" & temp & " where Conteo=" & temp2 & "", cn)
'TextBox1.Text = actualizarnombre.CommandText
conectar()
actualizarRealizado.ExecuteNonQuery()
desconectar()
#End Region
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Les agradeceria mucho si me pueden ayudar, de verdad que llevo pensando muchas horas y tambien buscando por todo internet pero no logro encontrar solucion a este problema.
Valora esta pregunta


0