Vider une db par DataSet et Dataadapter

narfight Messages postés 129 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 4 mars 2010 - 28 févr. 2008 à 15:39
narfight Messages postés 129 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 4 mars 2010 - 29 févr. 2008 à 09:24
Bonjour,
J'essays de vider ma DB avec ce code :
<hr size="2" width="100%" />        ObjetDataSet_97.Tables("Users").Rows.Clear()
        Conex_97.Open()
        ObjetDataAdapter_97.DeleteCommand = Commande_97.GetDeleteCommand()
        Dim nbr = ObjetDataAdapter_97.Update(ObjetDataSet_97, "Users")
        Conex_97.Close()
<hr size="2" width="100%" />Mon DataSet (qui est lié a un datagridview) est bien vidé mais la DB Access n'est pas vidée.

Pouvez-vous m'aider à identifier le probléme ?

1 réponse

narfight Messages postés 129 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 4 mars 2010
29 févr. 2008 à 09:24
J'arrive a faire ainsi mais je suis persuadé qu'il a moyen de vraiment optimiser le truc :
<hr size="2" width="100%" />        For index As Integer = 1 To ObjetDataSet_97.Tables("Users").Rows.Count - 1
            ObjetDataSet_97.Tables("Users").Rows(index).Delete()
        Next
        Conex_97.Open()
        ObjetDataAdapter_97.DeleteCommand = Commande_97.GetDeleteCommand()
        Dim nbr = ObjetDataAdapter_97.Update(ObjetDataSet_97, "Users")
        Conex_97.Close()
<hr size="2" width="100%" />car pour 100.000 supression, il prend un temps de fous (plusieurs minutes)

Merci d'avance,
JP
0
Rejoignez-nous