ADO VB6 COMBOBOX

Question

Salut...

J'ai un petit probl&#232;me avec mon combobox lorsque je fais une recherche
 
J'ai 3 textbox et un combobox. Pour ce qui est des 3 textbox, j'ai pas de probl&#232;me, il affiche les bons r&#233;ultats. Toutefois mon combobox se modifie pas.  Voici mon code:

Dans ma Recherche je doit s&#233;lectionner un dossier dans un textbox et le nom d'un employ&#233; dans mon combobox.

Private Sub cmdRecherche_Click()


Set BD = New ADODB.Recordset


 BD.Open "SELECT * FROM [GES_TEMPS] WHERE [DOSSIER] like '%" & txtRecherche.Text & "%' AND [EMPLOYER]  like '%" & ListTempsEmployesRecherche.Text & "%'", Connection, adOpenKeyset, adLockBatchOptimistic

BD.Update


txtTempsDossier.Text = BD!DOSSIER & ""
txtTempsTemps.Text = BD!TEMPS & ""
txtTempsDate.Text = BD!DATE & ""
ListTempsEmployesRecherche.Text = BD!EMPLOYER & ""
End Sub

Il n'y a pas de faute de frappe dans ma ligne de commande.

Je ne sais pas si le bug viens du fait que dans ma table ACCESS la colonne EMPLOYER n'a pas de list (combobox) et dabs mon prog je dois mettre un combobox.

Est-il possible d'avoir le code pour le faire fonctionner correctement...

merci d'avance...

nhervagault · Answer

Salut



ListTempsEmployesRecherche.Text = BD!EMPLOYER 



Devrait suffir pour mettre "" derriere ??



Et pourquoi mettre un update dans ton code ??

Une recherche ne mets pas &#224; jour ??



Voila

cs_JeffC1977 · Answer

Salut...

Mais le bug c'est avec ce code ca ne fonctionne pas...:

Private Sub cmdRecherche_Click()


Set BD = New ADODB.Recordset


BD.Open "SELECT * FROM [GES_TEMPS] WHERE [DOSSIER] like '%" & txtRecherche.Text & "%' AND [EMPLOYER]  like '%" & ListTempsEmployesRecherche.Text & "%'", Connection, adOpenKeyset, adLockBatchOptimistic

txtTempsDossier.Text = BD!DOSSIER & ""
txtTempsTemps.Text = BD!TEMPS & ""
txtTempsDate.Text = BD!Date & ""
ListTempsEmployesRecherche.Text = BD!EMPLOYER End Sub

Donc exist-il un autre facon de faire apparaitre l'information ??? Car le & "" ne mofie en rien le bug...  C'est vrai qu'il ne sert &#224; rien mais ca ne solutionne pas mon probl&#232;me

P.S. C'est vrai que le update &#233;tait un erreur de ma part.... je ne l'avais meme plus remarqu&#233;  :)

J'attends de tes nouvelles

merci d'avance

nhervagault · Answer

Salut



Quel type d'erreur s'affiche car je ne vois pas d'ou viens le probleme.

Ce n'est pas une question de cast car c'est un texte selon la requete



Si l'erreur est le text est en lecture seul c'est que le style est mauvais poour le combo



Private Sub Command1_Click()

Combo1.AddItem "bonjour"

Combo1.Text = "bonjour"



End Sub



Fonctionne chez moi avec le style dropdowslist.

Mais sans l'erreur c'est dur de trouver

cs_JeffC1977 · Answer

Salut....

Et bien il ne me sort pas d'erreur... Il ne se passe tout simplement rien....

Quand je d&#233;marre mon programme. il affiche le nom de la premi&#232;re ligne de ma base de Donn&#233;es soit Pascal...

Quoi que je lui impose comme code, il reste toujours &#224; Pascal.....

Je comprend vraiment rien....

Bon je ne sais pas si tu le veux... mais je pourrais toujours t'envoyer mon code... ????

C'est vraiment petit comme code et de toute facon ca plante au bouton RECHERCHE

J'attends de tes nouvelles....

Est-ce que ca se pourrait que mon combobox soit mal sett&#233; ???  est ce que j'aurais cliquer sur quelque chose dans les Propri&#233;t&#233;s et c'est pour ca que ca fais ca ????

J'ai ajouter les nom de ma list en utilisant la propri&#233;t&#233; List  est-ce que je devrias plutot utiliser la commande AddItem ????

est ce que ca peut changer quelque chose ????

A+

ADO VB6 COMBOBOX

4 réponses

Discussions similaires