1 2 3 4 5 6 7
| If DTGNomenclature.Rows.Count > 0 Then
For i = 0 To DTGNomenclature.Rows.Count - 1
MyCommand.CommandText = "insert into poste `Id_poste`,`Id_client`,`Numero_du_poste`, `type de nuisible`,Batiment, Niveau, `Nom des locaux`, `Supprimé`) Values (0,""" & idclt & """,""" & DTGNomenclature.Item(i, 3).Value & """,""" & DTGNomenclature.Item(i, 3).Value & """,""" & DTGNomenclature.Item(i, 0).Value & """,""" & DTGNomenclature.Item(i, 1).Value & """,""" & DTGNomenclature.Item(i, 2).Value & """,""FAUX"")"
res = MyCommand.ExecuteNonQuery()
Next
End If |
Partager