J'ai l'impression de faire un monologue.... :lol::lol::lol::lol::lol:
Webman
Désolé pour ce que j'ai écris sur la première ligne de mon post... je viens juste de m'en rendre compte... je voulais dire:
Bon oubliez ce que j'ai dis plus haut car j'ai trouvé la solution... :lol:
A+
Webman
Webman
Bon oubliez ve que j'ai dis plus j'ai trouvé la solution...
MAis j'ai un autre pb... qd je veux lancer le prog il y y a encore une erreur:
'Affiche les données contenues dans la base de données
Dim dbPwd As ADODB.Connection
Dim myRs As ADODB.Recordset
Set dbPwd = New ADODB.Connection
dbPwd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\Documents and Settings\progvb\PwdRemember\Pwddata.mdb"
Set myRs = New ADODB.Recordset
myRs.Open "Select * from ComptesStorage", dbPwd, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not myRs.EOF And Not myRs.BOF Then
Do Until myRs.EOF
dbcStorage.AddItem myRs![Champ] & ""
myRs.MoveNext
Loop
End If
myRs.Close
Set myRs = Nothing
dbPwd.Close
Set dbPwd = Nothing
Erreur de compilation
Methode ou membre de données introuvables
Le pb c'est que je sais plus quoi mettre à la place de champ car ca fais trés longtemps que je n'ai plus utilisé ce morceau de code, alors si qq un peux m'aider.
Webman
Webman
De plus quand je vais dans les propriétés de mon control Data et que je vais définir le "RecorsetSource" cela me dis: Format de données non reconnu....
Webman
Webman
J'ajoute qqs précision:
L'erreur est la suivant:
Erreur de compilation
Type défini par l'utilisateur non défini.
En plus cela me surligne en jaune ceci:
Private Sub Form_Load()
Qui est l'entete de la page ou ce trouve le code bien évidement...
Webman
Webman
Salut,
Je fais un prog qui est lié à une base de donnée et quand je lance mon apli cela provoque une erreur et cela me surligne la première ligne de mon code...
Code qui est le suivant:
Dim dbPwd As ADODB.Connection
Dim myRs As ADODB.Recordset
Set dbPwd = New ADODB.Connection
dbPwd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=Pwddata.mdb"
Set myRs = New ADODB.Recordset
myRs.Open "Select * from ComptesStorage", dbPwd, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not myRs.EOF And Not myRs.BOF Then
Do Until myRs.EOF
dbcStorage.AddItem myRs![Champ] & ""
myRs.MoveNext
Loop
End If
myRs.Close
Set myRs = Nothing
dbPwd.Close
Set dbPwd = Nothing
Je vois pas où est le pb.... Si qq un à besoin de précisions je suis dans le coin et aussi sur ICQ...
