1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
Dim ComDoublons As New System.Data.OleDb.OleDbCommand(sql, ConDoublons)
Dim myTrans_Doublons As OleDb.OleDbTransaction = ConDoublons.BeginTransaction()
ComDoublons.Transaction = myTrans_Doublons
ComDoublons.Parameters().Add("@madate", OleDb.OleDbType.DBDate)
ComDoublons.Parameters("@madate").Value = CDate(enreg("DATEDEMANDE"))
Try
ComDoublons.CommandText = "INSERT INTO SEV_ART_AX_ASP_LOG (ITEMID, ENSEIGNEID, ITEMNAME, NETWEIGHT, PRIMARYVENDORID, " & _
" SEVNOMPHOTO, SEVNOMLATIN, SEVGARANTIE, SEVMARQUE, SEVCADEAU, SEVCADEAUVALPOINT, " & _
" SEVCADEAUVALPOINTMIX, SEVCADEAUVALPRIXMIX, SEVCHEQUECADEAU, SEVNOMENCCODE, SEVTHEMECODE, " & _
" SEVFABRICANTID, BLOCAGEVENTE, SEVINFOTECHNIQUE1, SEVINFOTECHNIQUE2, SEVINFOTECHNIQUE3, " & _
" REMISABLE, D3EMONTANT, TAXCODE, DESIGNATIONLONGUE, ETIKCLASSE, ETIKUNITCONT, ETIKCONTENANCE, " & _
" ETIKREFFAB, CODEFOUPREF, ETIKARTICLEETAT, [ACTION], DATEDEMANDE, ETATCOURANT, DATEETATCOURANT, " & _
" [LOG], LOG_DATE) " & _
" SELECT ITEMID, ENSEIGNEID, ITEMNAME, NETWEIGHT, PRIMARYVENDORID, " & _
" SEVNOMPHOTO, SEVNOMLATIN, SEVGARANTIE, SEVMARQUE, SEVCADEAU, SEVCADEAUVALPOINT, " & _
" SEVCADEAUVALPOINTMIX, SEVCADEAUVALPRIXMIX, SEVCHEQUECADEAU, SEVNOMENCCODE, SEVTHEMECODE, " & _
" SEVFABRICANTID, BLOCAGEVENTE, SEVINFOTECHNIQUE1, SEVINFOTECHNIQUE2, SEVINFOTECHNIQUE3, " & _
" REMISABLE, D3EMONTANT, TAXCODE, DESIGNATIONLONGUE, ETIKCLASSE, ETIKUNITCONT, ETIKCONTENANCE, " & _
" ETIKREFFAB, CODEFOUPREF, ETIKARTICLEETAT, ACTION, DATEDEMANDE, ETATCOURANT, DATEETATCOURANT, " & _
" 'Doublon : un enregistrement plus récent a été pris en compte', getdate() " & _
" FROM SEV_ART_AX_ASP WHERE ITEMID = " & enreg("ITEMID") & " AND DATEDEMANDE = @madate"
ComDoublons.ExecuteNonQuery()
ComDoublons.CommandText = "DELETE FROM SEV_ART_AX_ASP WHERE ITEMID = " & enreg("ITEMID") & " AND DATEDEMANDE = '" & enreg("DATEDEMANDE") & "'"
ComDoublons.ExecuteNonQuery()
myTrans_Doublons.Commit()
Catch e As Exception
mVueImportArticle = mVueImportAssort() & "IMPOSSIBLE D'INSERER LES LOG : " & e.Message
myTrans_Doublons.Rollback()
Finally
' FERMETURE DE LA CONNECTION
ComDoublons.Dispose()
ConDoublons.Close()
ConDoublons.Dispose()
myTrans_Doublons.Dispose()
End Try |
Partager