Bonsoir tout le monde
Je suis en trein de réaliser ma premiere base de données avec VB et ACCESS
XP.
Je souhaiterais faire des enregistrements à partir d'une table vide
Voici le non de ma table est: email
J'ai étudié des tuto et des livres, mais je désirerais un petit coup de main pour finir ce que j'ai commencé seul.
voici mon code ci dessous
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim bdmessag As New ADODB.Command
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
If envoi And (Check1.Value = 1) Then
rst.Source = "select txtto, txtfrom, rtxmessag, objet from EMAIL destinataire,expéditeur, objet, messag"
Pourriez vous svp me dire où y a til une erreur et ce qu'il manque ?
Je vous en remercie d'avance.
Cordiallement
A bientôt