Mettre le resultat d'une requete dans un label vba

Résolu
bithack Messages postés 143 Statut Membre -  
bithack Messages postés 143 Statut Membre -
Bonjour,
Comme s'est dit dans le titre, je souhaiterai mettre le résultat d'une requête dans un label. Malgré les différentes recherche sur les différents forum je n'ai pas trouver mon bonheur.
je vous met mon code si dessous, ce n'est pas le code d'un génie :p

Private Sub Label1_Click()
Set cn = CreateObject("ADODB.Connection")
Dim rs As New ADODB.Recordset

With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "P:\Vie des sites\blablabla\bliblibli\Planning nouveau\planning.accdb"
.Open
End With

CUID = UCase(Environ("username"))
sql = " select direction_agent from agent where cuid =""" & CUID & """;"
On Error Resume Next
cn.Execute (sql)

End Sub



A voir également:

1 réponse

michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour

Set rs = cn.Execute(SQL)
Range("A1").copyfromrecordset rs
(-je n'ai jamais essayé avec un label,donc...)

tu as instancié les objets par un "new" donc à la fin
  set rs=nothing
set cn=nothing
0
bithack Messages postés 143 Statut Membre 6
 
Merci de votre réponse.
elle peut être une bonne idée, mais je cherche plus a gérer avec un style graphique.
je vous remercie d'avoir pris le temps de répondre
bonne journée
cdlt
0