Discussion :

[lepiou]

Salut a tous,

Je met mon recordset dans une variable pour ensuite l'afficher et lors de l'affichage (msgbox) rien n'apparait alors que la requete renvoie bien des valeurs :

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
 
Private Sub CmdValider_Click()
Dim connexion As ADODB.Connection
Dim rs As ADODB.Recordset
Dim destinataire As String
Set connexion = New ADODB.Connection
' Mode d'utilisation
    connexion.CursorLocation = adUseClient
    connexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                                    & "SERVER=192.168.0.30;" _
                                    & "DATABASE=loisirsenliberte;" _
                                    & "UID=root;" _
                                    & "PWD=passroot;" _
                                    & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
' Ouvrir la connexion
    connexion.Open
' Crée une référence pour une Recordset
Set rs = New ADODB.Recordset
    rs.Open "SELECT EmailParent FROM parent;", connexion, adOpenKeyset, adLockBatchOptimistic
    destinataire = rs!EmailParent
    MsgBox destinataire
 
Shell ("C:/Program Files/Outlook Express/msimn.exe /mailurl:mailto:" & destinataire & "?subject=" & TxtSujet.Text & "&Body=" & TxtText.Text & ""), 3
End SubPrivate Sub CmdValider_Click()

Preuve que la requete renvoie bien des valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
mysql> select emailparent from parent;
+---------------------+
| emailparent         |
+---------------------+
| NULL                |
| NULL                |
| nono.cha@wanadoo.fr |
| huhu@haha.fr        |
+---------------------+
4 rows in set (0.00 sec)

Pourquoi j'ai rien dans mon msgbox alors ?

Merci

[jimbololo]

salu lepiou,

la première valeur de ta requête est null donc c'est normal que ta msgbox ne renvoit pa de valeur ! essaye d'intégrer ta msgbox dans une boucle pour voir

[lepiou]

En effet ca renvoie une valeur (sur les deux) quand je vire les parents n'ayant pas d'adresse email.

[jimbololo]

oui car ton recordset n'envoie qu'une seule valeur a la fois, il faut donc que tu parcours tous les résultats pour pouvoir tous les afficher.

[lepiou]

Ok mais pour afficher le second ?

[Vesta]

Code :

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

recordset.Movenext

[Vesta]

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
Private Sub CmdValider_Click()
Dim connexion As ADODB.Connection
Dim rs As ADODB.Recordset
Dim destinataire As String
Set connexion = New ADODB.Connection
' Mode d'utilisation
    connexion.CursorLocation = adUseClient
    connexion.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                                    & "SERVER=192.168.0.30;" _
                                    & "DATABASE=loisirsenliberte;" _
                                    & "UID=root;" _
                                    & "PWD=passroot;" _
                                    & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
' Ouvrir la connexion
    connexion.Open
' Crée une référence pour une Recordset
Set rs = New ADODB.Recordset

    rs.Open "SELECT EmailParent FROM parent;", connexion, adOpenKeyset, adLockBatchOptimistic
do while not (rs.eof)
    destinataire = rs!EmailParent
    MsgBox destinataire
    rs.movenext
loop
Shell ("C:/Program Files/Outlook Express/msimn.exe /mailurl:mailto:" _
& destinataire & "?subject=" & TxtSujet.Text & "&Body=" & TxtText.Text & ""), 3
End SubPrivate Sub CmdValider_Click()

[jimbololo]

je pense que tu devrai utiliser une boucle tant que ta requete n'est pa finie (avec l'instruction .EOF), tu affiche la valeur et ce jusqu'a ce que ta requete se termine.

je sai pa si tu voi se que je veu dire !

[jimbololo]

voila vesta a mieux détaillé ce que je voulai te dire !

bisou pioupiou !!

[lepiou]

c'est tout a fait ce que je voulais c'est tres clair, merci a vous deux

bisous jimmy

[Vesta]

Un petit résolu quand ca marche?

Merci