difficultés de connection à la base frontale [Résolu]

[cassidy]

salut!

j'ai un pb avec mon appli , la bd ne contenant que les tables est installée sur le serveur et celle contenant les formulaires sur les clientes , et ma securité est gereé par moi même. au niveau de la connection, j'ai un formulaire qui s'ouvre à l'ouverture de la bd et lorsque l'on entre ses logins et mot de passe, l'application se connecte à la bd dans une table pour controler si ces logins existent. or cette bd contenant les formulaires est liés à la bd contenant les tables.
or actuellement le serveur à été reinstallé et pendant l'installation le nom du serveur à été changé et maintenant au lancement de mon appli, une fois login et password entrés il ne se connecte pas à la bd et affiche le message qu'il ne peut pas se connecter à la base de données, verfier si le chemin existe. ceci doit être aussi dû au fait que la base frontal contient des tables liées à la base ne contenant que les tables situé par exemple sur serveur\bd alors que maintenant c'est le nom est serveurnew .

je voudrai, ouvrir ma base frontale en mode modification et changer le chemin des tables liées vers ma base pour qu'elle prenne en compte le nouveau nom du serveur dans la localisation de la base d'arrière plan. mais j'ai desactiver l'accès au code par la touche maj ou F11. et donc le seul moyen d'accéder à mon code etait de cliquer sur le raccourcis de modification qui s'affiche sur la barre de formulaire. or actuellement puisque l'aaplication ne se lance même pas, ce raccourcis est desactivaé sur cette barre
Que faire?
ya t'il un moyen de fractionner sa bd et en créeant le lien entre les tables liées et celles de la base d'arrière plan par un chemin relatif et non obsolu?


merci d'avance!

[DelphiManiac]

Ce type de code devrait pouvoir t'aider :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub ReconnecterBase()
  Dim db As Database
  Dim t As TableDef
  Dim newConnect As String
 
  Dim BaseFrontale As String
  Dim BaseDorsale As String
 
  BaseFrontrale = "c:\temp\Mabase.mdb"
  BaseDorsale = "\\monnouveauserveur\chemin\Mabase data.mdb"
 
  Set db = OpenDatabase(BaseFrontale)
  For Each t In db.TableDefs
    If t.Connect <> "" Then
      newConnect = ";DATABASE=" & BaseDorsale
      If t.Connect <> newConnect Then
        t.Connect = ";DATABASE=" & BaseDorsale
        t.RefreshLink
      End If
    End If
  Next
  db.Close
End Sub

Code à intégrer dans un nouveau module d'une base vierge.

Ce code se connecte à ta base frontale, parcours la liste des tables, vérifie celle qui sont liées et réétabli les liens vers l'emplacement de la nouvelle base dorsale.


Les lignes :

BaseFrontrale = "c:\temp\Mabase.mdb"
BaseDorsale = "\\monnouveauserveur\chemin\Mabase data.mdb"

devant bien sur être adaptées en fonction du nom et de l'emplacement réel des bases chez toi.

[cassidy]

Merci,

j'essaie!


et je te rends compte!

[LaBelette]

Ou essaie tout simplement d'ouvrir ta BD en tenant la touche Majuscule enfoncée.

[cassidy]

abelette , ma touche je l'empecher son activation dans mon code pour ainsi empecher les utilisateur d'acceder au code.

DelphiManiac , j'ai créer une base vierge dans le quel j'ai créer un nouveau module et saisir le code que tu as donnée, en remplacant les chemins par ceux reels de mes bd dorsale et frontale, mes comment faire pour que ça airt effet? juste en l'ouvrant cette nouvelle BD ne contenant que ce module ? ou faut t'il quelque chose d'autres?

car j'ai juste ouvert ce fichier .mdb et base frontale ne se connecte toujours pas à celle dorsale!!!


aidez moi!!


Sidoine

[DelphiManiac]

Envoyé par LaBelette

Ou essaie tout simplement d'ouvrir ta BD en tenant la touche Majuscule enfoncée.

e voudrai, ouvrir ma base frontale en mode modification et changer le chemin des tables liées vers ma base pour qu'elle prenne en compte le nouveau nom du serveur dans la localisation de la base d'arrière plan. mais j'ai desactiver l'accès au code par la touche maj ou F11. et donc le seul moyen d'accéder à mon code etait de cliquer sur le raccourcis de modification qui s'affiche sur la barre de formulaire. or actuellement puisque l'aaplication ne se lance même pas, ce raccourcis est desactivaé sur cette barre

Ben "Majuscule" lors de l'ouverture, il en a parler, donc a moins qu'il ai loupé la touche

[LaBelette]

Crée une macro qui lance la procédure ReconnecterBase(). La commande ExecuterCode avec le paramètre =ReconnecterBase() .
Lance la macro et voilà!
Belle astuce, DelphiManiac, en passant!

[DelphiManiac]

Envoyé par cassidy

abelette , ma touche je l'empecher son activation dans mon code pour ainsi empecher les utilisateur d'acceder au code.

DelphiManiac , j'ai créer une base vierge dans le quel j'ai créer un nouveau module et saisir le code que tu as donnée, en remplacant les chemins par ceux reels de mes bd dorsale et frontale, mes comment faire pour que ça airt effet? juste en l'ouvrant cette nouvelle BD ne contenant que ce module ? ou faut t'il quelque chose d'autres?

car j'ai juste ouvert ce fichier .mdb et base frontale ne se connecte toujours pas à celle dorsale!!!


aidez moi!!


Sidoine

Dans la fenêtre de code, Ctrl+G pour accèder à la fenêtre d'exécution directe et là, tapez :

ReconnecterBase <Touche entrée>

[cassidy]

delphimaniac,

ça s'execute , mais m'affiche une fenentre me demandant d'entrer la source de données, et quand je clique à "nouvelle source" j'ai une liste de pilote parmi lesquels Odbc.

que faire?

[cassidy]

quand je choisis l'odbc comme nouvelle source de données et je donne le chemin pour accéder à la db dorsale , a la fin j'ai le message d'erreur:

"l'odbc ne peut etre utiliser pour importer, exporter,ou lier une base de données microsoft jet externe ou table de bd externe à ta base de données"

[DelphiManiac]

Tu as des tables ODBC lié aussi ?????

Si c'est bien le cas, change la ligne :

Code :

1
2
 
    If t.Connect <> "" Then

par

Code :

1
2
 
    If t.Connect <> "" And Left$(t.Connect, 5) = ";DATA" Then

[cassidy]

non , en fait je sais pas.

ma bd je l'avais fractionner avec l'utilitaires access c'est tout!

que faire?

[cassidy]

donc je pense que c'est l'utilitaires d'access qui a gerer la pilote de connection entre le tables liées et celles dorsales.

[cassidy]

DelphiManiac , STP au secours!
Comment continué avec le code que tu m'a communiqué plus haut . je suis bloqué

[cassidy]

Delphimaniac!

ça marche , il yavait une erreur dans le code que tu m'a donnée, puisque j'ai fait du copier coller sans controler!! *

merci à tous

[DelphiManiac]

Bien content que ca marche, et c'est vrai que des fois le copier/coller, il faut vérifier un minimum