J'ai une liste de couleur dans une base données sql et je veux choisir un et l'affecter au Back color du form. sachant que MSGBOX affiche Color.Pink.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim adptC As New SqlDataAdapter("select couleur from PARAMETRAGE", connexion.con) adptC.Fill(dstC, "tableC") Me.BackColor = dstC.Tables("tableC").Rows(0).Item(0) MsgBox(dstC.Tables("tableC").Rows(0).Item(0))
Partager