Discussion :

[azzouz_soui]

Bonsoir,
Dans une application en vb6 et base données acess composée de plusieurs tables je veux supprimer des enregistrements dont la date est inférieure à celle saisie par l'utilisateur.
Pour cela j'ai crée une form avec textbox et bouton command.
Le champs date_consultation dans la table patient est multiline et peut contenir plusieurs dates.( ex:01/01/1994,25/12/1995,30/01/1997).

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
Private Sub Command1_Click()
rs.MoveFirst
        Do While Not rs.EOF
            If Trim(rs!Date_Consultation) < Trim(Text1.Text) Then
               h = MsgBox("voulez vous vraiment supprimer cet           enregistrement", vbYesNo, Suppression)
               If h = vbYes Then
               rs.Delete
                    MsgBox ("suppression effectuée avec succes"), vbInformation, "Suppression"
 
                    Exit Sub
                    End If
                    End If
            rs.MoveNext
         Loop
End Sub

merci d'avance

[OhMonBato]

Et la question est ?

[azzouz_soui]

Bonsoir,
merci ohmonbato.
la question est: le code passe sans erreur mais rien n'est supprime.
salutations.

[OhMonBato]

Faut pas faire un update du recordset après avoir effacé ?

[ucfoutu]

Bonjour,

et ne pas oublier (si le champ est de type date... et... de quel format ?) que ce qui vient de la textbox est de type string ....(et ... du même format ?)

et puis j' "aime" bien le

Code :

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

Exit Sub

qui fera que le premier article correspondant rencontré arrêtera tout (pas d'examen des autres articles) ===>> vachement pratique ...!

EDIT : on pourra trouver préférable :
- de constituer un recorset des articles répondant à ce critère
- de les dérouler (par movenext) un par un pour obtenir la confirmation de suppression
- de le faire par une boîte de dialogue permettant l'abandon général (on ne sait jamais... imaginons que 1000 articles soient sélectionnés et que l'utilisateur soit appelé par son chef... au milieu de son travail)
- de supprimer si conformation.

[admnico]

Je propose une méthode scolaire en espèrant que sa marche dans ton cadre
Pourquoi ne pas utiliser une requête plutot qu'un curseur??
Cela donnerait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Command1_Click()
 
     'il me semble que c'est # pour les date dans access
     sql = "delete from table where date < #" & textbox.text & "#;"
 
     h = MsgBox("voulez vous vraiment supprimer cet enregistrement",          vbYesNo, Suppression)
     If h = vbYes Then
               'cnx c'est ta chaine de connexion
               cnx.execute sql
     end if
 
End Sub

[azzouz_soui]

Bonjour,
Apres avoir essayer les 2 codes le probleme persiste toujours,rien n'est efface.
j'attends toujours vos aides.
merci
1er code :admnico.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
   'il me semble que c'est # pour les date dans access
     SQL = "delete from patient where date_consultation < #" & Text1.Text & "#;"
     h = MsgBox("voulez vous vraiment supprimer cet enregistrement", vbYesNo, Suppression)
     If h = vbYes Then
               'cnx c'est ta chaine de connexion
               X.Execute SQL
     End If
     Text1.Text = " "
     Text1.SetFocus
 End Sub

2eme code.

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
Private Sub Command1_Click()
rs.MoveFirst
        Do While Not rs.EOF
            If Trim(rs!date_consultation) < Trim(Text1.Text) Then
                    h = MsgBox("voulez vous vraiment supprimer cet enregistrement", vbYesNo, Suppression)
                    If h = vbYes Then
                    rs.Delete
                    Adodc1.Recordset.Delete
                    MsgBox ("suppression effectuée avec succes"), vbInformation, "Suppression"
                    Exit Sub
                    End If
                    End If
            rs.MoveNext
         Loop
  End Sub

salutations.

[ucfoutu]

Ton problème est là :

Le champs date_consultation dans la table patient est multiline et peut contenir plusieurs dates.( ex:01/01/1994,25/12/1995,30/01/1997).

1) de quel type est ce champ, très exactement ?
2) s'il contient donc plusieurs dates, laquelle doit être retenue comme critère ?
Suffit-il de l'une seule d'entre elles ?
Faut-il que toutes les dates correspondent à ton critère ?
Tout celà est pour l'instant fort vague ...
Il me semble que, dans tous les cas, il faudra passer par une boucle....

EDIT : une question subsidiaire (vu que tu ne nous en as pas parlé : avec le code N°3 ; obtiens-tu au moins l'affichage de ta msgbox ???

[azzouz_soui]

Bonjour,
Merci ucfoutu pour la rapidité de la réponse.
effectivement le champs est de format date (jj/m/aaaa) et contient plusieurs dates et sont classées par ordre chronologique.
ce que je veux c'est la dernière date c.a.d la plus grande valeur du champs date _consultation.
merciiiiiiiiiiiiiii

[ucfoutu]

Ton problème est là :


1) de quel type est ce champ, très exactement ?

EDIT : une question subsidiaire (vu que tu ne nous en as pas parlé : avec le code N°3 ; obtiens-tu au moins l'affichage de ta msgbox ???

et ces deux points ? (réponses essentielles !)

[azzouz_soui]

Rebonjour,
Le champs est de type texte.
aucun message msgbox.
merci