Designed by Maunakea !
72 en ligne   Boutique | Sites | Bar | Forum | PhpBB | Actu | Glossaire | Codes | Tips | Liens | Livres | Lettre  


 Recherche

 NewsLetter






   

Créer un composant ASP

Exemple de compactage d'une BD MSAccess







LENNE.Compactor - Windows Script Component
==============================================================
Compact une base de données Access
. © Copyright Ludovic Lenne - 2002

1 2 3 4 5 6 7

Devant la demande importante sur la création de composant script ASP pour Windows, il a bien fallu que j'agisse.
Ne voulant décevoir personne, j'ai pris le parti de concevoir et de développer un Windows Script Component dont voici les objectifs, les contraintes, les éléments, et bien sûr les explications.
Je vous conseille par conséquent de jetez un oeil, si ce n'est déjà fait, au tutoriel sur comment compacter un base de données Access).

Vous pouvez télécharger le composant LENNE.Compactor ici.

Attention on est pas là pour rigoler, accrocher vos ceintures, c'est long (Vous trouverez des numéros correspondants aux différents pages tout au long du document).


Les objectifs :
Créer un composant capable de compacter une base de donnée Access.

Les contraintes : Ce composant doit être utilisable dans des pages ASP, sans nécessiter un codage important et offrant le plus grand nombre d'options possible.

Les outils : Windows Script Component Wizard (téléchargeable ici), Windows 2000 Server et enfin le serveur Web IIS.


Maintenant que je sais ce que je veux faire, comment faire ?



Je vais pour cela créer un composant script réutilisable, pour compacter une base de donnée Access.
Il me faut maintenant choisir le nom de ce composant. Ce sera LENNE.Compactor . ;-)
Définissons quelles vont être les propriétés et les méthodes de notre composant : (il nous sera toujours possible d'en ajouter ou de les modifier par la suite)

1 2 3 4 5 6 7

© Copyright Ludovic Lenne - 2002

L'objet : LENNE.Compactor

Les propriétés :

Backup : Retourne et Fixe la valeur booléenne de la sauvegarde de la base de données Access à compacter avec l'extension _AnnéeMoisJour.bak .
               Par défaut sa valeur est False.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.Backup = False
                 stringBackup = objCompactor.Backup
                 Response.Write stringBackup

résultat :    False

NameBase : Fixe le nom du fichier de la base de données Access à compacter.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.
NameBase = "MyDatabase.mdb"

 

PathBase : Fixe le chemin du répertoire où se situe la base de données Access à compacter.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PathBase = "c:\Database\"

 

1 2 3 4 5 6 7

UidBase : Fixe la valeur de l'identifiant d'accès à la base de données Access à compacter.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.UidBase = "My_User_Id"

 

PwdBase : Fixe la valeur du mot de passe d'accès à la base de données Access à compacter.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PwdBase = "My_Password"

      

Engine : Retourne et Fixe le type de la base de données compactée. Correspond à Engine Type [ 3 (Access 2), 4 (Access 97), 5 (Access 2000) ].
              Par défaut la valeur est 5 (Access 2000).

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.Engine = 4
                 stringEngine = objCompactor.Engine
                 Response.Write stringEngine

résultat :    4

 

Enctype : Retourne et Fixe la valeur booléenne du cryptage de la bases de données compactée.
                Par défaut sa valeur est False.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.Enctype = False
                 stringEnctype = objCompactor.Enctype
                 Response.Write stringEnctype

résultat :    False

1 2 3 4 5 6 7

PathCompact : Retourne et Fixe le chemin du répertoire où se situe le travail de compactage de la base de données Access.
                        L'espace disponible dans ce répertoire doit être au moins égal à la taille de la base de données Access à compacter.
                        Par défaut la valeur est celle de PathBase.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PathCompact = "D:\Temp\"
                 stringCompact = objCompactor.PathCompact
                 Response.Write stringCompact

résultat :    D:\Temp\

 

NameCompact : Retourne le nom de la base de données de compactage.
                          Le nom se présentera sous la forme "My_Database.mdbCompactor.mdb".

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 stringNameCompact = objCompactor.NameCompact
                 Response.Write stringNameCompact

résultat :   My_Database.mdbCompactor.mdb

 

UidCompact : Retourne et Fixe la valeur de l'identifiant d'accès à la base de données Access compactée.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.UidCompact = "My_New_User_Id"
                 stringUidCompact = objCompactor.UidCompact
                 Response.Write stringUidCompact

résultat :   My_New_User_Id

1 2 3 4 5 6 7

PwdCompact : Retourne et Fixe la valeur du mot de passe d'accès à la base de données Access compactée.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objCompactor.PwdCompact = "My_New_Password"
                 stringPwdCompact " = objCompactor.PwdCompact
                 Response.Write stringPwdCompact

résultat :   My_New_Password

 

Les méthodes :

Compact "MapPathDatabase" : Compacte la base de données Access à compacter indiquée en paramètre.
                                                  Utilise l'ensemble des paramètres fixés dans les propriétés, à l'exception de la base de données à compacter.
                                                  Le paramètre MapPathDatabase peut-être nul.

syntaxe :   Set objCompactor = Server.CreateObject("LENNE.Compactor")
                 objGenXML.Compact Server.MapPath("My_Database.mdb")

 

Les syntaxes :

Voici la syntaxe complète pour le compactage d'une base de données Access, à vous bien sûr de remplir les champs en rouge.

Set objCompactor = Server.CreateObject("LENNE.Compactor")
objCompactor.Backup = True
objCompactor.
NameBase = "MyDatabase.mdb"
objCompactor.PathBase = "c:\Database\"
objCompactor.UidBase = "My_User_Id"
objCompactor.PwdBase = "My_Password"
objCompactor.Engine = 4
objCompactor.Enctype = False
objCompactor.PathCompact = "D:\Temp\"
objCompactor.UidCompact = "My_New_User_Id"
objCompactor.PwdCompact = "My_New_Password"
objGenXML.Compact
Set objCompactor = Nothing

Et maintenant voici plus simple ;-). La base de données à compacter est une base Access non protégée. La base de données compactée est une base de données Access 2000, non protégée, non cryptée. Nous ne faisons pas de sauvegarde de la base de données à compacter. L'espace disque est suffisant dans le répertoire de la base à compacter (le poids de la base à compacter).

Set objCompactor = Server.CreateObject("LENNE.Compactor")
objGenXML.Compact Server.MapPath("My_Database.mdb")
Set objCompactor = Nothing

 

1 2 3 4 5 6 7

Voilà qui est fait. En tout cas pour la première partie : nous avons défini les propriétés et les métodes de notre objet.
Maintenant il n'y a plus qu'à lancer le programme Windows Script Component Wizard (téléchargeable ici).

A l'ouverture du premier écran.
Vous pouvez mettre ce que vous voulez dans les champs Name, Version, Filemame et Location.
Le fichier avec l'extension ".wsc" sera crée à l'emplacement "Location" avec le nom du fichier "Filename".
Attention Dans le Prog Id mettez le nom de l'objet que vous voulez créer. Ici LENNE.Compactor
Vous aurez sans doute du mal à changer le numéro de version, mais nous pourrons le faire plus tard.

Define Windows Script Component

Name :      
Filename : 
Prog Id :    

Version :   

Location :  


Au dieuxième écran, on vous demande de spécifier le language de script. Vous avez le choix entre VBScript ou JScript.
Cochez la case "Do you want special implements support ?" et choissisez le bouton radio "Support Active Server Pages".
N'hesitez pas à cocher "Error Checking" et "Debugging".

Au troisième écran, nous devons maintenant rentrer les propriétés définies précédemment (vous pourrez en ajouter par la suite).


Name Type Default
Backup
Read/Write
false
NameBase Write-Only  
PathBase Write-Only  
UidBase
Write-Only
 
PwdBase Write-Only  
Engine Read/Write 5
Enctype Read/Write false
PathCompact Read/Write  
UidCompact Read/Write  
PwdCompact Read/Write  


1 2 3 4 5 6 7

Nous voici au quatrième et dernier écran. Il nous faut rentrer maintenant les méthodes de notre objet.
Attention Les paramètres des méthodes doivent être séparés par de virgules.
Si la méthode n'a aucun paramètre, laissez le champ vide.


Name Parameters
Compact
Compactor_NameBase


Il existe un cinqième écran qui vous demande le nom de vos événements. Je passerai ici sans plus d'explication.
Le sixième écran vous donne les infos sur le composant que vous être en train de créer. Validez, et voyons un peu à quoi ressemble le fichier "Compactor.wsc".

Lisez ce fichier avec les commentaires explicatifs que j'y ai mis.
J'ai modifié ce fichier en y ajoutant l'extension ".xml" pour une meilleure lisibilité (Cliquez ici).

Vous pouvez télécharger le composant LENNE.Compactor ici.

Attention Les commentaires ne sont pas autorisés dans le fichier final. Dans le cas contraire, une erreur sera générée.


A présent, il vous reste à cliquer le bouton droit de votre souris sur le fichier Compactor.wsc et inscrire le composant.

Bien sûr si vous avez des questions, si certains points ne vous parraissent pas très clair, vous voulez apporter une amélioration, ou pour me passer le bonjour, envoyer moi un message à ludovic@lenne.org

N.B. : Je vous prépare une grosse surprise. Un gros composant script, de création de fichier XML à partir de base de données, avec son propre language.
Ce composant vous intéresse demandez le ici (plus vous serez nombreux plus je serai motivé ;-)

Ludovic Lenne ;)

Llenne le 30/06/2009 (33 994 hits)
Didier Téléchargez gratuitement et légalement des logiciels Microsoft ! Si, si ;)
  • Visual Studio 2010
  • Office 2010
  • Expression Studio 3
  • SQL Server 2008
  • et d'autres...
Au fil des news  
Magazines - Le N°128 de Programmez est disponible
Magazines - Le N°127 de Programmez est disponible
Dreamweaver CS4 + Php + Mysql - Trucs et Astuces - Part 6
Pour continuer dans le même style, je vous propose une suite au précédent article. Rechercher tous ...
Adobe - Adobe Photoshop.com Mobile pour iPhone 1.1
JavaScript - Ajouter une page dans vos favorites
Dreamweaver CS4 + Php + Mysql - Trucs et Astuces - Part 5 -
Je vous propose cette fois deux astuces. Comment exporter une feuille de style avec l'aide de ...
SharePoint Personalization Site Links - Les liens personnalisés des MySite SharePoint
Nous avons vu dans les articles précédents comment agrémenter les pages de recherche afin de ...
Magazines - Le n°126 de Programmez est disponible
Outils - Traducteur en ligne automatique pour site web
Adobe - Adobe Photoshop.com Mobile pour Iphone
Magazines - Le n°125 de Programmez est disponible
Adobe - Adobe AIR 2 et Flash Player 10.1version bêta
Les conférences autour des technologies Microsoft - Liste non exhaustive des grands évènements
Nous allons essayer de regrouper un grand nombre des évènements autour des technologies Microsoft ...
Magazines - Le n°124 de Programmez est disponible
PHP - Forum PHP 2009
Composants - eFace - XAML en Java
WPF - Désactiver le bouton de réduction d'une fenêtre
Magazines - Le n°123 de Programmez est disponible
Magazines - Le n°122 de Programmez est disponible
Auditer une ferme SharePoint - Assurer le bon fonctionnement de SharePoint
Dans le cadre de la bonne gestion de son environnement SharePoint, il est utile de faire un ...
SQL Server 2008 Report Builder 2.0 - Installation et utilisation de Report Builder 2.0
Dans le cadre de la création de rapports pour SQL Server Reporting Services 2008, un outil est ...
Magazines - Le HS N° 1 de Web Design est disponible
Adobe - Adobe propose en Open Source les frameworks.....
Outils - EntityBuilder
CSharp - Sérialisation XML de vos objets
Magazines - Le n°121 de Programmez est disponible
Adobe - Adobe annonce MAX 2009 !
Outils - WhoIs
[MAJ] Dreamweaver MX + Php + MySql - Les formulaires - partie 3
Mise à jour du code, par DB 77, affichage du code erreur, dans la page erreur.php, traduction des ...
PHP - News avec photo - Système de gestion - affichage
Gestion - Administration - Affichage d'une "News", "Actualité", "Info", ... avec : - mise en forme ...
Outils - Crypt
Dreamweaver Php Mysql - Région répétée imbriquée
Je rebondis, sur un post du forum, pour vous montrer comment obtenir grâce à l'extension Simulated ...
Magazines - Le n° 120 de Programmez est disponible
Gérer les bases de contenu SharePoint - Gérer la croissance du volume des données
Dans le cadre de la gestion quotidienne de ferme SharePoint, il existe une partie qu'il faut ...
PHP - Le Coach PHP sur Visual Studio
.NET - Ecrire une application .NET utilisant MySQL
PHP - Utilisation de PHP dans le monde Microsoft
Magazines - Le n° 119 de Programmez est disponible
Adobe - Adobe annonce Photoshop Marketplace
[MAJ] Tutoriel AJAX simple - En avant vers le WEB2.0
Mis à jour le 20/04/2009
Tutorial : HTML | Scripting | ASP-PHP | ASP.net | SQL Server | XML
Sharepoint | XAML | Pocket | Dreamweaver | VML | Divers
  Scripts : Scripting | ASP-PHP | ASP.net | Divers
  Boutique | Annuaire | Bannières | Météo | Tribune | Partenariats
v3b © Didier 2003   
 

Corpo Sciences de Reims Partitions gratuites Carte, météo, annonces
 DotNet Project ASP-magazine TechNet Groupes Utilisateurs Microsoft MVP