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 -
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
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
