Connexion a une base de données...particuliére.

Question

Bonjour Je réalise un projet : un programme de gestion de BDD d'une base de données, qui sera, dans l'avenir, amené a être transferé. Je devais réaliser le module de connexion. Personellement, j'utilisais tout simplement les 5-6 ligne de code pour se connecter avec ADO. ( cx.connection, cx.recordset....) Visiblement, cela ne convient pas et on me demande de me connecter de la sorte : ____________________________________________ Private Sub Form_Load() Dim Valeur As String 'Enregistre l'emplacement de la BDD BDD_HDD = CStr(LIRE_INI("BDD")) If BDD_HDD = String(255, 0) Then Do Valeur = InputBox("Quel est le chemin de la base de données contenant les adresses ?", "Emplacement de la base de données") Call Ecrire_INI("BDD", Valeur) BDD_HDD = CStr(LIRE_INI("BDD")) Loop Until Trim(BDD_HDD) <> "" End If 'Ouverture de la base de données Set BDD = New ADODB.Connection BDD.Provider = "Microsoft.jet.oledb.4.0" BDD.ConnectionString = BDD_HDD _________________________________________________________ Heu pourquoi compliquer la tache en utilisant cette méthode ? D'autre part, je ne comprends pas plusieurs élèments : - BDD_HDD = CStr(LIRE_INI("BDD")) - L'appel de procedure. ( pourquoi une procedure d'écriture si c'est juste le module de connexion a la BDD ? ) - Pour une Répeter... Jusqu'a ??? merci d'avance

Doc VB · Answer

Salut, On peut supposer que la personne qui te demande ça a de bonnes raisons de le faire(?).

BDD_HDD = CStr(LIRE_INI("BDD")) Ca signifie que la chaîne de connexion est destinée à être lue depuis un fichier de configuration.

L'appel de procedure. ( pourquoi une procedure d'écriture si c'est juste le module de connexion a la BDD ? ) En toute logique, si le fichier de configuration (utilisé précédemment) est vide, on demande à l'utilisateur les informations de connexions puis on les enregistre dans le fichier.

Pour une Répeter... Jusqu'a ??? Cela oblige l'utilisateur à saisir quelque chose. Il est si facile d'appuyer sur entrée machinalement sans avoir rien saisi. Donc la boucle s'assure que la chaîne de connexion n'est effectivement pas vide.

Cette méthode n'est pas si compliquée en fin de compte, elle permet de prendre en compte le cas de l'installation de l'application sur une nouvelle machine en demandant alors la saisie des informations de connexion à la base de données lors du premier démarrage du programme.

AlicePabelle · Answer

Salut

tout d'abord, merci pour ta réponse. 

Oui, j'imagine qu'il y a une bonne raison pour utiliser cette methode, même si je ne les connais, pas. bref, je suis obligé d'utiliser cette méthode.

A vrai dire, c'est la premiere fois que j'utilise cette méthode, j'ai donc encore un peu de mal :

- LIRE_INI heu je dois remplacer ca par quoi ? j'ai rien d'autre en rapport avec la connexion a la BDD a ce stade du projet.

- Qu'appel tu un fichier de configuration ? une connexion c'est juste....une connexion non ? qui y a t il a configurer ?

- donc si je resume, cette méthode sert a faire" :

" J'enregistre l'emplacement de la base de données, et j'ouvre le INI. S'il est vide, alors je le créer en faisant appel a une procedure, afin que l'utilisateur puisse la configurer.
Je m'assure qu'il la configure en mettant une Repeter, et j'ouvre la base de données "

C'est ca ?

Doc VB · Answer

Ce que j'appelle un fichier de configuration c'est un fichier qui accompagne en général une application et qui sert à stocker les informations utiles à son bon fonctionnement (mais pas uniquement). Ce genre de fichier peut également servir à stocker les préférences de l'utilisateur et ainsi à les restaurer lorsqu'il redémarre l'application.
Son contenu peut ressembler à qq chose dans ce genre :
...
[connect CustomerDatabase]
Access=ReadWrite
Connect="DSN=AdvWorks"

[sql CustomerById]
Sql="SELECT * FROM Customers WHERE CustomerID = ?"
...

"LIRE_INI" est une fonction que tu dois pouvoir retrouver facilement sur ce site. Elle ouvre le fichier de configuration et regarde à l'intérieur la valeur associée à BDD pour l'affecter à ta variable BDD_HDD.

On peut supposer qu'après avoir installé ton programme sur un nouveau PC, ton fichier de configuration n'existe pas ou alors qu'il est vide. Dans ce cas ta variable BDD_HDD sera vide. C'est pourquoi alors on demande comment établir la connexion.
Par la suite et pour éviter de demander à l'utilisateur de saisir la chaîne de connxion à chaque lancement de l'application, on enregistre alors cette information dans le fichier de configuration.

Pour résumer, cette méthode sert à :
1) lire la chaîne de connexion dans le fichier INI
2) si la chaîne n'existe pas ou bien si elle est vide on demande à l'utilisateur de saisir l'information
  2b) on stocke la valeur dans le fichier INI
  2c) on s'assure que cette valeur n'est pas vide
3) on ouvre la connexion à la base de données

AlicePabelle · Answer

Hum, merci, grace a tes explications, je vois plus clairement la théorie du truc. Bon par contre je dois t'avouer que dans la pratiquer je suis un peu paumé la. en recherchant l'écriture / lecture d'un ini, je tombe sur des dizaines et des dizaines de ligne de code, dont j'ai du mal a tout comprendre. La personne en question qui m'a demandé ca m'a fournit : -Le code ci dessus, pour la connexion et l'ini - un exemple de requete SQL Sub Initialisation_liste_Nom() 'Ouverture Call Procédures_Locales.Ouverture_d_enregistrement(LIEU_DOMICILE) LIEU_DOMICILE.Open "SELECT * FROM [LIEU DOMICILE] ORDER BY Nom", BDD 'remplissage dans la liste déroulante If Not LIEU_DOMICILE.EOF Then Do Contact.L_Nom.AddItem LIEU_DOMICILE!Nom & " - " & Trim(LIEU_DOMICILE!Cp_D & " ") & " " & Trim(LIEU_DOMICILE!Ville_D & " ") Contact.L_Nom_Num.AddItem LIEU_DOMICILE!NumLieuD LIEU_DOMICILE.MoveNext Loop Until LIEU_DOMICILE.EOF End If 'Fermeture Call Procédures_Locales.Fermeture_d_enregistrement(LIEU_DOMICILE) End Sub et sa méthode : Sub Ouverture_d_enregistrement(ByRef NomdEnregistrement As ADODB.Recordset) 'Ouverture de la BDD + Initialisation de l'Enregistrement If BDD.State = 0 Then BDD.Open Debug.Print "Ouverture de la base de données" End If Set NomdEnregistrement = New ADODB.Recordset End Sub Sub Fermeture_d_enregistrement(ByRef NomdEnregistrement As ADODB.Recordset) 'Fermeture de la BDD If BDD.State = 1 Then BDD.Close Debug.Print "Fermeture de la base de données" End If End Sub J'ai un peu de mal a voir comment organiser tout ca, n'auriez vous pas quelques pistes a me donner ? :(

Doc VB · Answer

Pour la partie INI, essaye de faire un peu de tri et de regarder les exemples, par ailleurs il existe déjà de nombreux posts sur le sujet, je suis sûr que tu t'en sortiras.


Le nouveau code que tu donnes concerne une toute autre partie, et rien que les commentaires suffisent à comprendre son utilité. Une requête est lancée sur la table "LIEU_DOMICILE" et son résultat sert à remplir deux listes déroulantes.

AlicePabelle · Answer

Trés bien, merci, je vais faire des recherche.

Connexion a une base de données...particuliére.

6 réponses

Votre réponse

Discussions similaires