Discussion :

[fikou]

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 :

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

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

[tomlev]

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

Code :

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

Cl25m_Command.ExecuteNonQuery()

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

[fikou]

Merci Tomlev,
Voici le code de rempligrid :

Code :

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

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 :

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

Cl25m_Command.ExecuteNonQuery()

mais j'ai le même prob.
FikoU

[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 :

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

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

[fikou]

Re,

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 :

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

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
FikoU

[tomlev]

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

Non, tu peux très bien faire le binding avec le DataSource puis parcourir les lignes pour changer leur couleur...