[VB6] Probleme base de donnée access et vb

Bonjours,
voila je realise un programme de facturier.
J'ai une base de données access avec 3 tables : client, facture, et produit.

Dans une datalist j'affiche toute la liste des clients de ma base de données.
Ce que je voudrais faire c'est afficher dans une autre datalist toutes les factures correspondants au client que j'ai cliquer dans la premiere liste.

Voila le code que j'ia fais pour le moment.

Citation:

---

Dim str As String
Dim bd As Database
Dim tbl As Recordset


str = "SELECT Document.Date FROM Document, CLient WHERE Client.Nom = " + txtNom.text + " AND Document.Id_client = Client.Id client"

Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)
While Not tbl.EOF
List1.AddItem tbl.Fields("Date")
tbl.MoveNext
Wend
tbl.Close

---

Je pense que ca devrait marcher normalement mais j'ia un message d'erreur :
"Erreur 3343, format de base de données non reconnu"

Aves la ligne "OpenDatabase(".\bd1.mdb")" surlignée.

Je ne sais vraiment pas d'ou ca peut venir donc si quelqu'un pourrait m'aider, merci.

Citation:

---

Envoyé par floran30

OpenDatabase(".\bd1.mdb")

---

Hum le chemin de ta base me paraît mauvais. Essaye en mettant le chemin complet ou si la base est dans le répertoire de ton appli :

Code:

---

OpenDatabase(app.path & "\bd1.mdb")

---

Le chemin est le bon et meme en ajoutant

Citation:

---

OpenDatabase(app.path & "\bd1.mdb")

---

Toujours le meme probleme.

Déjà dit et répété, par défaut, un recordset non type est un recordset ADO, et non DAO

donc déjà :

Code:

---

1 2	Dim bd As DAO.Database Dim tbl As DAO.Recordset

---

ensuite, vérifie quelle version DAO est cochée dans tes références projet

Access 97 : DAO 3.51
Access 2000 et + : DAO 3.6

Merci bcp ca marche niquel :P
J'ai demandé un peut partout sur les forums personne a su me répondre.
Merci encore en tout cas.

Citation:

---

Envoyé par floran30

J'ai demandé un peut partout sur les forums personne a su me répondre.

---

Quand je dis qu'il faut fréquenter uniquement dvp.com :king: