1 2 3 4 5 6 7 8 9 10 11 12 13
|
Do
newLigne = myLines(l)
ElementBis = newLigne.Split(";")
sqlSelect = sqlSelect & "INSERT INTO ligne (IdMachine, dateTransaction,decision,codeModePaiement,nbDossiers,sommeTransaction,IdPointVente,trancheHoraire,IdTypeMachine) values (" & (ElementBis(0)) & ",'" & ElementBis(1) & "','" & ElementBis(2) & "','" & ElementBis(3) & "'," & ElementBis(4) & "," & ElementBis(5) & "," & ElementBis(6) & "," & ElementBis(7) & "," & ElementBis(8) & "); "
l = l + 1
Loop While (l < myLines.Length - 1)
Dim CommandSQL As New SqlCommand(sqlSelect, con)
CommandSQL.CommandTimeout = 120
CommandSQL.ExecuteNonQuery() |
Partager