Posez votre question Signaler

Supprimer élément de listbox dans BDD en VB ? [Résolu]

Hunzimmer 17Messages postés 18 juin 2010Date d'inscription 1 juillet 2010Dernière intervention - Dernière réponse le 18 juin 2010 à 14:22

Bonjour à tous ,
je travaille sur visual basic 2008 et une base de données access 2000
je voudrais savoir comment fait-on pour supprimer un élement qui est dans une listebox et qui se supprime en meme temps dans ma base de donnée
Merci

Supprimer élément de listbox dans BDD en VB »

Suggestions

Supprimer élément de listbox dans BDD en VB ?
Gérer une ListBox VB » Forum
Lire les éléments en ListBox en VB ?? » Forum
Remplir et supprimer éléments listebox VB.net » Forum
Effacer fichier "introuvable" » Forum
Suppression fichiers introuvable » Forum

Plus

Réponse

maff 18 juin 2010 à 09:25

moi je lai fait mais avec une checbox via un formulaire html je te fille mon code peut etre sa tinspirera

$supr=(isset($_POST['supr']));

if($supr==1)
{
$idsupr=$_POST['supr'];
$req="delete from client where id='$idsupr' ";
$del=mysql_query($req);
}

Ajouter un commentaire

Hunzimmer- 18 juin 2010 à 09:33

bha merci quand meme mais j'ai obligé de préciser sur quoi je travailler , je le fais sur visual basic avec une base access

merci quand meme ;)

maff - 18 juin 2010 à 09:34

lol bin tant pissa aidera peut etre certain bonne chance a toi la je peut pas taider

Hunzimmer- 18 juin 2010 à 09:35

oué peut etre Lol
Merci quand meme ;)
bonne journé a toi

Réponse

chrij 72Messages postés 10 juin 2010Date d'inscription 20 mai 2011Dernière intervention 18 juin 2010 à 09:38

Tu veux que ce soit fait en 1 fois ou il peut y avoir deux étapes (1 suppression de la liste + 1 suppression de la bdd) ?

Pour juste le supprimer de la liste, va voir par ici, on y a passé pas mal de temps : http://www.commentcamarche.net/...

Ajouter un commentaire

Afficher les 10 commentaires

Hunzimmer- 18 juin 2010 à 09:40

nan je veux juste choisir un élément dans ma liste et cliquer sur supprimer (un bouton) et qu'il soit supprimer de ma base de données

chrij- 18 juin 2010 à 09:44

Si tu rajoutes une ligne de code pour supprimer dans la base de donnée (DELETE FROM table WHERE ....) à la solution que je t'ai proposé ça devrait le faire.

Hunzimmer- 18 juin 2010 à 09:46

quelle solution ? :S

Hunzimmer- 18 juin 2010 à 09:48

je viens de trouver ce code sur un forum
ques tu en pence ?

Dim C As Integer = ListBox1.SelectedItems.Count
While C <> 0
Dim cmd As SqlCommand
cmd = Maconnexion.CreateCommand
cmd.CommandText = "DELETE FROM dbo.client WHERE nom = " & ListBox1.SelectedItem.ToString & " ; "
MsgBox(cmd.CommandText)
cmd.ExecuteNonQuery()
C = C - 1
Dim I As Integer = ListBox1.SelectedIndex
'ListBox1.SelectedIndices.Remove(I)
ListBox1.Items.RemoveAt(I)
End While
End Sub

chrij- 18 juin 2010 à 09:48

Tu sélectionnes l'élément dans ta liste puis tu le supprime de ta liste (code ici : http://www.commentcamarche.net/...
Tu rajoutes la suppression dans la base de donnée.

Si tu préfères autre chose, on tentera autre chose

Hunzimmer- 18 juin 2010 à 09:52

il faudrait que je mette ce code la dans ma fonction avec la requete delete ?

Private Sub B_Retirer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Retirer.Click
DT.Clear()
For i = LB_ListeMachines.Items.Count - 1 To 0 Step -1
If LB_ListeMachines.GetSelected(i) Then
LB_ListeMachines.Items.RemoveAt(i)
i = i - 1
End If
Next i
End Sub

chrij- 18 juin 2010 à 09:54

oui par exemple.
Si tu as des soucis avec ce code, n'hésite pas à demander

Hunzimmer- 18 juin 2010 à 09:56

mais justement je vois pas à quel endroit je dois mettre la requete :S

chrij- 18 juin 2010 à 10:00

dans le code que je t'ai donné, on a juste la suppression de la listebox (point qui nous a causé pas mal de souci).
Avant (ou après la suppression), tu dois rajouter les instructions pour supprimer l'entrée dans ta liste (connexion à la bdd, choix de base, suppression de l'entrée).
C'est bon ou veux-tu que je détaille un peu plus ?

Hunzimmer- 18 juin 2010 à 10:05

regarde j'ai fais sa , j'ai essayé mais sa le supprime seulement de la liste et pas dans ma base

DT.Clear()
Dim oleDbConnex As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Mes documents\bdd.mdb")
Dim oleCmd As New OleDb.OleDbCommand("Delete * from Joueurs where NomJoueur = '" & LB_Liste.SelectedItem.ToString & "' ", oleDbConnex)
For i = LB_Liste.Items.Count - 1 To 0 Step -1
If LB_Liste.GetSelected(i) Then
LB_Liste.Items.RemoveAt(i)
i = i - 1
End If
Next i

Réponse

chrij 72Messages postés 10 juin 2010Date d'inscription 20 mai 2011Dernière intervention 18 juin 2010 à 10:19

Peux tu tenter ce code là et me dire ce que ça fait ?

Dim LB_Liste As ListBox
        Dim oleDbConnex As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Mes documents\bdd.mdb")
        Dim oleCmd As New OleDb.OleDbCommand()
        oleCmd.Connection = oleDbConnex
        For i = LB_Liste.Items.Count - 1 To 0 Step -1
            If LB_Liste.GetSelected(i) Then
                oleCmd.CommandText = "Delete * from Joueurs where NomJoueur = '" & LB_Liste.Items(i).ToString & "' "
                oleCmd.ExecuteReader()
                LB_Liste.Items.RemoveAt(i)
                i = i - 1
            End If
        Next i

Ajouter un commentaire

Afficher les 17 commentaires

Hunzimmer- 18 juin 2010 à 10:25

j'ai mi le code que tu ma passé , et quand je clique sur mon bouton

dans mon code , il met la ligne en jaune :
For i = LB_Liste.Items.Count - 1 To 0 Step -1

et dit " la référence d'objet n'est pas definie à une instance d'un objet"

chrij- 18 juin 2010 à 10:44

Excuse moi, je t'ai donné une ligne de trop.
Enlève la ligne Dim LB_Liste As ListBox (utilisée pour faire mes tests)

Et pense à corriger les LB_liste en fonction du nom de ta listebox.

Hunzimmer- 18 juin 2010 à 10:48

maintenant il me met cette ligne la en jaune :
oleCmd.ExecuteReader()

et me dit " executereader neccesite une connexion ouverte et disponible.la connexion est actuellement fermé"

chrij- 18 juin 2010 à 10:53

rajoute cela juste avant la boucle For :

oleDbConnex.Open()

Hunzimmer- 18 juin 2010 à 10:55

ah ca marche =)
je te remercie =)

chrij- 18 juin 2010 à 10:56

Si tout est ok, met ton post en résolu.

Hunzimmer- 18 juin 2010 à 11:00

et j'ai un autre probleme , est ce que tu pourai maider stp ;
Donc en faite j'ai une autre listebox et un bouton parcourir et je voudrais selectionner un fichier et qu'il se mette dans la listebox
et re selectionner un autre fichier et qu"il se mette à la suite des autre..

tu comprend ?

Hunzimmer- 18 juin 2010 à 11:03

j'ai sa pour linstant mais mon maitre de stage veut qu'il soit dans une listebox et quon peut en choisir plusieur :

'ouvre une fenetre pour selectionner le fichier à utiliser
Dim dlg As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
Dim fileName As String
If dlg.ShowDialog = DialogResult.OK Then
fileName = dlg.FileName
End If

'endroit où s'affichera le chemin du fichier sélectionné
LB_ListeFichier.Text = dlg.FileName

chrij- 18 juin 2010 à 11:07

If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
ListBox1.Items.Add(FolderBrowserDialog1.SelectedPath)
End If

Hunzimmer- 18 juin 2010 à 11:21

j'ai mi sa

Dim FolderBrowserDialog1 As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
LB_ListeFichier.Items.Add(FolderBrowserDialog1.SelectedPath)
End If

mais il me souligne ce que j'ai souligné et dit comme erreur "selectedPath n'est pas un membre de system.windows.form.openfiledialog"

chrij- 18 juin 2010 à 11:52

Si tu es sous VB 2008, il faut que tu ajoutes à ton "design" (ce que tu vas voir), un composant appelé "OpenFileDialog".
Tu ne dois pas l'initialiser dans la fonction.
Donc pas de : Dim FolderBrowserDialog1 As System.Windows.Forms.Open...

Hunzimmer- 18 juin 2010 à 11:53

comment je dois faire alors ? :S

Hunzimmer- 18 juin 2010 à 11:54

parce que si je le met pas il me dit a chaque fois que "FolderBrowserDialog1" n'est pas déclarer

chrij- 18 juin 2010 à 11:59

Je pars du principe que tu es sous VB 2008.
Tu vas sur ton design, tu choisis un FolderBrowserDialog (et non openfiledialog comme dit précédemment) dans ta boîte à outils (le pavé avec tout les contrôles, boutons...) et tu le glisse sur ton design.
Pense à vérifier comment il se nomme.

Tu mets les 3 lignes de code que je t'ai donné plus haut au niveau du bouton qui affichera l'explorateur de fichier pour choisir un fichier dont le nom s'ajoutera à la liste.

Hunzimmer- 18 juin 2010 à 13:28

ah mais cest pour choisir un dossier , moi c'est des fichiers qu'il me faudrait

Hunzimmer- 18 juin 2010 à 14:01

moi il faudrait que je puisse selectionner un fichier et m'afficher le nom , lextension et son chemin d'acces complet

Hunzimmer- 18 juin 2010 à 14:22

c'est bon j'ai trouver lol
cest ".FileName"
Merci pour tout
++

Réponse

Hunzimmer 17Messages postés 18 juin 2010Date d'inscription 1 juillet 2010Dernière intervention 18 juin 2010 à 11:02

VOIla la solution pour supprimer un element dans une listebox dans une base de données access :

Dim oleDbConnex As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Mes documents\bdd.mdb")
Dim oleCmd As New OleDb.OleDbCommand()
oleCmd.Connection = oleDbConnex
oleDbConnex.Open()
For i = LB_Liste.Items.Count - 1 To 0 Step -1
If LB_Liste.GetSelected(i) Then
oleCmd.CommandText = "Delete * from Joueurs where NomJoueur = '" & LB_Liste.Items(i).ToString & "' "
oleCmd.ExecuteReader()
LB_Liste.Items.RemoveAt(i)
i = i - 1
End If
Next i

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

Supprimer élément de listbox dans BDD en VB ? [Résolu]

Supprimer élément de listbox dans BDD en VB »

Passage au tout numérique : quel coût pour les particuliers ?