1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
.......
Tafonction(ByVal base as string, Byval Tables as string, les donnees apres)
{
For RowNumber = 0 To ObjetDataTabletranches.Rows.Count - 1
'Table hlpimpairs
Dim nbrehlpimpairs = ObjetDataTabletranches.Rows(RowNumber).Item("trimpaire")
Dim strSQLhlpimpairs = "INSERT INTO " & Table & " ( utilise, numero ) VALUES ('2', '5650" & nbrehlpimpairs & "');"
Dim cmSQLhlpimpairs As New SqlCommand(strSQLhlpimpairs, ObjetConnection)
cmSQLhlpimpairs.ExecuteNonQuery()
'Table hlppairs
Dim nbrehlppairs = ObjetDataTabletranches.Rows(RowNumber).Item("trpaire")
Dim strSQLhlppairs = "INSERT INTO hlppairs ( utilise, numero ) VALUES ('2', '5650" & nbrehlppairs & "');"
'Dim cmSQL As New SqlCommand(strSQL, ObjetConnection)
Dim cmSQLhlppairs As New SqlCommand(strSQLhlppairs, ObjetConnection)
cmSQLhlppairs.ExecuteNonQuery()
Next
} |
Partager