Bonsoir tout le monde
Je vous remercie de m'acceuillir sur ce forum.
Je suis débutant dans le dévellopement de base de données avec Visual Basic,j'ai lu des tutoraux qui
J'ai créé un table qui s'appelle Email.
J'ai mis 6 champs (Destinataire,id,messag,date,objet,expéditeur,heure).
J'ai réalisée 2 form une qui enregistre et l'autre qui visualise les données enregitrés.
L'orsque j'ouvre la form qui visualise les données, il ya un message d'erreur,"Impossible de trouver l'objet dans la collection correspondant au nom ou à la référance ordinale demandé", en selectionnant la premiere ligne ReadRecord.
Je ne comprend pas ce message d'erreur.
Option Explicit
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstx 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
ReadRecord
rst.Source = "select Text2 , Text1 , Text3 ,Text4,Text5,Text6 from EMAIL destinataire, objet,messag,date,heure,id;"
End Sub
Private Sub ReadRecord()
Text1.Text = GetValue(rst!messag)
Text2.Text = GetValue(rst!destinataire)
Text3.Text = GetValue(rst!objet)
Text4.Text = GetValue(rst!id)
Text5.Text = GetValue(rst!date)
Text6.Text = GetValue(rst!heure)
End Sub
Private Function GetValue(fld As String) As String
If IsNull(fld) Then
GetValue = ""
Else
GetValue = fld
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
cnx.Close
End Sub
Que me conseillez vous?
Pourriez vous me dire où puis je trouver des livres qui traite bien ce sujet?
Mercie
Cordiallement
A bientôt