Utilisation d'un trigger pour faire un delete

Version imprimable

Bonjour,

Je voudrais faire un delete dans les tables F_DOCENTETE et F_DOCLIGNE de Sage ligne 100 gestion commerciale, liée à un même numéro, quand je le fais dans la seconde table, je n'ai aucune erreur mais quand je le fais dans F_DOCENTETE, j'obtiens ce message d'erreur, que je ne comprend pas du tout :

Citation:

L'erreur*82067, la gravité*11, l'état*1 ont été générés, mais aucun message avec ce numéro d'erreur n'a été trouvé dans sys.messages. Si l'erreur est supérieure à 50000, vérifiez que le message défini par l'utilisateur a été ajouté à l'aide de sp_addmessage.
Une erreur est survenue lors de l'exécution du déclencheur. Le lot a été abandonné et la transaction utilisateur éventuelle a été restaurée.

Du coup, je pense que je devrais voir du côté des triggers mais j'ignore totalement comment ça marche.
Je vous met tout de même la fonction que j'ai implémenté:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Function supprimer_facture(ByVal param_num_facture As String) As Boolean Dim cmd As SqlClient.SqlCommand = global_SQL_connection.CreateCommand Try For Each loop_table As String In {"F_DOCLIGNE", "F_DOCENTETE"} If global_SQL_connection.State = ConnectionState.Open Then global_SQL_connection.Close() End If global_SQL_connection.Open() cmd.CommandType = CommandType.Text cmd.CommandText = String.Format("DELETE FROM {0} WHERE DO_PIECE='{1}'", loop_table.Trim, param_num_facture.Trim) cmd.ExecuteNonQuery() Next loop_table Catch ex As Exception MsgBox(ex.Message) Return False End Try Return True End Function
Merci

23/05/2014, 14h10
Pol63

il faut regarder le code du trigger une ligne du type if condition raiserror (avec le numéro 82067)
un trigger c'est comme une sub de vb.net, appelée suite à un insert/update/delete (comme un évènement appelle une sub)
le langage d'sql server s'appelle le transact SQL

Le trigger est défini ainsi:

Code:

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
41
42
43
44
45
46
47
USE [BIJOU]
GO
/****** Object:  Trigger [dbo].[TG_DEL_F_DOCENTETE]    Script Date: 05/23/2014 11:05:01 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [dbo].[TG_DEL_F_DOCENTETE] ON [dbo].[F_DOCENTETE] FOR DELETE AS 
BEGIN
	BEGIN TRY
		SET NOCOUNT ON;
				IF EXISTS(SELECT 'a' FROM F_DOCLIGNE INNER JOIN DELETED
						  ON (F_DOCLIGNE.DO_Type = DELETED.DO_Type AND F_DOCLIGNE.cbDO_Piece = DELETED.cbDO_Piece))
					Raiserror(82043,11,1);
				IF EXISTS(SELECT 'a' FROM F_DOCREGL INNER JOIN DELETED
						  ON (F_DOCREGL.DO_Domaine = DELETED.DO_Domaine AND F_DOCREGL.DO_Type = DELETED.DO_Type AND
							  F_DOCREGL.cbDO_Piece = DELETED.cbDO_Piece))
					Raiserror(82067,11,1);
				IF EXISTS(SELECT 'a' FROM F_REGLECH INNER JOIN DELETED
						  ON (F_REGLECH.DO_Domaine = DELETED.DO_Domaine AND F_REGLECH.DO_Type = DELETED.DO_Type AND
							  F_REGLECH.cbDO_Piece = DELETED.cbDO_Piece))
					Raiserror(82076,11,1);
 
	END TRY
	BEGIN CATCH
		DECLARE
			@ErrorMessage nvarchar(max),
			@ErrorNumber int,
			@ErrorSeverity int,
			@ErrorState int;
 
		SET @ErrorMessage = ERROR_MESSAGE();
		SET @ErrorNumber = ERROR_NUMBER();
		SET @ErrorSeverity = ERROR_SEVERITY();
		SET @ErrorState = ERROR_STATE();
		IF XACT_STATE() <> 0
			ROLLBACK;
		IF (@ErrorNumber = 1205) OR (@ErrorNumber = 1222)
			RAISERROR(80008,@ErrorSeverity,@ErrorState);
		ELSE
		IF @ErrorNumber > 50000
			RAISERROR(@ErrorNumber,@ErrorSeverity,@ErrorState);
		ELSE
			RAISERROR(@ErrorMessage,@ErrorSeverity,@ErrorState);
		RETURN;
	END CATCH;
END;

23/05/2014, 14h34
Invité

En arrivant sur ce lien, j'ai pu trouver la réponse à mon soucis, l'utilisation d'un trigger est obsolète, j'ai simplement remplacé

Code:

For Each loop_table As String In {"F_DOCLIGNE", "F_DOCENTETE"}

par

Code:

For Each loop_table As String In {"F_DOCLIGNE", "F_DOCREGL", "F_REGLECH", "F_DOCENTETE"}