rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

[VBA] : Lire un RecordSet

jeate, le mardi 11 avril 2006 à 16:08:20
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 :

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)
Répondre à jeate  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le mercredi 12 avril 2006 à 09:53:40
Salut,

on peut procéder autrement, en parcourant le recordset et en récupérant les valeurs des champs (avec ! indiquant que l'on parle d'un champ)
Dim Rs As Recordset
Dim toto as String
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenTable, dbReadOnly)
Rs.MoveFirst
While Not Rs.EOF
    With Rs
        toto = !champ1
        MsgBox toto & !champ2
    End With
    Rs.MoveNext
Wend
Rs.Close


Ca irait comme ça ?
A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
Répondre à blux

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeate, le mercredi 12 avril 2006 à 11:56:31
Salut blux !

D'abord, merci de bien vouloir m'aider !

Ben écoute, j'ai essayé ta méthode, mais je reçois toujours l'erreur "Invalid argument" à la ligne :

Set Rs = CurrentDb.OpenRecordset("tblEmail", dbOpenDynaset, dbReadOnly)

Pourtant, ma table tblEmail existe et n'est pas vide (elle contient 3 champs dans la colonne Email)

Saurais-tu pk ça plante ?
Répondre à jeate

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
blux, le mercredi 12 avril 2006 à 12:48:20
Si je ne m'abuse, l'option dbOpenDynaset permet d'ouvrir l'objet en modification, ce qui me parait un peu incompatible avec le dbReadOnly...

As-tu essayé avec :
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenSnapshot, dbReadOnly)
?
A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"
Répondre à blux

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
jeate, le mercredi 12 avril 2006 à 12:58:54
Oui, j'avais essayé, bien pensé qd m !

Et je vous remercie de votre aide, c très gentil !

Entre-temps, g fait un peu différemment et g trouvé la solution, la voici :

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
Répondre à jeate

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
badrelimane, le mercredi 9 janvier 2008 à 11:18:59
alors je fait une base de données qui gére un stock mais je trouve des diffuclté
par exemple j'aime crée un bouton qui fait deux opération en mémé temps
il fiat la mis à jours du tableau produit
il fait un adjout dans le tableau opération effectue
aide mois.
merci </code</gras>></gras></gras>
Répondre à badrelimane

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 jeate, le mercredi 9 janvier 2008 à 19:43:16
Salut! Alors je ne comprends pas très bien ta question...

De plus, un bouton qui fait deux choses à la fois, ça me paraît pas très clair comme tu l'as expliqué. Quand tu clique une fois, il fait l'action X et quand tu cliques deux fois, il fait l'action Y par exemple?
Répondre à jeate
Logiciels pertinents trouvés dans les téléchargements
Télécharger VLC 0.8.6iVLC - VLC Media Player est un lecteur multimédia sous capable de lire de nombreux formats audio et vidéo (MPEG-1, MPEG-2, MPEG-4,...Catégorie: Lecteurs vidéo
Licence: Open Source
Télécharger VLC 0.8.6eVLC - VLC media player est un lecteur multimedia capable de lire de nombreux formats audio et vidéo (MPEG-1, MPEG-2, MPEG-4, ...Catégorie: Lecteurs vidéo
Licence: Open Source
Télécharger GOM Player 2.1.9.3754GOM Player - GOM Player est un lecteur vidéo léger et rapide. Tout comme VLC , il inclue déjà la plupart des codecs nécessaires à la...Catégorie: Lecteurs vidéo
Licence: Freeware/gratuit
Télécharger IsoBuster 2.4IsoBuster - IsoBuster est un outil de récupération de CD, DVD, HD-DVD et BD prenant en charge tous les formats et tous leurs système de...Catégorie: Gravure
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [VBA] : Lire un RecordSet »