Combobox - problèmeRésolu

Question

Bonjour,

J'ai une table Access 2000 avec 2 colonnes, j'aimerais afficher le contenu de la colonne # 2 dans un Label (Ou textBox) lorque je selectionne la colonne # 1 par mon combo Box. Comment faire? Voici le code de ma page:

Dim DbFile As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQLstmt As String


Private Sub Form_Load()
     Open_cn
End Sub


Private Sub Open_cn()


      DbFile = App.Path & "\bd2.mdb"



       Set cn = New ADODB.Connection
       cn.CursorLocation = adUseClient
       cn.ConnectionString = _
             "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DbFile & ";" & _
             "Persist Security Info=False"


      cn.Open



      SQLstmt = "SELECT [Nodeprojet] FROM [projet]"



      Set rs = New ADODB.Recordset
      rs.Open SQLstmt, cn, adOpenStatic, adLockOptimistic, _
           adCmdText
    Call PopulateCombo
    Call BindData


End Sub
Private Sub BindData()
    Set Combo1.DataSource = rs
   
    Call SetFields
End Sub


Private Sub SetFields()
    Combo1.DataField = "Nodeprojet"
  
End Sub


Private Sub PopulateCombo()
    Dim i As Long
    rs.MoveFirst
    For i = 1 To rs.RecordCount
        Combo1.AddItem (rs.Fields("Nodeprojet"))
        rs.MoveNext
    Next i
End Sub
Private Sub Close_cn()
     cn.Close
     Set cn = Nothing
End Sub


Private Sub bnttemp_Click()
Unload Me
FrmMain.Show 1
End Sub

cs_codin · Accepted Answer

Essaye ca moi j,ai deja eu le meme probleme, mais moi mes instructions sont dans une sous-routine que j'apelle sur le click de mon combobox. 

Private Sub Combo1_Click() 
  With rs
   rs.MoveFirst
   Do While Not .EOF
      If rs.Fields(2).Value =  """ & combo1.Text & """ Then
         blNoProjet.Caption = rs.Fields(1).Value
         Exit Do
      End If
      rs.MoveNext
   Loop
End With
End Sub

cs_Jack · Answer

Salut
Ce genre de code doit exister parmi les sources du site. Suffit de chercher.
En gros, il faut utiliser l'&#233;v&#232;nement _Click de ton ComboBox pour savoir quand un nouveau choix est fait.
Lire la valeur actuellement s&#233;elctionn&#233;e
La rechercher dans le RecordSet dans le Champ1 qui a servi de source (donc, il faut le garder en m&#233;moire et ne pas Closer) avec une boucle classique qu'on retrouve dans 100% des sources g&#233;rant des DB :
With monRecordSet
   .MoveFirst
   Do While Not .EOF
      If .Field(0).Value = "Le Texte que je recherche" Then
         Label.Caption = .Field(1).Value
         Exit Do
      End If
      .MoveNext
   Loop
End With

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_serge99 · Answer

Merci...

Il y a cependant un  petit probl&#232;me dont je n'arrive pas &#224; comprndre la cause. Voici o&#249; il y a un Bug...probablement d&#251; &#224; mon ignorance

If rs.Fields(1).Value = "Le Texte que je recherche" Then

Ok la routine semble fonctionner mais je ne connais pas la syntaxe &#224; utilis&#233; pour le texte en surbrillance puisque celui-ci et variable????

Que faire... &#201;tant d&#233;butant j'ai essay&#233; plusieurs chose dont " " ou " ' " et " !"

cs_Jack · Answer

Salut
lol, tu n'as pas d&#251; beaucoup chercher.
Quand l'&#233;v&#232;nement monCombo_Click se d&#233;clenche, le texte de l'item s&#233;lectionn&#233; est dans monCombo.Text

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_serge99 · Answer

C'est la premi&#232;re chose que j'ai fait mais cela cause un bug (erreur 3265).

Private Sub Combo1_Click()


  With rs
   rs.MoveFirst
   Do While Not .EOF
      If rs.Fields(2).Value = "combo1.text" Then
         blNoProjet.Caption = rs.Fields(1).Value
         Exit Do
      End If
      rs.MoveNext
   Loop
End With
End Sub

Combobox - problème

5 réponses

Discussions similaires