1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| cnn1.Open()
Dim Cmd As New Data.SqlClient.SqlCommand
For Each rw As DataGridViewRow In DG_PANIER.Rows
Cmd = New SqlCommand("INSERT INTO DBO.COMMANDE " & _
"([NUM_CMD],[NOMENCL],[DESIGNATION],[UAP],[USER_WS_MATR],[USER_WS_NOM],[SECTEUR],[QTE_CMD],[DATE_CMD] " & _
",[DATE_CMD_FERME],[PRIORITE],[USER_ADM],[ETAT_CMD],[MOTIF_ETAT],[COMMENTAIRE_TO_LOGI],[COMMENTAIRE_TO_USER] " & _
",[ZONE_QUAI],[QTE_LIVRE],[RELIQUAT],[STOCKA0],[TOUT_DISPO],[DEL]) " & _
" VALUES ('" & L_ID_CMD.Text & "','" & rw.Cells(0).Value & "', '" & rw.Cells(1).Value & "', '" & LB_UAP.SelectedItem & "', '" & TB_MATR.Text & "', '" & L_UserName.Text & "', '" & LB_SECTION.SelectedItem & "','" & rw.Cells(4).Value & "', GETDATE() " & _
", '', '" & L_TYPE_CMD.Text & "', '', 'Ouverte', '', '', '' " & _
", '" & ChaineCochee() & "', '0','','','','0') ", cnn1)
Next
Cmd.ExecuteNonQuery()
cnn1.Close() |
Partager