Bonjour à tous
Je souhaite faire 5 insertions dans ma base de données mais vu qu'il s'agit de tables différentes comment faire des transactions en effet
l'ensemble doit s'arreter si un insertion ne fonctionne pas aidez moi
voici ce que j'ai essayé
BEGIN TRAN
SQLInsertClient = "INSERT INTO CLIENT(NOM_MR, PRENOM_MR) VALUES('" & NOMMR & "', '" & PRENOMMR)"
cmdInsert.commandText = SQLInsertClient
cmdInsert.Execute
SAVE TRAN P1
SQLInsertSC = "INSERT INTO SOURCE_CONTACT (ID_ETABLISSEMENT, DATE_SOURCE) VALUES ('" & ets & "', '" & date() & "')"
cmdInsert.commandText = SQLInsertSC
cmdInsert.Execute
SAVE TRAN P2
SQLInsertLS = "INSERT INTO LISTE_SOURCE (ID_SOURCE, IDCLIENT, ID_AFFAIRE) VALUES ('" & MAX_IDSOURCE & "', '" & MAX_IDCLIENT & "', '" & 1 & "')" cmdInsert.commandText = SQLInsertLS
cmdInsert.Execute
SAVE TRAN P3
SQLInsertLM = "INSERT INTO LISTE_MOYENORIGINE (ID_SOURCE, ID_MODE, ID_ORIGINE) VALUES ('" & MAX_IDSOURCE & "', '" & 2 & "', '" & origine & "')" cmdInsert.commandText = SQLInsertLM
cmdInsert.Execute
SAVE TRAN P4
SQLInsertA = "INSERT INTO AFFAIRE (IDCLIENT, ID_AFFAIRE, CODETYPE_PRET) VALUES ('" & MAX_IDCLIENT & "', '" & 1 & "', '" & typepret & "')" cmdInsert.commandText = SQLInsertA
cmdInsert.Execute
SAVE TRAN P5
COMMIT TRAN P1, P2, P3, P4, P5
Merci de m'aider
shaft