Conexion a une base de donnée access [Résolu]

Signaler
Messages postés
47
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
1 novembre 2007
-
Messages postés
47
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
1 novembre 2007
-
bonjour et merci de lire ma question: je voudrais savoir comment me connecter à une bd accessen utilisant des variables database en spécifiant le dossier contenant le projet comme chemin dela bd. au secours

5 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Re,

Mets ceci

Set Db = OpenDatabase(App.Path & "\Voyage.mdb")
de cette façon la BD peut se trouver dans n'importe quel répertoire, le
programme ira la chercher.Pour faire tes essais, place ta BD comme
ci-dessus dans vb98.



jpleroisse
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut
Tes réponses sont dans les sources de ce site.
Cherche parmi les sources de la catégorie Database.
Pour le chemin de la DB, rien de plus simple une fois que tu auras créé ta chaine de connexion.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
(je
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,

Dans Projet / Références, tu coches Microsoft DAO 3.51 Object Library

Ce code récupère dans un Combobox, le Champ Destination dans la table Liste de la Base de donnée Voyage.mdb



Tu changes d'après tes coordonnées, en Bleu le chemin de ta BD, en Vert ta Table et en Rouge ton Champ.



Private Sub Command1_Click()

Dim Db As Database

Dim Req As Recordset

Set Db = OpenDatabase("C:\Program files\microsoft Visual Studio\vb98\Voyage.mdb")

Set Req = Db.OpenRecordset("SELECT * FROM Liste")

Do Until Req.EOF

Combo1.AddItem Req("Destinations")

Req.MoveNext

Loop

Combo1.Refresh

Set Req = Nothing

Set Db = Nothing

End Sub



jpleroisse
Messages postés
47
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
1 novembre 2007

je remercie jpleroisse et jack pour leur réponse, mais j ai encore une petite question pour jpleroisse: est ce qu en mettant ma bd dans C:\Program files\microsoft Visual Studio\vb98\ , je pourrai créer un install permettant à l'utilisateur d installer l'applicatin dans n'importe quel dossier?si oui, svp comment? et merci infiniment
Messages postés
47
Date d'inscription
lundi 23 mai 2005
Statut
Membre
Dernière intervention
1 novembre 2007

merci jpleroisse j ai essayé et ça à marché.merci infiniment