Bonjour à tous,
j'ai les déclarations suivantes :
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
6Private 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 ne comprend pas pourquoi l'update du dataset ne fonctionne pas ??
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)
Merci pour votre aide
Tornade
Partager