Recharger un DataTable

Version imprimable

Bonjour,

J'execute une requête "DELETE" sur ma table. L'enregistrement est bien supprimer dans la table Access.

Je n'arrive pas à recharger le DataTable pour afficher les enregistrements

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim sRequete As String = "delete FROM C_62_30092007 WHERE I_IdClient = 3207" ', "cl25m.mdb", "Concours" Cl25m_Command.CommandText = sRequete Cl25m_DataAdapter.InsertCommand = Cl25m_Command Cl25m_DataAdapter.InsertCommand.ExecuteNonQuery() MsgBox(Cl25m_DataTable.Rows.Count()) Me.dgvTest.Rows.Clear() RempliGrid()
Après l'éxecution de la requête mon DataTable.rows.count est le même qu'avant le DELETE.

Merci d'avance
FikoU

16/10/2008, 11h12
tomlev

Vu ta façon de procéder, ce n'est pas la peine d'utiliser un DataAdapter... tu peux faire directement :

Code:

Cl25m_Command.ExecuteNonQuery()

Sinon, il faudrait que tu montres le code de RempliGrid pour qu'on puisse voir où est le problème

Merci Tomlev,
Voici le code de rempligrid :

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
 
Public Sub RempliGrid()
      Dim i As Integer
 
      For i = 0 To Clients_DataTable.Rows.Count() - 1
         dgvClients.Rows.Add(Clients_DataTable.Rows(i).Item("C_NumClient"), _
         Trim(Clients_DataTable.Rows(i).Item("C_RaisonSociale")), _
         IIf(IsDBNull(Clients_DataTable.Rows(i).Item("C_NomClient")), "", Clients_DataTable.Rows(i).Item("C_NomClient")) & " " & _
         IIf(IsDBNull(Clients_DataTable.Rows(i).Item("C_PrenomClient")), "", Clients_DataTable.Rows(i).Item("C_PrenomClient")), _
         IIf(IsDBNull(Clients_DataTable.Rows(i).Item("C_NomResponsable")), "", Clients_DataTable.Rows(i).Item("C_NomResponsable")) & " " & _
         IIf(IsDBNull(Clients_DataTable.Rows(i).Item("C_PrenomResponsable")), "", Clients_DataTable.Rows(i).Item("C_PrenomResponsable")), _
         IIf(IsDBNull(Clients_DataTable.Rows(i).Item("C_Npa")), "", Clients_DataTable.Rows(i).Item("C_Npa")), _
         IIf(IsDBNull(Clients_DataTable.Rows(i).Item("C_Localite")), "", Clients_DataTable.Rows(i).Item("C_Localite")), i)
 
         Select Case Clients_DataTable.Rows(i).Item("C_Couleur")
            Case 1
               dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow
            Case 2
               dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightCoral
            Case 3
               dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            Case 4
               dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightSkyBlue
         End Select
 
      Next
   End Sub

J'ai eesayé un

Code:

Cl25m_Command.ExecuteNonQuery()

mais j'ai le même prob.
FikoU

16/10/2008, 13h34
tomlev

oulala... alors :
1. tu te compliques beaucoup la vie pour rien : pour remplir un DataGridView avec le contenu d'un DataTable, pas la peine de le faire manuellement, il suffit de faire comme ça :

Code:

dgvClients.DataSource = Clients_DataTable

Les modifs dans le DGV seront reportées sur la DataTable, et inversement.

2. le contenu de ta DataTable n'est jamais modifié dans ton code... tu supprimes les lignes de la grille, mais tu ne touches pas au DataTable

Re, :D

Je rempli mon DGV de cette fçon car, et c'est un peu spécial, je repend une organisation manuelle, les fourres des dossiers des clients sont de différentes couleurs (5 couleurs).
Je change le backcolor de la ligne du DGV en fonction de la couleur des fourres actuelles.
Code:

1 2 3 4 5 6 7 8 9 10 11 Select Case Clients_DataTable.Rows(i).Item("C_Couleur") Case 1 dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightYellow Case 2 dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightCoral Case 3 dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen Case 4 dgvClients.Rows(i).DefaultCellStyle.BackColor = Color.LightSkyBlue End Select
Donc je suis obligé de remplir mon DGV de cette façon :question:
FikoU

17/10/2008, 10h06
tomlev

Citation:

Envoyé par fikou

Donc je suis obligé de remplir mon DGV de cette façon :question:

Non, tu peux très bien faire le binding avec le DataSource puis parcourir les lignes pour changer leur couleur...
17/10/2008, 10h11
fikou

salut Tomlev,
Merci pour tes réponses.

La méthode que tu me suggère comporte quand même une boucle, c'est plus rapide que ma méthode :question:

FikoU
17/10/2008, 14h25
tomlev

Citation:

Envoyé par fikou

La méthode que tu me suggère comporte quand même une boucle, c'est plus rapide que ma méthode :question:

Non, mais ça a l'avantage de fonctionner ;)
Par contre, plutôt que de boucler sur toutes les lignes, tu peux gérer l'évènement RowPrePaint pour déterminer la couleur de la ligne. Et dans ce cas là c'est plus rapide
17/10/2008, 15h44
fikou

Re,

Merci , je vais tester tout ça !!!

Connait pas RowPrePaint :oops:
Ici ce n'est pas le cas mais dans une boucle je peut formater les données de certain champs de ma table !!! peut ton définir un format pour une colonne d'un DGV.

FikoU
18/10/2008, 01h51
tomlev

Citation:

Envoyé par fikou

Connait pas RowPrePaint :oops:

Moi non plus :aie:
Mais il suffit de regarder la doc pour en savoir plus ...
http://msdn.microsoft.com/fr-fr/libr...wprepaint.aspx

Citation:

Envoyé par fikou

Ici ce n'est pas le cas mais dans une boucle je peut formater les données de certain champs de ma table !!! peut ton définir un format pour une colonne d'un DGV.

Si tu veux mettre une couleur différente par colonne et non par ligne, dans ce cas RowPrePaint n'est pas vraiment adapté... dans ce cas tu peux le faire colonne par colonne, ou gérer l'évènement CellPainting pour définir la couleur pour chaque cellule.
18/10/2008, 10h50
fikou

Bonjour tomlev,

Tu as dit :
Le contenu de ta DataTable n'est jamais modifié dans ton code... tu supprimes les lignes de la grille, mais tu ne touches pas au DataTable

comment fait on pour rafraichir/réinitialiser le Datatable.

@+FikoU
19/10/2008, 20h25
tomlev

http://dotnet.developpez.com/articles/ado2/vbnet/
20/10/2008, 07h06
fikou

Bonjour,

Jusqu'à mainteneant l'exemple de P. Lasserre me suffisait, mais j'ai compris que cela est plus complexe.

Bon il va falloir adater l'exemple pour Access.
Une petite chose, je n'ai jamais réussi à afficher la console, y à il une astuce ???

@+FikoU
20/10/2008, 08h17
fikou

Re,
J'ai réussi à afficher la console mais la fenêtre se ferme immédiatement, je ne peut rien lire. :oops:

@+FikoU
20/10/2008, 09h38
tomlev

La console ne s'affiche que si c'est une application console
Elle se ferme quand le programme se termine, donc pour avoir le temps de la voir il faut par exemple mettre un Console.ReadLine avant la fin du programme (ça attend que l'utilisateur appuie sur Entrée après avoir éventuellement tapé une ligne de texte)
20/10/2008, 09h44
fikou

Re,
OK ca marche :yaisse2:

Merci
FikoU