Bonsoir,
je suis entrain de développer une petite application pour la gestion des créances des clients d'une société mais lors de l'execuètion une erreur s'affiche auè niveau de la requete SQL
L'exception invalidcast n'a pas ete geree
voila 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
    Private Sub but_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but.Click
 
        If IsNumeric(debit.Text & Credit.Text) Then
            Dim i As Double
            i = Val(debit.Text) + Val(Credit.Text)
            Dim classConnex As New ParamConnexion3
            Dim cmdString As String = "UPDATE Client SET Nom ='" & ListBox1.SelectedItem & "' ,Debit ='" & debit.Text & "' ,Credit='" & Credit.Text & "',Total='" & i & "' WHERE Nom='" & ListBox1.SelectedItem & "'"
            Dim SQLCommand As New OleDbCommand(cmdString, classConnex.Connection)
            SQLCommand.ExecuteNonQuery()
            debit.Clear()
            Credit.Clear()
            MsgBox("mise a jour reussie")
        Else
            MsgBox(" debit et credit doivent etre une valeur numerique")
        End If
    End Sub


je vouès remercie infiniment de votre aide