problème apres empactage pour afficher mes données enregitré (S.O.S)

Question

Bonjour tout le monde

Je pens&#233; pens&#233; avoir fini mon prog, vb ne lanc&#233; aucune erreur.

Ce prog contien deux formulaire + ADO et un base access
un formulaire pour enregistrer les donn&#233;es
un formulaire pour afficher les donnn&#233;es.

Mais ma joie fut un fosse joie.

J'ai un probleme, mais j'ignore d'o&#249; il vient, quand j'ai d'empacter et et installer mon
prog sur mon ordinateur, je ne peu pas voire les donn&#233;es qui son enregitr&#233;.

Pourtant elle sont bien dans l&#224; table, le formulaire pour enregistrer les don&#233;es
fonctionne tres bien.

Je pense qu'il manque quelque chose mai j'ignore quoi.

Voici mon code:

Option Explicit
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmado As New ADODB.Command

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&#233;.mdb"
cnx.Open


cmado.ActiveConnection = cnx


rst.CursorLocation = adUseClient


rst.CursorType = adOpenDynamic


rst.LockType = adLockOptimistic

 rst.Open "select distinct email.num&#233;roemail, email.date, email.Time, email.destinataire, email.objet, email.messag from email order by email.num&#233;roemail;", cnx


suivant.Enabled = Not Adodc1.Recordset.EOF
    
auparavant.Enabled = Not Adodc1.Recordset.BOF


Text4.Text = Adodc1.Recordset.RecordCount


If Text4 = 0 Then
 
MsgBox ("Aucune donn&#233;es entr&#233;e pour le moment")

Else


Text2.Text = rst!Date
Text3.Text = rst!Time
Text6.Text = rst!destinataire
Text5.Text = rst!messag
Text1.Text = rst!objet
Text7.Text = rst!num&#233;roemail


Me.Refresh


rst.MoveNext


End If


End Sub

Pouvez vous m'aider?

Mercie d'avance.

Cordiallement

A bient&#244;t

developvbdebut · Answer

Bonsoir tout le monde

J'ai modifi&#233; mon code

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&#233;.mdb" 
cnx.Open 

cmado.ActiveConnection = cnx 

rst.CursorLocation = adUseClient 

rst.CursorType = adOpenDynamic 

rst.LockType = adLockOptimistic 

rst.Filter = "[numeroemail]='" & Text7.Text & "'" 

rst.Open "select * from email", cnx 

suivant.Enabled = Not Adodc1.Recordset.EOF 
    
auparavant.Enabled = Not Adodc1.Recordset.BOF 

Text4.Text = Adodc1.Recordset.RecordCount 

If Text4 = 0 Then 
  
MsgBox ("Aucune donn&#233;es entr&#233;e pour le moment") 

Else 

Text2.Text = rst!Date 
Text3.Text = rst!Time 
Text6.Text = rst!destinataire 
Text5.Text = rst!messag 
Text1.Text = rst!objet 
Text7.Text = rst!numeroemail 

Me.Refresh 

rst.MoveNext 

End If 

End Sub 

Je les modifi&#233; en ajoutant un filtre pour l'inster a chercher les donn&#233;es?

Le probleme est que maintenant il ouvre une f&#233;n&#234;tre d'erreur l'ors de l'ouverture de la form. 

en disant "type non reconnu" en selecton la ligne du select

Quand penssez vous?
 

Cordiallement

A bient&#244;t

Problème apres empactage pour afficher mes données enregitré (S.O.S)

1 réponse

Discussions similaires