Récupérer un champ d'une BDD?

sisi35 Messages postés 50 Date d'inscription mardi 28 juin 2005 Statut Membre Dernière intervention 29 juin 2006 - 6 juil. 2005 à 11:22
cs_dan80 Messages postés 101 Date d'inscription mardi 3 mai 2005 Statut Membre Dernière intervention 19 avril 2006 - 6 juil. 2005 à 11:38
Comment récupérer un champ d'une BDD et le mettre dans un Label?

Merci d'avance, Sylvie.

1 réponse

cs_dan80 Messages postés 101 Date d'inscription mardi 3 mai 2005 Statut Membre Dernière intervention 19 avril 2006
6 juil. 2005 à 11:38
en premier tu fais :

Projet -> References et tu cohe la case Microsoft ActiveX Data Objects 2.0 Librairie

ensuite dans un module tu met:

tu declare en globale :
public cn as adodb.connection

Sub connection()
Set cn = New ADODB.connection
cn.Provider = "Microsoft.Jet.Oledb.4.0"
cn.ConnectionString = 'chemin de ta base'
cn.Open
End Sub

sub Deconnection()
cn.Close
End Sub

ensuite sur le click d'un bouton par exemple

sub Button1_click()
dim rst as new adodb.recordset 'on declare un recordset(jeu d'enregistrement) qui va contenir les champs de la base
dim sql as string 'va contenir ta requete sql
connection
rst.cursorlocation=aduseclient 'va permettre de compté le nombre d'enregistrement
sql=" Select * from 'nom de ta table' where 'ta condition'"
if rst.recordcount <>0 then 'si ton recordset n'est pas vide
rst.movefirst 'on se place sur le premier enregistrement
label.caption = rst.fields('nom de ton champ')
end if
deconnection
End sub

j'envoie le premier cham dans le label

fais moi signe si t'a du mal
0