Discussion :

[JauB]

Bonjour tout le monde,
j'ai une boucle qui insérer des données dans une table ( sous DB2), cette insertion doit se faire d'une façon transactionnelle. j'ai procéde comme suit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
PrivateSub saveDF(ByVal ds As DataSet, ByVal ReferenceDF AsString)
 
Dim cntByDF AsInteger
cntByDF = ds.Tables(0).Rows.Count
Dim sSQL AsString
Dim transact As OleDb.OleDbTransaction
Dim cn2 AsNew OleDb.OleDbConnection
Dim cmd2 AsNew OleDb.OleDbCommand
 
If cn2.State = ConnectionState.Closed Then
cn2.ConnectionString = chaineConnexion(userI5, pwdI5)
cn2.Open()

EndIf
transact = cn2.BeginTransaction
cmd2.Transaction = transact
cmd2.Connection = cn2
Try
 
For j AsInteger = 0 To cntByDF - 1
sSQL = " INSERT INTO DF_DUPLIC VALUES " & _
" ('85',current date,'" & ReferenceDF & "','" & ds.Tables(0).Rows(j).Item("champ1") & "', " & _
" '" & ds.Tables(0).Rows(j).Item("champ2") & "', " & _
" '', " & _
" '" & ds.Tables(0).Rows(j).Item("champ3") & "', " & _
" '" & ds.Tables(0).Rows(j).Item("champ4") & "', " & _
" '" & ds.Tables(0).Rows(j).Item("champ5") & "', " & _
" '" & moduleName & "', " & _
" '" & ds.Tables(0).Rows(j).Item("champ6") & "' " & _
" )"
cmd2.CommandText = sSQL
cmd2.ExecuteNonQuery()
 
Next
transact.Commit()
Catch ex As Exception
transact.Rollback()
MsgBox(ex.Message)
Finally
cn2.Close()
EndTry
EndSub

ainsi, je veux que lorsque cette insertion généré un doublon de clé que la transaction s'annulle. et c'est mon cas. vu que dans ma table DF_DUPLIC j'ai une clé, mais à priori on ne sait pas si les données contenu dans le DataSet génére ces doublons ou pas! c'est pour ça que j'ai mis dans le catch un RollBack pour que la transaction soit annullées dans ce cas, mais apparement j'ai constaté que mon premier enregistrement est inséré dans ma table et lors du prochain incrément de la boucle une execption est levée indiquant comme quoi il y a doublon et dans après débougage je rentre dans le CATCH et ça passe par le RollBack mais quand je regarde dans la base de données je trouve que le premier enregistrement existe bien ( çàd qu'il n'était pas annulé!) comment ça se fait! je ne sais pas!!
quelqu'un a t-il une idée?
Merci d'avanace

[FRED.G]

Pour ma part j'avoue, là, je suis perplexe ! (mais bon, faut dire, je ne suis pas un expert).

J'aurais codé ça comme toi.

En désespoir de cause, j'aurais testé d'inverser ces deux lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cmd2.Transaction = transact
cmd2.Connection = cn2

... mais sans y croire vraiment.