Accès à une nouvelle base Access

Question

Bonjour,

Voilà mon problème :
j'ai une bd access déclaré sous VB avec un dataEnvironnement et une connexion. J'y ai ajouté des commandes référencant mes tables.

Par conséquent, quand je veux accéder à une de mes tables, je fais le traitement suivant (exemple):
With DataEnvironment1.rsJour
    .Open
    ...
    .Close
End With

Maintenant, je voudrais pouvoir garder tous mes accès défini dans mon code (ne pas devoir les modifier) et changer de base de données pendant l'éxécution du programme. Remarque : ma nouvelle base de données a exactement la même structure que l'original, seules les données changent.

J'ai essayé de changer le paramètre ConnectionString mais dès que je veux ouvrir une de mes tables comme défini ci-dessus, il me jette en me disant :
"Impossible d'utiliser cette connexion pour effectuer cette opération.
Elle est fermée ou non valide dans ce contexte."

Merci de votre aide

Julien

Doro81079 · Answer

bonsoir,

as-tu utiliser des variables diff&#233;rentes pour d&#233;clarer le nom et le 
chemin d'acc&#233;s de la bd?

peut-tu mettres ton code?

Salut
Doro

cs_barac · Answer

Le chemin d'accès à la bd change car répertoire différent et nom bd différent. Voilà le code : connexion = DataEnvironment1.Connection1.ConnectionString 'recherche du chemin de base de données dans 'connexion' While (car <> "" And fini = False) car = Mid(connexion, i, 1) If (car = "D") Then If (Mid(connexion, i, 11) = "Data Source") Then 'on mémorise la position du début du chemin position_debut = i + 12 'on recherche la position finale i = position_debut While (car <> "" And fini = False) car = Mid(connexion, i, 1) If (car = ";") Then 'on mémorise la position_finale position_fin = i fini = True End If i = i + 1 Wend End If End If i = i + 1 Wend 'changement du chemin de la bd connexion = Left(connexion, position_debut - 1) + _ "C: oto\bd2.mdb" + _ Mid(connexion, position_fin, Len(connexion) - position_fin + 1) 'attribution du nv chemin If (DataEnvironment1.Connection1.State = 1) Then DataEnvironment1.Connection1.Close End If DataEnvironment1.Connection1.ConnectionString = connexion Mais si il n'y a pas de solution pour changer de bd en cours de programme, je vais directement remplacer la bd en gardant le même chemin d'accès et le même nom. Voilà, bon courage et merci à toi. Julien

Doro81079 · Answer

bonjour,

bon &#224; premi&#232;re vue je te conseillerais de te servir d'un 2eme dataenvirronnement
avec les donn&#233;es de ta 2&#232;me table....

sinon tu peux &#233;galement le faire sans aucun dataenvirronnement
avec par exemple une combo et suivant le choix de l'utilisateur telle ou telle base 
sera ouverte

sinon je vais essayer de faire ce que tu veux dans un nouveau projet et je te tiens au courant

salut
doro

Doro81079 · Answer

bonjour,

bon je viens de regarder &#231;a de plus pr&#233;s et je ne pense pas que tu puisse changer l'
acc&#233;s a la bd en cours de route avec un seul dataenvironnement ,je peux me trompais,le mieux serait d'utiliser un 2eme dataenvironnement,enfin je pense....

salut
doro

Doro81079 · Answer

re,

erreur,je viens de voir que tu peux ajouter une 2eme connection au dataenvironnement ensuite tu code suivant le choix de l'utilisateur
pour la nouvelle tu clic droit sur dataenvironnement lorsqu'il est ouvert
tu clic sur ajouter une connection tu renseigne et voil&#224;.....

salut
doro

Accès à une nouvelle base Access

5 réponses

Discussions similaires