Bonjour à tous,

j'ai les déclarations suivantes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
    Private drKE30 As DataRow
    Private dsKE30 As DataSet
    Private daKE30 As SqlClient.SqlDataAdapter
    Private sqlKE30 = "select * from tblImportKE30_IK3 where (IK3_closed = 0 or IK3_closed is null)"
    Private dtKE30 As DataTable
je peux sans aucun problème parcourir la table en question. Mais je n'arrive pas a faire un ajout

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
 
' J'ajoute la ligne a datarow
            drKE30 = dtKE30.NewRow()
            drKE30("CUS_SapCode") = Me.SapCode.Text
            If Me.CdeClient.Text = "" Then
                drKE30("IK3_Cdeclient") = 0
            Else
                drKE30("IK3_Cdeclient") = Me.CdeClient.Text
            End If
....
' je continu a remplir mes champs d'après mon formulaire
            dtKE30.Rows.Add(drKE30)
' un essai qui ne fonctionne pas
'            Dim ocb = New SqlClient.SqlCommandBuilder(daKE30)
 
'L'erreur est a partir d'ici ou il refuse l'update
            daKE30.Update(dsKE30)
            dsKE30.Clear()
            daKE30.Fill(dsKE30, sqlKE30)
            dtKE30 = dsKE30.Tables(sqlKE30)
            rownumber = dtKE30.Rows.Count - 1
            remplissage(rownumber)
je ne comprend pas pourquoi l'update du dataset ne fonctionne pas ??

Merci pour votre aide

Tornade