Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMe.Grillestructure(1, i).Value
If opt = True Then
mycomd.ExecuteNonQuery
mycomd.ExecuteReader
If Me.Grillestructure.Rows.Count > 0 Then End If
If Me.Grillestructure.Rows.Count > 0 Then End If Dim opt As String = "" Dim codepr As String = "" For i = 0 To Me.Grillestructure.Rows.Count - 1 opt = Me.Grillestructure(1, i).Value If opt = True Then codepr = Me.Grillestructure(0, i).Value rqt = "INSERT INTO RECEVOIR(Reference_C,Instruction,Code_Struc) " & " VALUES(@Reference_C,@Instruction, @costr);" mycomd = New SqlCommand(rqt, Connexion) mycomd.Parameters.AddWithValue("@Reference_C", Referencetextbox.Text) mycomd.Parameters.AddWithValue("@Instruction", TextInstruction.Text) mycomd.Parameters.AddWithValue("@costr", codepr) mydrv = mycomd.ExecuteReader mydrv.Close() End If Next Catch ex As Exception MessageBox.Show(ex.Message) Exit Sub End Try