en fait je fait une conversion pour l'ADO.net pour un module mais j'ai tjrs le mm erreur c'est " Types de données imcompatibles avec dans l'expression des critéres"
voilà le code

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
 
Dim RMontant As Integer
            Dim Recheance As String
            Dim Rlibel_ope As String
            Dim Rcpte_cont As String
            Dim Rtype As String
            Dim Rcpte_coll As String
 
 reader = FctSGBD.Execution_Requete(" UPDATE auxil_ns SET echeance = '" & Recheance & "', libel_ope='" & Rlibel_ope & "', cpte_cont='" & Rcpte_cont & "', montant=" & RMontant & ",type='" & Rtype & "', cpte_coll='" & Rcpte_coll & "' WHERE Numero = " & Numero)
 
            reader.Read()
 
            If TEcheance.Text <> "" Then Recheance = TEcheance.Text
 
            If TLibelle.Text <> "" Then Rlibel_ope = TLibelle.Text
 
            If TContrePartie.Text <> "" Then Rcpte_cont = TContrePartie.Text
 
            '------------------------
            If Tdebit.Text <> "" Then
                If Tdebit.Text <> 0 Then
                    RMontant = CDbl(Tdebit.Text)
                End If
            End If
            If Tcredit.Text <> "" Then
                If Tcredit.Text <> 0 Then
                    RMontant = CDbl(Tcredit.Text) * -1
                End If
            End If
Merci