Discussion :

[floran30]

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.

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.

[jean-pierre96]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[floran30]

Le chemin est le bon et meme en ajoutant

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

Toujours le meme probleme.

[ThierryAIM]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[floran30]

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

[ThierryAIM]

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