Lazarus - Login à une Base de Données Access protégée par mot de passe

 

Description :

Exemple d'une application créée avec Lazarus qui permet de se connecter à une base de données Microsoft Office Access protégée par un mot de passe de sécurité.

Exemple 1 : Débutant V1

Exemple simple, pour ça il faut définir manuellement le chemin vers la base de données "Materiels_Informatique.mdb" ou "Materiels_Informatique.accdb" dans les propriétés du composant ADOConnection1 comme suite :

- Pour base de données Access 2002-2003 (*.mdb) et 2007 (*.accdb)  :

with dm.ODBCConnection1 do

begin

Close;

LoginPrompt:=false;

KeepConnection:=true;

Driver:='Microsoft Access Driver (*.mdb, *.accdb)';

{dm.ODBCConnection1.Params : Paramètres de ODBCConnection1}

params.Clear;

Params.Add('DBQ='+ExtractFilePath(Application.ExeName)+'Materiels_Informatique.accdb'); //Chemin vers la base de données Access (.mdb ou .accdb)

Params.Add('Locale Identifier=1031');

Params.Add('PWD='+Edit_MotDePasse.Text); //Mot de passe de la base de données

end;{with dm.ODBCConnection1}

 

Voir: Lazarus - Comment connecter ODBCConnection1 à une base de données Microsoft Access protégée par un mot de passe de sécurité 

 

Dans l’unité « Project1 », la forme « F_login » doit être la forme qui se créer en premier, pour que lorsque on lance l’application c’est la forme « F_login » qui va s’afficher en premier et sera la forme principale du projet Lazarus, comme suite :

 

Exemple 2 : Débutant V2

 

Liens pour télécharger les codes sources des projets Lazarus :

Débutant V1 + V2 : Télécharger depuis (Google Drive)

 

Delphi - Comment connecter ADOConnection1 à une base de données Microsoft Access protégée par un mot de passe de sécurité

1. On double clique sur le composant ADOConnection1

2 . Dans la fenêtre qui va s'afficher, on clique sur le bouton "Build" pour construire la chaîne de connecxion

 3. Dans l'onglet "Fournisseur" on choisit :

- "Microsoft Jet 4.0 OLE DB Provider" pour se connecter à une base de données Access 2002-2003 (.mdb)

- "Microsoft Office 12.0 Access Database Engine OLE DB Provider" pour se connecter à une base de données Access 2007 (.accdb)

Dans cet exemple on va choisir "Microsoft Jet 4.0 OLE DB Provider" et on clique sur le bouton Suivant.

 4. Dans l'onglet "Connexion" on clique sur le petit bouton pour chercher et sélectionner la base de données Access 

Remarque : Si la base de données n'est pas protégée par un mot de passe on clique directement sur le bouton "Tester la connexion", sinon on doit définir le mot de passe dans l'onglet "Toutes"

 

5. On clique sur l'onglet "Toutes" et on cherche la propriété "JET OLEDB:Database Password" et on clique sur le bouton "Modifier la valeur"

6. Dans la fenêtre qui va s'afficher, on saisit le mot de passe de la base de données Access et on clique sur le bouton OK

 

7. On retourne vers l'onglet "Connexion" et on clique sur le bouton "Tester la connexion", Si le test de connexion à réussi alors on clique sur le bouton OK pour valider et fermer la fenêtre suivante

8. On clique sur OK pour valider

 

9. Et au finale on termine par :

Mettre la propriété "LoginPrompt" à False

Mettre la propriété "Connected" à True

Lazarus - Comment connecter ODBCConnection1 à une base de données Microsoft Access protégée par un mot de passe de sécurité

 

1. On sélectionne le composant ODBCConnection1, ensuite :

- Ajouter « Microsoft Access Driver (*.mdb, *.accdb) » à la propriété Driver du composant ODBCConnection1

- Mettre KeepConnection à True

- Mettre LoginPrompt à False

 

2.

On clique sur le bouton de la propriété Params du composant ODBCConnection1, et dans la fenêtre qui va s’afficher on saisi comme dans la figure :

DBQ=.\Nom_Base_Données.accdb

PWD=Mot_De_Passe

DBQ=.\Nom_Base_Données.accdb -- On précède le nom de la base de données par « .\ » si elle se trouve dans le même emplacement que celui de l’exécutable « Project1.exe », sinon on doit spécifier le chemin comme D:\Database\Nom_Base_Données.accdb

 

Et au finale, on met : 

Connected à True

Delphi - Login à une Base de Données Microsoft Access protégée par mot de passe

Description :

Exemples d'une application créée avec Borland Delphi 7 qui permet de se connecter à une base de données Microsoft Office Access protégée par un mot de passe de sécurité. 

Exemple 1 : Débutant V1

Exemple simple, pour ça il faut définir manuellement le chemin vers la base de données "Materiels_Informatique.mdb" ou "Materiels_Informatique.accdb" dans les propriétés du composant ADOConnection1 comme suite :

with dm.ADOConnection1 do
 begin
  Close;
  LoginPrompt:=false;
  ConnectionString:='';
  dm.ADOConnection1.Provider:='Microsoft.Jet.OLEDB.4.0';    //Pour base de données Access 2002-2003 (*.mdb)
  //dm.ADOConnection1.Provider:='Microsoft.ACE.OLEDB.12.0';  //Pour base de données Access 2007 (*.accdb)

     {dm.ADOConnection1.Properties : Propriétés de ADOConnection}
   Properties['Data Source'].Value:=ExtractFilePath(Application.ExeName)+ 'Materiels_Informatique.mdb';    //Chemin de la BD
   Properties['Persist Security Info'].Value:=False;
   Properties['Jet OLEDB:Database Password'].Value:=Edit_MotDePasse.Text;

  end;{with ADOConnection1}

- Dans l’unité « Project1 », la forme « F_login » doit être la forme qui se créer en premier, pour que lorsque on lance l’application c’est la forme « F_login » qui va s’afficher en premier et sera la forme principale du projet Delphi, comme suite :

Exemple 2 : Débutant V2

Lorsque on lance pour la première fois cette application on doit spécifier le chemin d’accès à la base de données "Materiels_Informatique.mdb" ou "Materiels_Informatique.accdb".Et lorsque on se connecte avec cette application à la base de données "Materiels_Informatique.mdb" par exemple, et que la connexion est établi avec succès, un fichier de configuration "Config.ini" se créer automatiquement dans le même répertoire que celui de l’exécutable qui va stocker le chemin d’accès vers la base de données "Materiels_Informatique.mdb" et comme ça la spécification du chemin d'accès à la base de données "Materiels_Informatique.mdb" ne sera pas demandé à chaque tentative de connexion.

- Dans l’unité « Project1 », la forme « F_login » doit être la forme qui se créer en premier, pour que lorsque on lance l’application c’est la forme « F_login » qui va s’afficher en premier et sera la forme principale du projet Delphi, comme suite :

 

Voir : Comment se connecter avec ADOConnection à une base de données Microsoft Access protégée par un mot de passe de sécurité dans Delphi

 

Lien de téléchargement des codes sources :

Débutant V1 : Télécharger depuis (Google Drive)

Débutant V2 :  Télécharger depuis (Google Drive)

Delphi - login à une base de données MS SQL Server (Débutant)

 Exemple 1 : Débutant V1

  Exemple 2 : Débutant V2

Description :

Application créée avec Borland Delphi 7 qui permet de se connecter à une base de données Microsoft SQL Server (Microsoft SQL Server Express Edition) avec une authentification SQL Server.

Au lancement de cette application une fenêtre de connexion (login) s'affiche en premier qui nécessite d'introduire un nom d'utilisateur et un mot de passe valides afin de se connecter à la base de données SQL Server.

1- On doit exécuter le script "Script_creation_BD_Tables_Utilisateurs.sql" avec "SQL Server Management Studio" pour créer le la base de données "BD_materielsInformatiques" et l'utilisateur "admin" (mot de passe= admin) fournit avec le projet.

 

2- Dans l'unité U_login du projet : on va definir les valeurs des propriétés du composants "ADOConnection1" comme suite:

..

...

with dm.ADOConnection1 do
    begin
     .......
     ......
     ConnectionString:='';
      dm.ADOConnection1.Provider:='SQLOLEDB.1';
     {dm.ADOConnection1.Properties :}
      Properties['User ID'].Value:=Edit_utilisateur.Text;
      Properties['Password'].Value:=Edit_MotDePasse.Text;
      Properties['Initial Catalog'].Value:='BD_materielsInformatiques';  //Nom de la base de données
      Properties['Data Source'].Value:=Edit_NomServeur.Text;
      Properties['Persist Security Info'].Value:=False;

    end;{with ADOConnection1}

...

..

Exemple:

 

NomDeVotreServeurSQLServer = NomOrdinateur\SQLExpress comme : (Poste-02\SQLExpress ) Si c'est la version Express Edition. Lors de l'installation de SQL Server Express par defaut le nom de l'instance est SQLExpress, mais il y a aussi la possibilité de changer le nom de l'instance.

 

 

Dans le fichier de projet "Project1.dpr", c'est la forme "F_login" qui doit se créer en premier au lancement de l'application avant la création de la forme principale "F_principale".

 

 

Liens du téléchargement du code source du projet :

 

Débutant v1 : Télécharger depuis (Google Drive)

 

Débutant v2 : Télécharger depuis (Google Drive)

 

Avancé : bientôt