Qui peut me traduire ce code?

**zidane22** · 03/08/2013, 03h14

Bonjour,
Bonjour,
Je cherche un code qui me permet de faire sortir dans un textbox les noms des patients qui ont un rendez-vous aujourd'hui. Sachant que ma table contient les champs suivants : ( nom - prénom - âge - rendez-vous)

Je cherche un code comme ça :

Code :

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

1
2
3
4
5
Set RS = New ADODB.Recordset
RS.Open "select * from patient where (nom) correspond a la date d'aujourd'hui dans le champ (rendez-vous), DB, adOpenStatic, adLockOptimistic
       If RS.RecordCount > 0 Then
    Text1.text = patients dont le rendez-vous est aujourd'hui.
End Sub

merci

**sevyc64** · 03/08/2013, 09h38

Il te faut une requete du type select * from patient where [rendez-vous]= DateDuJourLe problème étant d'avoir la notion DateDuJour de forme correcte.

Sur quel type de base travaille-tu ?

Le champ Rendez-vous est de quel type dans ta base ?

**ProgElecT** · 03/08/2013, 09h39

Salut

Informations complémentaires,
FAQ Visual Basic
En s'inspirant de Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ?
Le code pourrait ressembler a

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Msg
rs.Open "SELECT nom, prénom from patient WHERE (rendez-vous = #" & Format(dateSaisie, "mm/dd/yyyy") & "#)", DB, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
    Do While Not rs.EOF
        If Msg <> "" Then Msg = Msg & ", " '& vbNewLine
        Msg = Msg & rs.Fields("nom") & " " & rs.Fields("prénom")
        rs.MoveNext
    Loop
    Text1.Text = Msg
 
    Else
    Text1.Text = "Pas de rendez vous aujoud'hui"
End If
rs.Close

**zidane22** · 03/08/2013, 20h15

Envoyé par sevyc64

Il te faut une requete du type select * from patient where [rendez-vous]= DateDuJourLe problème étant d'avoir la notion DateDuJour de forme correcte.

Sur quel type de base travaille-tu ?

Le champ Rendez-vous est de quel type dans ta base ?

merci de votre réponse
je travaille sur Microsoft Office Access Database (.mdb)
Le champ Rendez-vous est de type text mais je peux le changer au type date.

**zidane22** · 03/08/2013, 20h22

Envoyé par ProgElecT

Salut

Informations complémentaires,
FAQ Visual Basic
En s'inspirant de Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ?
Le code pourrait ressembler a

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Msg
rs.Open "SELECT nom, prénom from patient WHERE (rendez-vous = #" & Format(dateSaisie, "mm/dd/yyyy") & "#)", DB, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
    Do While Not rs.EOF
        If Msg <> "" Then Msg = Msg & ", " '& vbNewLine
        Msg = Msg & rs.Fields("nom") & " " & rs.Fields("prénom")
        rs.MoveNext
    Loop
    Text1.Text = Msg
 
    Else
    Text1.Text = "Pas de rendez vous aujoud'hui"
End If
rs.Close

Merci infiniment Mr ProgElecT de votre aide
Mais malheureusement ce code a envoyé des erreurs de syntaxe aussi bien que (dateSaisie) variable not defined.
merci encore de votre souci

**ProgElecT** · 03/08/2013, 22h08

Pour utiliser cette requête SQL, il est impératif que le champs rendez-vous soit de type date/time
dateSaisie était l'exemple proposé dans la FAQ.
dateSaisie pourrait être la variable implémenté par l'utilisateur du programme pour retrouver/savoir quel rendez vous pour un jours autre que la date du jour.
Tu peux le remplacer par Date (renvoie la date système en cours) puisque le but est d'avoir les rendez vous du jour.

Code :

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

rs.Open "SELECT nom, [prénom] from patient WHERE ([rendez-vous] = #" & Format(Date, "mm/dd/yyyy") & "#)", DB, adOpenStatic, adLockOptimistic

Tu peux remarquer que prénom et rendez-vous sont entre crochets car il contiennent tout les 2 des caractères (é et -) qu'il faut indiquer au moteur jet comme des caractères littéraux.
Pour ma part je préconise de toujours éviter d'utiliser les caractères accentués et opérationnels dans les noms de champs d'une table de BD, le seul signe ne posant pas de problème est le signe _ .

**sevyc64** · 03/08/2013, 22h22

si tu garde le champ au format texte, tu peux utilisé la requete donnée par ProgElecT en supprimant les # encadrant la date mise en texte.

Je confirme ce que dis ProgElecT concernant le nom des champs. Généralement on évite les caractères accentués, les caractères exotiques, de ponctuation ou d'opération, les espaces. Et moi, personellement, j'évite aussi le _

Et je confirme pour le type d'un champ date aussi, il est vivement recommandé de toujours l'avoir en format Date plutot que string, ça évite bien des problèmes et des manipulations surtout lorsqu'il faut y faire des calculs dessus.

Malheureusement, stocker une date sous forme de texte est une habitude encore largement répandue (et parfois même enseignée).

**zidane22** · 04/08/2013, 00h46

Je vous remercie beaucoup messieurs.
J'ai pris en considération vos suggestions concernant les caractères accentués (nom, prenom,rendez) et le format du champ (rendez-vous) qui est devenu de type date.
j'ai essayé le code de Mr ProgElecT mais il m'a envoyé ce message d'érreu:
erreur 3265
Impossible de trouver l'objet dans la collection correspondant au nom ou a la référence ordinale demandé.
J'ai supprimé une patrtie du code et ça marché tres bien:

Code :

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

 Msg = Msg & rs.Fields("nom")

mais j'aimerai bien avoir le nom et le prenom
merci encore mille fois

**sevyc64** · 04/08/2013, 11h04

Soit tu a enlevé le champ nom de ton select, il n'est donc pas retourné dans les résultats, soit tu n'utilise pas exactement le nom du champ tel qu'il est enregistré dans la base (et donc retourné dans les résultats)

**zidane22** · 04/08/2013, 12h38

Oh Merci beaucoup messieurs
Vous etes tres genereux
c'est résolu
Il reste a savoir s'il est possible de faire numéroter les lignes dans la textbox.
Cordialement

**sevyc64** · 04/08/2013, 14h05

Il te suffit de mettre un compteur dans la boucle :

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
Dim Msg
Dim i
rs.Open "SELECT nom, prénom from patient WHERE (rendez-vous = #" & Format(dateSaisie, "mm/dd/yyyy") & "#)", DB, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
    i = 1
    Do While Not rs.EOF
        If Msg <> "" Then Msg = Msg & ", " '& vbNewLine
        Msg = Msg & i & " " & rs.Fields("nom") & " " & rs.Fields("prénom")
        rs.MoveNext
	i = i + 1
    Loop
    Text1.Text = Msg
 
    Else
    Text1.Text = "Pas de rendez vous aujoud'hui"
End If
rs.Close

**zidane22** · 04/08/2013, 15h01

Merci pour la réponse
Voici mon code que j'ai copié de mon application:

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
 
Dim Msg
Dim i
Set RS = New ADODB.Recordset
RS.Open "SELECT nom, prenom from patient WHERE (rendez= #" & Format(Date, "mm/dd/yyyy") & "#)", DB, adOpenStatic, adLockOptimistic
If Not RS.EOF Then
i = 1
    Do While Not RS.EOF
        If Msg <> "" Then Msg = Msg & vbNewLine
        Msg = Msg & RS.Fields("nom") & " " & RS.Fields("prenom")
        RS.MoveNext
        i = i + 1
    Loop
    Text1.Text = Msg
 
    Else
 
     Text1.Text = "Pas de rendez vous aujoud'hui"
 
End If
 
RS.Close
 
End Sub