Probleme pour afficher les données enregistré dans ma table access avec ADO en i [Résolu]

Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
- - Dernière réponse : developvbdebut
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
- 9 avril 2005 à 08:21
Bonsoir tout le monde

J'ai un probleme assé bisar dans mon projet j'arrive a voire les données
enregistrer mais apres empactage et intallation sur mon ordinateur je ne peut pas
acceder au données enregistrer.

Voic mon code ci dessous

Private Sub Form_Load()


Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset



cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoyé.mdb"
cnx.Open



cmado.ActiveConnection = cnx



rst.Open "SELECT * FROM EMAIL", cnx


rst.Filter = "[destinataire]='Text2'"


rst.Find "[destinataire]='Text2'"


rst.Close



End Sub

Que faut t'il que je face pour iremedier svp?

Cordiallement

A bientôt
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
3
Merci
Bonjour tout le monde

D'apres me recherche il faut que que face un UDAPTE donc je vais voire ce
que je peux faire comme code.

Je reviendré ci j'ai des problème

Cordiallement

A bientôt

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 194 internautes nous ont dit merci ce mois-ci

Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
0
Merci
bonjour tout le monde

Voici mon code complet

J'ai essayé de resoudre le problement par moi même, mais je n'yarrive pas.

Comme je les dit au par avant, je veux simplement recupéré les données que
j'ai enregistré dans avec une autre form..

Option Explicit
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmado As New ADODB.Command
Public serveur As String
Private nextSend As Boolean

Private Sub Form_Load()

Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset



cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoyé.mdb"
cnx.Open

rst.CursorLocation = adUseClient


rst.CursorType = adOpenDynamic


rst.LockType = adLockOptimistic

rst.Filter = "[destinataire]='Text2'"


rst.Open "SELECT * FROM EMAIL", cnx

rst.Edit
rst("destinataire") = Text2
rst("objet") = Text3
rst("messag") = Text1
rst("Date") = Text5
rst("Time") = Text6
rst.Close

End Sub

Quand penssez vous?

Merci

Cordiallement

A bientôt