Problème de suppression d'un enregistrement (DatagridView/DataSet)

Version imprimable

J'ai ce code qui s'execute quand je clique sur le boutton supprimer.
Principe :
Je séléctionne une ligne de la grille, les informations s'iffichent dans des zones de textes, je veux que quand je clique la ligne courante s'efface de la DataGridView ansi que de la base de données.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim cmd As SqlCommand = New SqlCommand("Select * from articles_design where idarticle =" & Val(Me.dgvDesignation.CurrentRow.Cells("idarticle").Value), cnx) Dim da As SqlDataAdapter = New SqlDataAdapter(cmd) Dim ds As New DataSet ds.Clear() da.Fill(ds, "articles_design") 'récupère la clé de l'enregistrement sélectionné Dim idArticle As String idArticle = dgvDesignation.CurrentRow.Cells(0).Value.ToString 'recherche de la ligne a supprimer dans le DataSet Dim Ligne As DataRow() Ligne = ds.Tables("articles_design").Select("idarticle = " & idArticle) 'Suppression Ligne(0).Delete() Dim CmdBuild As SqlCommandBuilder CmdBuild = New SqlClient.SqlCommandBuilder(da) da.DeleteCommand = CmdBuild.GetDeleteCommand() 'Mise a jour avec la base da.Update(ds, "articles_design") 'femeture de la connexion Dim dt As DataTable dt = ds.Tables("articles_design") Me.dgvDesignation.DataSource = dt Me.dgvDesignation.Refresh()
J'ai l'erreur suivante :
La génération SQL dynamique de DeleteCommand n'est pas prise en charge pour un SelectCommand qui ne retourne pas des informations de colonne clé.

Je n'y arriva pas, svp faut que je respecte une DeadLine.
Merci

25/08/2008, 14h37
tomlev

Est-ce que ta colonne idarticle est bien la clé primaire de la table ? Si ce n'est pas le cas il ne peut pas générer automatiquement la commande Delete.

Essaie de mettre la liste des colonnes dans ton SELECT, plutôt que "*"

Si vraiment ça ne marche pas, définis toi-même la DeleteCommand, avec un paramètre idarticle
25/08/2008, 15h05
tssi555

Merci pour ta réponse tomlev.
J'ai essayé avec les noms des champs au lieu de "*" mais ca ne fonctionne tjrs pas.
En fait, dans la table que j'utise, la clef primaire est une clef composite de Idarticle et Adlangue.
Et pour le deletecommand, comment pourrais-je la définir? tu parle d'une instruction Delete à passer à la commande?
25/08/2008, 15h28
tomlev

je parle de la propriété DeleteCommand du SqlDataAdapter
25/08/2008, 15h46
tssi555

Je me réfère à la manière de suppression décrite dans le cours de Mr. Lasserre, mais je n'arrive vraiment pas à supprimer.
http://plasserre.developpez.com/v6-5.htm

ben fais comme je t'ai dit : puisqu'il n'arrive pas à générer automatiquement la DeleteCommand, écris la toi-même :
Code:

1 2 3 da.DeleteCommand = new SqlCommand("DELETE FROM articles_design WHERE IdArticle = @IdArticle AND Adlangue = @Adlangue" da.DeleteCommand.Parameters.Add("@IdArticle", SqlDbType.Int, 0, "IdArticle") da.DeleteCommand.Parameters.Add("@Adlangue", SqlDbType.Varchar, 100, "Adlangue")
Bien sûr il faudra sans doute adapter un peu les valeurs, je ne connais pas le schéma exact de ta base... le dernier paramètre de Add est le nom de la colonne dans le Dataset

25/08/2008, 16h10
tssi555

Merci bien tomlev.
Avec ce code que tu m'as donné, je suis pas obligé de fournir une commande avec un select ?
25/08/2008, 16h11
tomlev

si, mais tu le fais déjà
le code que je t'ai donné est à ajouter à l'existant
25/08/2008, 16h15
tssi555

Merci.
Je teste tout ca et je te tiens au courant.

Voici mon code final,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
        Dim cmd As SqlCommand = New SqlCommand("delete from articles_design where idarticle =" & Val(Me.dgvDesignation.CurrentRow.Cells(0).Value), cnx)
        Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        'Dim CmdBuild As SqlCommandBuilder
        ds.Clear()
        da.Fill(ds, "articles_design")
        '--
        da.DeleteCommand = New SqlCommand("DELETE FROM articles_design WHERE IdArticle = @IdArticle AND Adlangue = @Adlangue")
        da.DeleteCommand.Parameters.Add("@IdArticle", SqlDbType.Int, 0, "idarticle")
        da.DeleteCommand.Parameters.Add("@Adlangue", SqlDbType.VarChar, 100, "adlangue")
 
        ds.Clear()
        da.Fill(ds, "articles_design")
        Dim dt As DataTable
        dt = ds.Tables("articles_design")
        Me.dgvDesignation.DataSource = dt
        Me.dgvDesignation.Refresh()

Je pense que je m'approche de la solution.
Ce code ne donne plus d'érreur, sauf que quand je clique sur supprimer , il supprime tout ! , j'ai mon datagridview tout vide.:?
?

C'est pas clair ton affaire... je ne vois pas comment ça pourrait supprimer quoi que ce soit, puisque tu n'appelles pas Delete sur la ligne et Update sur le SqlDataAdapter

Reprends ton code du début, mais remplace :
Code:

1 2 3 Dim CmdBuild As SqlCommandBuilder CmdBuild = New SqlClient.SqlCommandBuilder(da) da.DeleteCommand = CmdBuild.GetDeleteCommand()
par ça :
Code:

1 2 3 da.DeleteCommand = new SqlCommand("DELETE FROM articles_design WHERE IdArticle = @IdArticle AND Adlangue = @Adlangue" da.DeleteCommand.Parameters.Add("@IdArticle", SqlDbType.Int, 0, "IdArticle") da.DeleteCommand.Parameters.Add("@Adlangue", SqlDbType.Varchar, 100, "Adlangue")
Et normalement tu n'as pas besoin de rafraichir le datagridview ensuite...

26/08/2008, 09h02
tssi555
j'ai remplacé la partie que tu m'a dis, j'ai l'erreur suivante :

DeleteCommand doit avoir un objet connection pour la mise à jour. La propriété Connection de DeleteCommand n'a pas été initialisée.

à la ligne :
Code:

1 2 da.Update(ds, "articles_design")
:(
26/08/2008, 09h42
tomlev

Code:

da.DeleteCommand = new SqlCommand("DELETE FROM articles_design WHERE IdArticle = @IdArticle AND Adlangue = @Adlangue", cnx)
26/08/2008, 10h00
tssi555

tomlev?
Tu est un amour :yaisse2:.
Merci pour cette assitance.
Juste, pour moi, pour mieu comprendre, pourquoi ca ne fonctionne pas avec un simple Delete comme décrit Mr. plasserre dans son cours?
Autre question.
Est ce que je peux utiliser des commande SQL indépendantes ( INSERT, DELETE, UPDATE) à la main au lieu d'utiliser les propriétés et méthode du DataSet comme ce qui est expliqué dans le cours suivant http://dotnet.developpez.com/cours/ado.net/
la page 105?

Merci
26/08/2008, 10h21
tomlev

tu peux exécuter les commandes manuellement si tu veux, mais dans ce cas il faudra aussi gérer manuellement la synchronisation entre la base et le dataset...

Tu devrais te documenter sur l'utilisation des DataSet, ce tuto par exemple est pas mal
26/08/2008, 10h24
tssi555

:?
J'ai un problème.
En fait quand je supprime, je viens de me rendre compte que même si je séléctionne un enregistrement, la suppression s'applique au première enregistrement et pas à celui séléctionné.
?
26/08/2008, 10h33
tomlev

fais voir ton code final, parce que là je vois pas où tu fais le Delete...

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
 Dim cmd As SqlCommand = New SqlCommand("Select * from articles_design where idarticle =" & Val(Me.dgvDesignation.CurrentRow.Cells("idarticle").Value), cnx)
        Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        ds.Clear()
        da.Fill(ds, "articles_design")
        'récupère la clé de l'enregistrement sélectionné 
        Dim idArticle As String
        idArticle = dgvDesignation.CurrentRow.Cells(0).Value.ToString
        'recherche de la ligne a supprimer dans le DataSet
        Dim Ligne As DataRow()
        Ligne = ds.Tables("articles_design").Select("idarticle = " & idArticle)
        'Suppression
        Dim i As Integer
        Ligne(i).Delete()
        da.DeleteCommand = New SqlCommand("DELETE FROM articles_design WHERE IdArticle = @IdArticle AND Adlangue = @Adlangue", cnx)
        da.DeleteCommand.Parameters.Add("@IdArticle", SqlDbType.Int, 0, "idarticle")
        da.DeleteCommand.Parameters.Add("@Adlangue", SqlDbType.VarChar, 100, "adlangue")
 
        'Mise a jour avec la base
        da.Update(ds, "articles_design")
        'femeture de la connexion
        Dim dt As DataTable
        dt = ds.Tables("articles_design")
        Me.dgvDesignation.DataSource = dt
        Me.dgvDesignation.Refresh()

26/08/2008, 13h38
tomlev
Attention :
Code:

1 2 Dim i As Integer Ligne(i).Delete()
Si tu n'initialises pas i, il vaut 0
Cela dit, ça ne devrait pas changer grand chose puisque tu as déjà fait un Select par rapport à idArticle
Je ne vois pas trop ce qui ne va pas... essaie d'exécuter en mode pas à pas et de regarder les valeurs des variables pour voir ce qui se passe
26/08/2008, 15h03
tssi555
Merci tomlev.
En fait je suppose que ca devra marcher avec :
Code:

1 2 3 4 5 Dim i As Integer i = 0 For i = 0 to ds.Tables(0).Rows.Count - 1 Ligne(i).Delete() Next i
J'ai changé de politique pour faire la suppression vu quu'avec le DataSet ca m'a pris bcp de temps.
Maintenant ce que je fais, c'est que j'ai crée une procédure stockée sur le serveur (Une procédure qui Delete et Select en même temps selon les paramètres fournis), puis ds mon code Vb, j'add deux param's que je passe à la procédure, le résultat est impécable! et je trouve plus performant.
Voilà, comme ça je me base plus sur les instruction SQL coté serveur sans me casser la tête avec les propriétés et méthodes du DataSet.
Qu'est ce que t'en pense?
;)