Probleme de recordset ???Résolu

Question

Salut...

Je suis avec VB? ADO et ACCESS

J'aimerais savoir pourquoi j'ai ce bug....

J'ai 11 textebox pour afficher l'info de ma BD. Quand je fais une première recherche, j'ai aucun problème tout fonctionne correctement. Toutefois si je réessais de faire une seconde rechetche il ne se passe plus rien. Mes Textbox ne se modifie plus et reste avec les information de ma première recherche.

Voici mon code

Private Sub cmdRecherche_Click()

Set BD2 = New ADODB.Recordset


BD2.Open "SELECT * FROM [dossiers_actif] WHERE [DOSSIER] like '%" & txtRechercheAvancee.Text & "%'", Connection, adOpenKeyset, adLockBatchOptimistic

BD2.Update

txtDossier.Text = BD2!DOSSIER & ""
txtTravail.Text = BD2!TRAVAIL & ""
txtLivraison.Text = BD2!livraison & ""
txtAttenteTerrain.Text = BD2!ATTENTE_TERRAIN & ""
txtAttenteTirroir.Text = BD2!ATTENTE_TIRROIR & ""
txtRecherche.Text = BD2!RECHERCHE & ""
txtDessin.Text = BD2!DESSIN & ""
txtRapport.Text = BD2!RAPPORT & ""
txtYvon.Text = BD2!YVON & ""
txtReference.Text = BD2!RÉFÉRENCE & ""
txtRemarque.Text = BD2!REMARQUE & ""


Merci d'avance

tof008 · Accepted Answer

BD2.close pour liberer le recordset...
ou 
set BD2 = Nothing

enfin je pense...



(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

cs_Stephane33 · Answer

Lib&#232;re ton recordset..

Juste faites-le

cs_JeffC1977 · Answer

hummm et comment je fais pour lib&#233;re mon recordset ????????

merci d'avance....

tof008 · Answer

Et met ca sur ton boutn enregistrer... Ca te permettra de remmettre toutes tes textbox &#224; vide

Dim Ctl As Control
For Each Ctl In Form26.Controls
    If TypeOf Ctl Is TextBox Then
        Ctl.Text = ""
    End If
Next Ctl



(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

cs_Stephane33 · Answer

La premi&#232;re r&#233;ponse de TOF est la bonne. Si tu ne lib&#232;re pas ton
recordset, la seconde requ&#234;te que t'ex&#233;cute se fait sur la pr&#233;c&#233;dente,
donc tu n'as aucune donn&#233;es

Juste faites-le

cs_JeffC1977 · Answer

Salut vous deux....

Et bien ca fonctionne à moitié l'utilisation du CLOSE (BD2.CLOSE)

Maisntenant je peux faire trois recherche et ca fonctionne mais si je fais une quatrième recherche j'ai 8 texbox sur 11 qui ne se modifie pas... ???

Mon problème serait-il lié à mon recordset ou à un autre prob. de programation ????

J'attends de vos nouvelles... merci d'avance...

cs_Stephane33 · Answer

set BD2 = nothing devrait suffire

A chaque reconnexion je me deplace syst&#233;matiquement au d&#233;but BD2.moveFirst
Perso je ferais comme &#231;a

Private Sub Jeclicke()

Dim BD2 as Recordset

Dim Base as DataBase



Set Base = OpenTable(CheminMaBase)



SQL = "SELECT * FROM MaTable WHERE Champ Like %" & ValeurCherch&#233;e

Set BD2 = Base.OpenRecordset(SQL)



BD2.moveFirst

While Not BD2.eof

TextBox1.Text = BD2!Champ

Wend

BD2 = Nothing



Base.close

Set Base = nothing



End Sub

................
Juste faites-le

cs_JeffC1977 · Answer

Salut...

Dernière question... j'ai essayé de retranscrire ton code et j'ai un problème avec le DataBase

Dim Base as DataBase   VB ne reconnais pas ce code ????

J'attends de tes nouvelles...

merci d'avance..

cs_Stephane33 · Answer

Il faut rajouter  la r&#233;f&#233;rence "Microsoft DAO 3.51 Object library" dans ton projet

Dans Menu Projet/R&#233;f&#233;rences

Juste faites-le

Probleme de recordset ???

9 réponses

Discussions similaires