Label et ADO

Question

Bonjour bonjour,

Je voudrais mettre dans un label  le contenu d'un champ de ma base de donnée en fonction d'un élément choisis dans une combo box.
Par exemple, si dans ma combo box je choisis le champ nommé "A125" je veux que dans le label ça écrive "Service vidange", tout étant dans la même table.
Voici mon code pour le moment mais je galère un peu ! Merci :-)


Private Sub CMB_Service_Change()
Dim req2 As String
Dim cnx2 As New ADODB.Connection
cnx2.Provider = "Microsoft.jet.OLEDB.4.0"
cnx2.Open ("data source = C:\gestion_veh\base_veh.mdb")req2 "SELECT intitulé_service FROM SERVICE WHERE code_service '" & CMB_Service.Text & "';"

cs_Jack · Answer

Salut ZarnoVB 
Si le début fonctionne (pas vérifié), tu n'as plus qu'à extraire les résultats :
cnx2.Open req2
If req2.RecordCount <> 0 Then
MonLabel.Caption = req2!intitulé_service
End If
cnx2.Close

Vala
Jack

ZarnoVB · Answer

req2 est ma chaine de caractère contenant ma requête.
Enfin je pense qu'ilf aut que j'utilise un recordset mais je sais pas trop comment...

merci en tout cas

william the new · Answer

Avec le recordset
tu déclares le rst, puis

set rst = new adodb.recordset
rst.open" SELECT intitulé_service FROM SERVICE WHERE code_service = '" & CMB_Service.Text & "',cnx2
 'rst.movefirst au cas ou il y a plusieurs solutions il se palce sur le premier
tonlabel.caption = rst.fields(0).value

j'espère que ça marchera g procédé de cette manière la moi, si tu as un prob,n'hesiste pas à envoyé un message
guillaume_lenouvem@hotmail.com

william the new · Answer

excuse moi c guillaume_lenouvel@hotmail.com

Label et ADO

4 réponses

Discussions similaires