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!!!

[chris81]

de plus qd on créé un dataset avecl'assistant celui ci ajoute une ligne dans My.Setting le pb est que cette ligne est en read only, comment faire pour que si je deploie l'appli ailleurs je puisse entrer le bon chemin de la base de données.

merci

[bidou]

et avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

???

Pour la connexion, tu peux changer la valeur dans le fichier de configuration

[chris81]

merci avec cette syntaxe c ok gd merci

[chris81]

derniere question

comment lui dire que je veux ajouter un user et non pas modifié ?

merci

[bidou]

gné ?????

Je n'ai pas compris la question

[chris81]

a desolé

J'ai une liste des users, qd je double clique sur un user je l'ouvre en modif avec les champs databinder donc rempli. Maintenant comment faire pour que quand je clique sur ajouter les champs soient vides et que qd je fait mon DataAdapter.Update(MonDs) il fasse bien l'insertion.

de plus lors de l'insertion y a t'il un moyen pour recevoir le dernier id inseré?

merci

[bidou]

1) quand tu appel AddNew sur le BindingSource il doit te positionner sur un nouvel enregistrement et donc vider les champs.

2) Pour récupérer la clé, ca va dépendre de la base de données qu'il y a derrière

[chris81]

j'ai du sql serveur 2000 derriere. D'apres toi quelle est la meilleure solution pour recupere le dernier ID integré ?

merci

[bidou]

utiliser pour l'insertion une procédure stockée qui renvoie un paramètre SCOPE_IDENTITY, ca fonctionne très bien