validation dans un datagridview

Version imprimable

bonjour,
j'ai placé sur mon formulaire un datagridview qui a les propriétés:
-activer l'ajout (coché)
-activer la modification (coché)
-activer la suppression (coché)

et le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
 
Public Class p_client
    Dim sqlCMD As SqlCommand
    Dim Dadpter As SqlDataAdapter
    Dim tab As DataTable
    Dim Dset As DataSet
 
    Private Sub ExecuteLMD(ByVal bSql As String, ByVal bTable As String)
        sqlCMD = New SqlCommand(bSql)
        Dadpter = New SqlDataAdapter(sqlCMD)
        tab = New DataTable
        Dset = New DataSet
        sqlCMD.Connection = sqlCONN
        Dadpter.Fill(Dset, bTable)
        tab = Dset.Tables(bTable)
        sqlCMD.CommandType = CommandType.Text
        Dadpter.SelectCommand = sqlCMD
    End Sub
 
    Private Sub cmdfermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfermer.Click
        Me.Close()
    End Sub
 
    Private Sub p_client_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ExecuteLMD("select * from client", "client")
        Grille.DataSource = tab
    End Sub
End Class

lorsque j'entre un enregistrement sur une ligne et que je passe à la ligne suivante, l'enregistrement n'est pas validé. je ne sais pas s'il y a une ligne de code que je n'ai pas insérer.

merci d'avance.

14/11/2011, 09h57
tomlev

Qu'est-ce que tu entends pas "n'est pas validé" exactement ? Qu'est-ce que tu veux que ça fasse ?
14/11/2011, 10h08
asmduty
Moi ce qu'il faut m'expliquer c'est la présence de ces 2 lignes :
Code:

1 2 sqlCMD.CommandType = CommandType.Text Dadpter.SelectCommand = sqlCMD
alors que les opérations SQL sont passées :?

Sinon je ne comprends pas vraiment non plus le problème, le but, etc.
14/11/2011, 10h36
tomlev
Citation:
Envoyé par asmduty

Moi ce qu'il faut m'expliquer c'est la présence de ces 2 lignes :

Code:

1 2 sqlCMD.CommandType = CommandType.Text Dadpter.SelectCommand = sqlCMD

alors que les opérations SQL sont passées :?
Effectivement... et même si c'était avant l'exécution, ça changerait rien : CommandType.Text est la valeur par défaut, et la SelectCommand a déjà été spécifiée via le constructeur
14/11/2011, 14h03
djelloharmel
j'ai fait 2 formulaires:
1. l'un où je renseigne ma table t_client à partir de contrôles textbox
2. l'autre à partir d'un datagridview.

j'ai effacé les 2 lignes
Code:

1 2 sqlCMD.CommandType = CommandType.Text Dadpter.SelectCommand = sqlCMD
je renseigne sans problème la table t_client dans le formulaire 1.
par contre, à partir du formulaire 2., je saisis des valeurs dans les colonnes mais elles n'apparaissent pas dans ma table t_client.
14/11/2011, 14h34
tomlev

Impossible de répondre avec les éléments que tu donnes...
A quoi correspond le code que tu as posté au départ ? au 1e ou au 2e formulaire ? Quel est la relation entre les 2 formulaire ? Appelles-tu l'un à partir de l'autre ? Comment passes tu les données entre les 2 ?

Bref, essaie d'être plus précis...

le formulaire 1 ne contient que des contrôles textbox et le formulaire 2 contient le datagridview. les 2 formulaires ne sont pas en relation. je veux juste renseigner ma table à partir de ces 2 formulaires. je n'ai aucun problème avec le formulaire 1. par contre, le formulaire 2 dont le code a déjà été donné en début de discussion ne renseigne pas ma table. je remets le code corrigé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
 
Public Class p_client
    Dim sqlCMD As SqlCommand
    Dim Dadpter As SqlDataAdapter
    Dim tab As DataTable
    Dim Dset As DataSet
 
    Private Sub ExecuteLMD(ByVal bSql As String, ByVal bTable As String)
        sqlCMD = New SqlCommand(bSql)
        Dadpter = New SqlDataAdapter(sqlCMD)
        tab = New DataTable
        Dset = New DataSet
        sqlCMD.Connection = sqlCONN
        Dadpter.Fill(Dset, bTable)
        tab = Dset.Tables(bTable)
    End Sub
 
    Private Sub cmdfermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdfermer.Click
        Me.Close()
    End Sub
 
    Private Sub p_client_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ExecuteLMD("select * from client", "client")
        Grille.DataSource = tab
    End Sub
End Class

merci de votre assistance

16/11/2011, 09h49
tomlev
Bah oui, tu n'as écrit aucun code pour mettre à jour la table... c'est pas automatique !

Tu peux utiliser le DataAdapter :
Code:

1 2 Dim commandBuilder As New SqlCommandBuilder(Dadpter) Dadpter.Update(tab)
(le CommandBuilder permet de générer automatiquement les commandes UPDATE/INSERT/DELETE à partir du SELECT que tu as indiqué ; par contre il faut que ta table ait une clé primaire)
16/11/2011, 11h09
djelloharmel
j'ai les lignes de codes
Code:

1 2 Dim commandBuilder As New SqlCommandBuilder(Dadpter) Dadpter.Update(tab)
dans la procédure "ExecuteLMD", ça ne donne rien.
je l'ai déplacé dans l'évènement p_client_load, ça ne donne toujours rien.

ou est ce que je dois placer ce bout de code?

cordialement
16/11/2011, 11h24
tomlev
Citation:
Envoyé par djelloharmel

j'ai les lignes de codes

Code:

1 2 Dim commandBuilder As New SqlCommandBuilder(Dadpter) Dadpter.Update(tab)

dans la procédure "ExecuteLMD", ça ne donne rien.
je l'ai déplacé dans l'évènement p_client_load, ça ne donne toujours rien.

ou est ce que je dois placer ce bout de code?

cordialement
Bah il faut le mettre à l'endroit où tu veux enregistrer les données... si tu le mets dans le Load, ça sert à rien, vu que tu as pas encore modifié les données. Tu as pas un bouton "enregistrer" ou "valider" ou un truc comme ça ?

je voulais qu'en passant d'une ligne à une autre, les données de la ligne précédente soit enregistrées dans la table.

en essayant avec le code
Code:

1 2 3 4 5 6 7 8 Private Sub Grille_ColumnStateChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewColumnStateChangedEventArgs) Handles Grille.ColumnStateChanged Try Dim commandBuilder As New SqlCommandBuilder(Dadpter) Dadpter.Update(tab) Catch ex As Exception MsgBox(Err.Description, , "Echec de validation") End Try End Sub
j'y suis parvenu. mais je dois avouer que c'est un hasard. n'y a-t-il pas un meilleur évènement que celui-ci sur la grille qui me permette de parvenir à mes fins.

16/11/2011, 12h12
Maniz

Tu as l'évenement RowLeave
Lorsque qu'une ligne perd le focus, que ce n'est plus la ligne actuelle, peut-être que celui la te convient mieux?
16/11/2011, 12h17
tomlev

Citation:

Envoyé par djelloharmel

je voulais qu'en passant d'une ligne à une autre, les données de la ligne précédente soit enregistrées dans la table.

Ca aurait été plus simple si tu l'avais dit dès le départ :roll:

L'évènement le plus approprié pour ça à mon avis est RowValidated
16/11/2011, 12h22
djelloharmel

oui. je conviens avec vous que je n'ai pas été assez clair.
il y a deux blocages que j'ai à ce niveau pour passer complètement:

1. je ne veux pas qu'on passe à une autre ligne s'il y a une erreur de validation
2. je veux un message de confirmation de suppression si je veux effacer une ou des ligne(s)
16/11/2011, 14h30
tomlev

Citation:

Envoyé par djelloharmel

1. je ne veux pas qu'on passe à une autre ligne s'il y a une erreur de validation

Gère l'évènement RowValidating, et s'il y a une erreur tu mets e.Cancel à true

Citation:

Envoyé par djelloharmel

2. je veux un message de confirmation de suppression si je veux effacer une ou des ligne(s)

Gère l'évènement UserDeletingRow, affiche ton message de confirmation, et si l'utilisateur ne confirme pas tu mets e.Cancel à true
16/11/2011, 19h19
djelloharmel

pas de problème avec le message de suppression d'une ligne.
par contre, je ne sais pas comment annuler la mise à jour d'une nouvelle ligne sur laquelle il y a une erreur de validation lorsque je passe à une ligne existante.

je m'explique mieux:
je suis sur une nouvelle ligne en mode d'insertion de données. si je passe à une nouvelle ligne (vierge), alors message d'échec de validation et impossible d'aller à la nouvelle nouvelle. mais si je passe à une ligne existante, message d'erreur de validation avec la possibilité de valider d'abord la ligne (en cours) ou de l'annuler avant de passer à la ligne existante. dans le second cas, la nouvelle ligne s'efface et le curseur va à la ligne existante.
17/11/2011, 08h21
asmduty

Ouais enfin là faut peut être un peu chercher aussi, c'est quand même pas sorcier à faire, tu as toutes les cartes en main maintenant.