Discussion :

[chris81]

bonjour,
j'ai créé un dataset à partir d'une base de donnée SQL 2005. Sur un premier form avec ma liste de client (c ok ca marche) ensuite je créé un form detail ou je peut entrer de nouveau client. Ds ce form j'ai databinder mes textbox avec les champs du dataset (=> création de TblEmployésBindingSource et TblEmployésTableAdapter).

Quand je fais un changement sur le nom du client dans le form detail. je fais TblEmployésTableAdapter.Update(dataset.MaTable) et il ne prend aucun changement en compte. Si je fait une boucle pour voir si les rowsstate ont bougés ils st tous à Unchanged.

Savez vous comment corrigé ce probleme.

De plus comment puis je faire pour que qd je clique sur "Ajouter" dans la liste des clients, ca ouvre le form (ca c bon ) mais avec les champs a vide et qu'il sache que je vais ajouter une ligne dans le dataset ?

merci

[chris81]

Sinon connaissez vous un tutoriel expliquant cela ?

[bidou]

fais un endedit avant le update. Sinon il faut faire un addnew sur le binding source pour vider les champs

[chris81]

le fait de mettre EndEdit() ne change rien.

voici le code :


Public Id_Objet As Integer

Private Sub frmUtilisateur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

If Not Me.Id_Objet = Nothing Then
Me.TblEmployésTableAdapter.Fill(Me.DsPhode.tblEmployés)
Me.TblEmployésBindingSource.Filter = "Id_User = " + Me.Id_Objet.ToString
Me.TblDroitEmployeTableAdapter.Fill(Me.DsPhode.tblDroitEmploye)
Else
Me.TblEmployésBindingSource.AddNew()
Me.TblDroitEmployeBindingSource.AddNew()
End If

Catch ex As Exception
MessageBox.Show("Erreur de chargement", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Finally
Me.TblEmployésBindingSource.EndEdit()
Me.TblDroitEmployeBindingSource.EndEdit()
End Try

End Sub

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
If Me.DsPhode.HasChanges Then
MsgBox("ok")
End If
End Sub

[bidou]

il est ou le Update

[chris81]

je l'ai mis ds l'evenement du bouton ok

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
Me.TblEmployésTableAdapter.Update(Me.DsPhode.tblEmployés)
End Sub

mais rien ne change!!!