Besoin aide pour ado et autre en vb6Résolu

Question

Bonjour tout le monde

J'ai developp&#233; une base de donn&#233;es avec ADO et une Table access XP.

Suite a un virus m&#233;chant que norto n'as pu eradiquer, j'ai formater mon disque, j'ai r&#233;ussi a saugarder mon prog que je developp&#233;, mais elace je ne sais pas pourquoi mais mon code a &#233;tait modifi&#233;.

Voici mes probl&#232;mes

1) Apres que j'ai envoy&#233; mes donn&#233;es et que je ferme et ouvre ma forme, les donn&#233;es s'affich', comment faire pour qu'il ne s'affiche plus.

Option Explicit
Dim cnx As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmado As New ADODB.Command

Dim noCheck1 As String
Dim record As String

cnx.Provider =  "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoy&#233;.mdb"
cnx.Open


 cmado.ActiveConnection = cnx 


 



rst.Open "SELECT * FROM EMAIL", cnx, 2, 3


 


If envoi And (Check1.Value  = 0) Then


noCheck1 =  MsgBox("&#202;tes vous sur de ne pas vouloir enregitrer l'email que vous venez d'envoyer", vbQuestion + vbYesNo, "Attention")



 rs.AddNew 


rst("destinataire")  = txtto
rst("objet") =  objet
rst("messag") = Text1
rst("Date") = CStr(DateValue(Now))
rst("Time") = CStr(TimeValue(Now))
rst.Update



 rs.Update 


 


rst.Close



txtto.Text  = ""
txtto.SetFocus


txtfrom.Text =  ""
txtfrom.SetFocus


objet.Text = ""
objet.SetFocus


messag.Text = ""
messag.SetFocus


Textsmtp.Text = ""
Textsmtp.SetFocus


txthote.Text = ""
txthote.SetFocus


rtxtLog.Text = ""
rtxtLog.SetFocus


port.Text = ""
port.SetFocus


   



record  = MsgBox("Email enregistr&#233;", vbExclamation, vbOK)


 


Else


 


Select Case noCheck1
Case vbYes



txtto.Text =  ""
txtto.SetFocus


txtfrom.Text = ""
txtfrom.SetFocus


objet.Text = ""
objet.SetFocus


messag.Text = ""
messag.SetFocus


Textsmtp.Text = ""
Textsmtp.SetFocus


txthote.Text = ""
txthote.SetFocus


rtxtLog.Text = ""
rtxtLog.SetFocus


port.Text = ""
port.SetFocus



 Case vbNo 


 


 


rst.AddNew


rst("destinataire")  = txtto
rst("objet") =  objet
rst("messag") = Text1
rst("Date") = CStr(DateValue(Now))
rst("Time") = CStr(TimeValue(Now))
rst.Update



 rs.Update 


 


rs.Close
record  = MsgBox("Email enregistr&#233;", vbExclamation, vbOK)


txtto.Text =  ""
txtto.SetFocus


txtfrom.Text = ""
txtfrom.SetFocus


objet.Text = ""
objet.SetFocus


messag.Text = ""
rmessag.SetFocus


Textsmtp.Text = ""
Textsmtp.SetFocus


txthote.Text = ""
txthote.SetFocus


rtxtLog.Text = ""
rtxtLog.SetFocus


port.Text = ""
port.SetFocus



 End Select 



End If


End Sub

2) Probl&#232;me, les boutons precedant et suivant ne fontctionne pas.

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



 Set cmado.ActiveConnection = cnx 


rst.CursorLocation  = adUseClient


rst.CursorType =  adOpenDynamic


 rst.LockType = adLockOptimistic 


rst.Open "select * from email;", cnx


 



Text4.Text  = rst.RecordCount


If Text4 =  0 Then


 MsgBox ("Aucune donn&#233;es entr&#233;e pour le moment") 


Else


Text5.Text  = rst!Date
Text6.Text =  rst!Time
Text3.Text = rst!destinataire
Text1.Text = rst!messag
Text3.Text = rst!objet
Text7.Text = rst!numeroemail


 rst.MoveNext 


Me.Refresh



End If



End Sub


Private Sub suivant_Click()


rst.MoveNext
If rst.EOF Then
rst.MoveLast
End If
    
suivant.Enabled  = Not rst.BOF
precedent.Enabled = Not rst.EOF
    
    
End Sub
Private Sub Form_Unload(Cancel As Integer)


cnx.Close


End Sub


Private Sub quit_Click()
Hide
End Sub


Pouvez vous m'aider?

Mercie d'avance

Codiallement

A bient&#244;t

developvbdebut · Accepted Answer

Bonjour tout le monde

J'ai r&#233;solut mon probleme

Voil&#224; ce que j'ai fais

Private Sub form_load()


messag.Text = ""
txtto.Text = ""
objet.Text = ""


End Sub

Mercie

Cordiallement

A bient&#244;t

cs_dragon · Answer

chit bonjour le copier coll&#233;
des fonctions et des proc&#233;dures tu connais ???

dequoi qui pourrais tenir sur 20 lignes prend 4 pages 

une belle fonction reset qui serais appeller, &#231;a serais pas mieux pour tout effacer


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

developvbdebut · Answer

Bonsoir tout le monde

Comme je les dis, mon probl&#232;me est que quand j'ouvre la form le dernier enregistrement s'affiche.

Quel code faut il utiliser pour que ca ne face plus ca svp.

Mercie

Cordiallement 

A bient&#244;t

cs_dragon · Answer

comme je l'ai dit, fait toi une m&#233;thode reset qui efface tout tes champs qui sera appeller a la toutes fin seulement


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

developvbdebut · Answer

Bonjour tout le monde

Es ce que je dois m&#234;ttre simplement reset dans form_load.

Excus&#233; moi ci mes questions vous parez b&#234;te

Cordiallement

A bient&#244;t

cs_dragon · Answer

------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

developvbdebut · Answer

Re bonjour tout le monde

Pourquoi tu dis rien Waxime.

Codiallement

A bient&#244;t

cs_dragon · Answer

jolie bug du r&#233;seau code source, &#231;a efface desfois ce qu'on tape d&#233;soler

a chaque fois que tu veux que ton code s'efface tu met la m&#233;thode l&#224;.
soit avant ton code pour vider les champs
soit &#224; la fin pour afficher les cases vide
soit un bouton qui l'appel pour effacer les champs sans faire d'autre calcul


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Besoin aide pour ado et autre en vb6

8 réponses

Discussions similaires