[VBA-A]GetString

Bonjour,

J'aimerais prendre les éléments de mon recordSet et les mettre dans une string et c'est pour ça que j'utilise la méthode GetString mais cela ne marche pas. Qqn pourrait me dire pk ou me conseiller une autre méthode ?

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function EmailToSend_Click() Set cdb = CurrentDb() Dim SqlSelectRecepients As String   SqlSelectRecepients = "SELECT myTableId.mySpalteEmail FROM myTableId;" Set rst_SqlSelectRecepients = cdb.OpenRecordset(SqlSelectRecepients)   ' ERREUR ICI : "cet objet ne gère pas cette propriété" txt = rst_SqlSelectRecepients.GetString(adClipString)

---

slt

Citation:

---

Envoyé par jeate

SqlSelectRecepients = "SELECT myTableId.mySpalteEmail FROM myTableId;"
Set rst_SqlSelectRecepients = cdb.OpenRecordset(SqlSelectRecepients)

' ERREUR ICI : "cet objet ne gère pas cette propriété"
txt = rst_SqlSelectRecepients.GetString(adClipString)

---

essaye comme ça :

Code:

---

txt = rst_SqlSelectRecepients!champQueTuVeuxajouter

---

le problème c'est que ça t'affichera le dernier enregistrement du champ sélectionné... A moins que ta requête ne renvoie qu'une seule valeur :?

Salut !

Je te remercie de m'avoir répondu si vite !

Mais j'ai essayé et le déboggueur me met à la variable txt "Item not found in this collection" et je suis sûr que ma requête est juste et qu'il y a des données dans la table !

Tu saurais pk ça marche pas ?

est-ce que le champ que tu veux récupérer est bien écrit dans ta requête?

fait péter ta fonction currentDb()

Oui, j'ai vérifié 10 fois, ne t'inquiète pas ! :)

Moi aussi, je ne comprends pas pk ça plante.

Et en fait, je voudrais TOUS les enregistrements car c'est pour faire une liste d'envoi (pour envoyer un email).

Et je suis obligé d'avoir currentDb, sinon g une erreur "objet requis" dans mon recordSet.

Bon, je vais essayer peut-être encore qqch là... Je reviendrai plus tard pour voir si t'aurais pu m'aider entre-temps... :)

Merci déjà pour ton aide !

essaye tout ça: ça marche pour moi :lol:

Dans un module

Code:

---

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 28 29 30 31 32 33 34 35 36 37 38 39

Public Function InitConnection(DSN As String, UserName As String, PassWord As String) As Boolean   'Déclaration des variables locales Dim strInput As String   InitConnection = False   'Initialisation de la chaine de connexion cnnADO.ConnectionString = "DSN=nomDataBase;"   'Vérifie que la connexion est bien fermée If cnnADO.State = adStateOpen Then cnnADO.Close End If   'Connexion à la base de données cnnADO.Open cnxString, GTI, GTI, adSyncConnect   'Attente que la connexion soit établie While (cnnADO.State = adStateConnecting) DoEvents Wend   'Vérification des erreurs dans le cas d'une mauvaise connexion If cnnADO.Errors.Count > 0 Then   'Affichage des erreurs MsgBox cnnADO.Errors.Item(0) InitConnection = False Exit Function   Else InitConnection = True End If   cmdADO.ActiveConnection = cnnADO   End Function

---

dans ta fonction EmailToSend_Click()

Code:

---

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 28 29 30 31 32 33

Public Function EmailToSend_Click()   call initConnection("DSN", "userName", "passWord")   'on effectue la requête sql cmdADO.CommandText = "SELECT champs FROM tables"   'Configurer le recordset 'si le recordset est déjà ouvert on le ferme If rsADO.State = adStateOpen Then rsADO.Close End If 'Curseur client rsADO.CursorLocation = adUseClient 'curseur dynamique rsADO.CursorType = adOpenDynamic 'on verrouille l'enregistrement des accès dans la source de données rsADO.LockType = adLockPessimistic   'ouverture du recordset rsADO.Open cmdADO   'Faire jusqu'à la fin du recorset Do Until rsADO.EOF   txt = txt & rsADO!NomDuChamps & chr(13) & chr(10) 'on passe à l'enreg suivant rsADO.moveNext Loop   ...

---

Hello!
Et si tu remplaces ta ligne

Code:

---

txt = rst_SqlSelectRecepients.GetString(adClipString)

---

par

Code:

---

1 2 3 4 5 6 7 8 9

Dim txt() As String If Not rst_SqlSelectRecepients.EOF and NOT rst_SqlSelectRecepients.BOF Then rst_SqlSelectRecepients.MoveFirst i = 0 While Not rst_SqlSelectRecepients.BOF txt(i) = Cstr(rst_SqlSelectRecepients(0)) i = i + 1 Wend End If

---

C'est pas testé, mais ça devrait aller.

je ne sais pas si je vois mal mais tu essais d'atteindre un champ que tu n'as pas selectionner.

Citation:

---

Envoyé par jeate

Public Function EmailToSend_Click()
Set cdb = CurrentDb()
Dim SqlSelectRecepients As String

SqlSelectRecepients = "SELECT myTableId.mySpalteEmail FROM myTableId;"
Set rst_SqlSelectRecepients = cdb.OpenRecordset(SqlSelectRecepients)

' ERREUR ICI : "cet objet ne gère pas cette propriété"
txt = rst_SqlSelectRecepients.GetString(adClipString)

---

ta requette tu ne fait la selection que sur le champ mySpalteEmail. Si tu voudrais avoir acces a l'autre champs tu devrais aussi l'ajouter dans ta requette. Et ca te donnerais un truc du genre :

Code:

---

1 2 3 4 5

SqlSelectRecepients = "SELECT myTableId.mySpalteEmail,myTableId.adClipString FROM myTableId;" Set rst_SqlSelectRecepients = cdb.OpenRecordset(SqlSelectRecepients)   'en supposant que [b]adClipString[/b] est aussi dans la table [b]myTableId[/b]

---

Avec ca ca devrais aller.

Citation:

---

Envoyé par sovo

je ne sais pas si je vois mal mais tu essais d'atteindre un champ que tu n'as pas selectionner.

ta requette tu ne fait la selection que sur le champ mySpalteEmail. Si tu voudrais avoir acces a l'autre champs tu devrais aussi l'ajouter dans ta requette. Et ca te donnerais un truc du genre :
[/code]

---

Exact, :bravo:
j'avais pas fait gaffe que notre cher ami jeate n'avait pas mis le champ qu'il voulait dans sa requête... :oops:

Bonjour à tous !

Je vous remercie de votre aide, c'est très gentil.

Alors, pour le fonction "Public Function InitConnection" de Asdorve, ça ne marchait pas car il ne trouvait pas l'objet cnnADO.ConnectionString = "DSN=GTI;"

Quant à la soluce de Megaxel, elle ne marchait pas à cause de l'indice (mais c possible que c parce qu'il n'y avait PEUT-ETRE pas de champs)

Quant à sovo, alors l'argument adClipString est nécessaire avec la fonction GetString (selon Aide d'Access : StringFormat Valeur StringFormatEnum qui spécifie de quelle manière l'objet Recordset doit être converti en chaîne. Les paramètres RowDelimiter, ColumnDelimiter et NullExpr ne sont utilisés que si StringFormat est égal à adClipString.)

Malgré tout, g trouvé la solution et la voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Commande53_Click()   Set cdb = CurrentDb() Dim SqlSelectRecepients As String Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.CreateItem(0)   SqlSelectRecepients = "SELECT tblEmail.Email FROM tblEmail;" Set rst_SqlSelectRecepients = cdb.OpenRecordset(SqlSelectRecepients)   Do Until rst_SqlSelectRecepients.EOF 'Reihe auslesen myEmail = rst_SqlSelectRecepients!Email MonMessage.To = MonMessage.To + " " & myEmail & ", " rst_SqlSelectRecepients.MoveNext Loop rst_SqlSelectRecepients.Close   MonMessage.Subject = "Refeering" MonMessage.Display Set MonOutlook = Nothing End Sub

---

NORMAL que DSN= "GTI" ne fonctionne pas, c'est le nom de ma base :oops: ...

Maintenant je vois que dans ta solution tu reprends des choses citées plus haut.
bonne continuation à toi; :wink:

Pense, si ce n'est fait, à la balise "Résolu"...

mdr Ah merde, j'avais pas compris !!! Alala ! lol

Et elle est où cette balise "résolue" alors ?

en bas, tu as deux boutons: résolu et délestage...

Super, c fait ! :))

Bonne journée à vous tous et merci encore !