Probleme pour afficher les données enregistré dans ma table access avec ADO en i
Résolu
developvbdebut
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
-
7 avril 2005 à 22:33
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
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
2 réponses
developvbdebut
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
9 avril 2005 à 08:21
9 avril 2005 à 08:21
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
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
developvbdebut
Messages postés
476
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
2 juin 2012
1
8 avril 2005 à 08:12
8 avril 2005 à 08:12
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
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