1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Do Until cptrow > j
r1 = data_grid.Item(cptrow, 3).ToString
r2 = data_grid.Item(cptrow, 4).ToString
r3 = data_grid.Item(cptrow, 5).ToString
r4 = data_grid.Item(cptrow, 6).ToString
reponse = "Sans objet"
If r1 = "X" Then
reponse = "Oui"
ElseIf r2 = "X" Then
reponse = "Non"
ElseIf r3 = "X" Then
reponse = "Non verifiable"
ElseIf r4 = "X" Then
reponse = "Sans objet"
End If
insertion_article = "insert into repondre (numexpertise, numfiche, numarticle, reponse, localisation, justificatif) values ( '" + txtmission.Text + "','" + data_grid.Item(cptrow, 0).ToString + "', select numarticle from article where codearticle = '" + data_grid.Item(cptrow, 1).ToString + "','" + reponse.ToString + "','" + data_grid.Item(cptrow, 7).ToString + "','" + data_grid.Item(cptrow, 8).ToString + "')"
Dim request_insertion As New SqlCommand(insertion_article, mod_connection.conn)
request_insertion.ExecuteNonQuery()
cptrow = cptrow + 1
insertion_article = ""
Loop |
Partager