Apprenez comment migrer une base Microsoft Access en un projet ADP Microsoft SQL Server

Date de publication : 21/10/2006 , Date de mise à jour : 21/11/2006

Par Jean-Philippe AMBROSINO (home page)
 

1. Avant propos

1-1. Remerciements

1-2. Contact

1-3. Extraits

2. Présentation du projet

3. Quand et pourquoi migrer ?

4. Quel est l'avantage de SQL Server par rapport à une base Access ?

4-1. Des performances accrues

4-2. Le mode de sauvegarde plus efficace

• Dynamique
• Incrémentielle
• Complète

4-3. Fragilité minimisée

4-4. Licence SQL Server et licence MSDE

4-5. Pour résumer

5. Le processus de migration de votre projet

5-1. Qu'est-ce que la migration ?

• Vérifier la présence d'un client SQL sur le poste où sera effectuée la migration.
• Assurer la concordance entre le serveur et la base SQL devant recevoir les objets de votre projet.
• Vous proposer les différents modes de migration qui sont au nombre de trois.

Notez au passage que les propriétés de masque de saisie et assimilées sont inexistantes dans une table SQL Server du fait que ce soit un automatisme non normalisé.

5-2. Comment utiliser l'Assistant de migration SQL Server ?

Pour Access version 97, vous devez préalablement télécharger et installer les outils indispensables à la migration, ceux-ci n'étant pas implémentés par défaut. Les outils de migration pour Access 97 se trouvent ici :

6. Avant d'utiliser l'Assistant Migration

1. La première des choses est bien entendu de faire une copie de sauvegarde de votre base de données application…
   Le mieux est de copier le dossier de votre projet complet que vous nommez par exemple du même nom précédé ou suivi de "ADP" ou "SQL"…
2. Il vous faut par ailleurs désactiver le mot de passe VBA de votre projet à migrer s'il y en a un...
3. Il faut égalemnt que vous disposiez d'un espace disque suffisant surtout si vous disposez de la version 6.5 de SQL Server.
4. Il vous faut ouvrir votre base de données contenant les données et donc les tables en mode exclusif afin de vérifier que ces dernières possèdent bien un index unique et les ajouter sinon...
5. Il vous faut vous assurer que vous que vous avez les droits suffisants pour créer une base de données SQL Server et à ce titre munissez-vous du nom du serveur cible, du nom de connexion et du mot de passe requis : l'idéal étant d'être un administrateur système

6-1. Que faire si ma base de données est scindée ?

Les tables masquées ne sont pas listées dans le processus de migration donc si elles doivent être migrées, veillez à changer leur propriété Masquée à Non.

7. Lancer l'Assistant Migration

Une fois que vous avez effectué toutes les tâches pré-requises pour mener à bien la migration de votre projet, vous pouvez lancer l'Assistant Migration…

Avant toute chose Avant toute chose, je considère que vous maîtrisez SQL Server tant du coté administratif que du coté technique en ce qui concerne la gestion des serveurs et la création de base de données SQL Server.

7-1. Les différents modes de migration

Bien qu'il existe différents modes de migration, celui que je vais aborder dans ce tutoriel est de loin le plus complexe puisqu'il consiste à transformer votre base Access en Projet Access ce qui signifie qu'il y aura un nombre conséquent de changements à prévoir notamment en ce qui concerne le code VBA et les requêtes définies comme complexes.

7-2. Lancement de l'Assistant

Pour lancer l'Assistant Migration SQL Server, cliquez sur le menu Outils/Utilitaires de base de données puis choisissez la rubrique sis nommée.

Le processus lancé, un temps d'attente se met en route avant de vous proposer la première étape du cycle de migration…

7-2-1. Sélection de la base de données

Une fois cela terminé, la fenêtre suivante apparaît et vous demande de sélectionner l'option appropriée, à savoir créer une nouvelle base ou utiliser une base existante.

• En choisissant la première option, vous allez devoir sélectionner la source de données afin de créer la connexion ODBC appropriée de manière à ce que vous puissiez accéder à la base de données SQL Server visée…
• En choisissant la seconde, il vous suffira de suivre les instructions du fait que l'Assistant se chargera de générer la base de données en se reflétant sur la base de données Access.

Dans mon cas évoqué, je choisis de créer une nouvelle base de données…

L'étape suivante vous invite à sélectionner le serveur dans lequel l'Assistant Migration SQL Server doit créer la Base de données.
Vous pouvez indifféremment saisir le nom de ce serveur ou bien le choisir dans la liste.
Il faut bien entendu que ce dernier soit disponible et que son alias pointe correctement sur le bon serveur.

Cliquez alors sur Suivant…

Les zones de Nom d'accès et Mot de passe peuvent à cet instant rester vide ou être renseigner comme il se doit…
De toute façon, vous ne pourrez continuer que lorsque les informations de connexion seront approuvées…
En cas se saisie incorrecte des paramètres de connexion, ce message apparaît…

Vous appuyez alors sur OK et l'invite de saisie des informations requises s'affiche en conservant le nom du serveur que vous avez sélectionné.

Entrez de nouveau votre ID de connexion et votre mot de passe…

7-2-2. Annulation de la procédure

Si vous annulez à cette étape, l'Assistant se ferme.
Le fait de le relancer entraîne le même cycle d'affichage des boîtes de dialogue mais l'Assistant Migration SQL Server prend l'initiative de modifier le nom de votre projet Base de données SQL pour éviter tout conflit du fait qu'il ne sache pas vous proposer d'écraser la base qu'il vient de créer.

Ce sera donc à vous de procéder à la suppression de la base fraîchement créée (et peut-être incomplète) depuis Entreprise Manager si vous voulez conserver le nom initial de votre projet sans suffixe numérique.

Il est en effet pas possible de remplacer la version existante de la Base de données.

7-2-3. Sélection des tables à migrer

L'étape suivante vous invite à choisir les tables à migrer.
Cette liste comprend l'ensemble des tables (visibles) de la base.

RAPPEL : Dans la mesure où vous avez des tables masquées par vous-même, ces dernières ne seront pas incluses dans la liste.

- Cliquez sur le bouton pour migrer l'ensemble des tables listées ou sur le bouton pour migrer la table sélectionnée.

- Inversement, les boutons et retirent respectivement toutes les tables ou la table sélectionnée.

- Le double-clic dans les listes possède le même effet que les boutons et

Dans mon exemple, je choisis de migrer toutes les tables…

Cliquez alors sur Suivant…

7-2-4. Les attributs de votre base de données

A l'étape suivante, il est question des attributs de champ.

Dans cette étape, vous pouvez choisir d'inclure les attributs de votre base de données à savoir les index, les règles de validation, les valeurs par défaut et les relations entre tables.

En considérant ces attributs, notez que l'Assistant Migration SQL Server prend la liberté de renommer les champs qui ne sont pas conforme à la norme SQL (champs avec espaces notamment) et converti les types de champ Access en types de champ SQL Server.

7-2-5. Comment l'Assistant Migration SQL Server convertit les champs ?

Les types champs des Bases de données sont quasiment tous identiques mais ne sont pas nommés de façon identique entre deux Bases de données distinctes.

Un nombre Entier reste un nombre Entier dans n'importe quelle Base de données, mais son appellation de type et la valeur de ce dernier peuvent varier selon le cas : Entier pour SmallInt et Entier Long pour Int par exemple.

Liste des types de champ Access et leur correspondance SQL Server

Types de champ ACCESS	Types de champ SQL Server
Nombre	Int / TinyInt / SmallInt
Oui/Non	Bit
Texte	Char / Nchar / Varchar
Monétaire	Money
Date/Time	Datetime / SmallDatetime
Mémo	Text / Ntext
Objet OLE	Binary / Image
Numéro Auto	Identity

Les attributs à migrer

Les attributs sont les informations que vous affectez à vos champs lorsque vous concevez une table.

Normalement, vous pouvez laisser ces cases cochées par défaut.

Données à inclure

L'option Utiliser DRI (Declarative Referential Integrity) qui signifie Intégrité Référentielle Déclarative réagit un peu comme sous Access lorsque vous tentez de supprimer une table liée à une autre avec des règles d'intégrité révérencielles…

Donc cochez Utiliser DRI et la case à cocher Relation entre les tables pour faire en sorte que les règles d'intégrité référentielle soient appliquées telles qu'elles le sont dans votre base de données Access actuelle.

7-2-6. Migration des données

7-2-7. Mode de migration de votre Base de données

L'opération de renommage des tables est conséquente au fait que vous avez adopté ou non une convention de nommage correcte. Trop souvent, je constate que des développeurs nomment leurs objets n'importe comment (espaces, accents…) ce qui fait qu'ici, ils seront pénalisés par une surcharge de travail en ce qui concerne plus particulièrement le code VBA résidant dans l'application où l'Assistant Migration SQL Server n'intervient en aucun cas. Pour plus d'information en ce qui concerne les conventions de nommage des objets, cliquez ici.

7-2-8. Compte rendu de migration

8. Problèmes rencontrés lors du lancement de l'Assistant

8-1. Dépassement de capacité avec l'Assistant Migration SQL Server

8-2. Comment installer Microsoft Office 2000 Service Pack 3 ?

8-2-1. Installation du Service Pack 1a Microsoft Office 2000

La mise à jour Microsoft Office 2000 SR-1/SR-1a requiert les CD-ROM d'Office 2000 (Explications ici)

8-2-2. Installation du Service Pack 3 Microsoft Office 2000

8-2-3. Problème relatif au non démarrage de l'Assistant Migration SQL Server

8-2-4. Problèmes rencontrés au sein du projet post-migration ou pré-migration

8-2-4-1. Les erreurs les plus fréquemment rencontrées dans un projet ADP

• Si vous avez conçu un menu général dans votre application à l'aide de l'Assistant Gestionnaire de Menu Général, ce dernier ne sera pas migré dans votre projet.
  En effet, cet objet exploite une table locale pour s'initialiser à chaque chargement et les tables locales de ce type tel que Microsoft Access les conçoit ne sont pas compatibles en mode Client-Serveur. De ce fait, vous devez envisager de reconstruire ce formulaire.
  
  
• Si vous avez exploité du code DDE (Dynamic Data Exchange), code servant à l'échange dynamique de données à travers des applications Windows, ce dernier ne fonctionnera pas car il est incompatible avec un environnement Client-Serveur.
  Pour pouvoir recouvrer des fonctionnalité équivalentes, vous devez réécrire le code avec des appels ADO. Pour plus d'informations sur la rédaction de procédures ADO, reportez-vous au chapitre qui traite de ce sujet plus loin dans ce document.
  
  
• Les tables que vous avez migré qui sont censées contenir des données seront dépourvue de données si la table possède la propriété Indexée définie à Oui et si plus d'un enregistrement de cette table contient des valeurs NULL alors que la propriété Null interdit des champs concernés est définie à Oui. Pour pouvoir faire en sorte que les données de cette table soient migrées, ouvrez la table dans l'application Access (le fichier MDB) et supprimez ou corriger les enregistrements qui possèdent ces valeurs NULL.
  Ensuite, relancez l'Assistant Migration SQL Server et ne migrer que la table concernée.
  
  
• Si vous ne pouvez pas accéder aux objets de votre nouveau projet, c'est parce que vous ne disposez certainement pas des autorisations nécessaires. Pour pouvoir accéder totalement aux objets de votre Base de données, vous devez disposer d'une autorisation en lecture/création sur l'ensemble des objets de la base de données Access, l'idéal étant d'être administrateur système.
  
  
• En ce qui concerne les éventuelles pages d'accès aux données qui seraient situées sur un site Web, vous ne pourrez y avoir accès du fait que l'Assistant Migration SQL Server ne sait pas copier ces objets. Pour pouvoir migrer ces objets, vous devez les copier en tant que fichier en local depuis un navigateur. Une fois cela fait, vous devez avant de migrer votre projet ouvrir chaque page afin d'en modifier l'emplacement physique puis relancer de nouveau l'Assistant Migration SQL Server.
  
  

8-2-4-2. Les erreurs les plus fréquemment rencontrées durant la phase de migration

• La tentative de migration d'une Base de données Microsoft Access MDE n'est pas possible. En effet, dans une Base de données Microsoft Access compilée en MDE, les objets comme les formulaires, les états, les macros et les modules sont inaccessibles.
  De plus, le code VBA présent dans ces objets est compilé et impossible à interpréter.
  L'Assistant Migration SQL Server doit pouvoir accéder librement à ces objets pour pouvoir les migrer dans le nouveau projet ADP.
  
  
• Avant de migrer votre Base de données, vous devez vous assurer que vous disposez de suffisamment d'espace disque… Si le processus de migration a débuté et qu'au cours de celui-ci, un message d'erreur invoquant un espace disque insuffisant, vous devrez tout recommencer car une partie du projet aura certainement été déjà migré. Il vous faudra tout d'abord supprimer la Base de données créée dans SQL Server depuis Entreprise Manager ou depuis SQL Server 2000 Desktop Engine selon le cas (car vous ne pouvez pas écraser une Base de données existante depuis l'Assistant Migration SQL Server) et faire en sorte de disposer d'un espace disque conséquent.
  En général, il faut compter le double de la taille de votre Base de données actuelle au minimum pour pouvoir migrer sans trop de difficultés et davantage pour obtenir une migration plus rapide.

9. ADP et MDB : Les différences

9-1. Une Base de données Microsoft Access MDB

• Un seul fichier MDB contenant Données et Objet.
• Deux fichiers distincts : Une application frontale (MDE) contenant les Objets et une Base de données sur Serveur (MDB) ne contenant que les Données

9-2. Un Projet Microsoft Access ADP (Access Data Project)

SELECT * FROM MYTABLE WHERE NAME = "VALUE"

SELECT * FROM MYTABLE WHERE NAME = 'VALUE'

SELECT * FROM MYTABLEWHERE NAME = 'VALUE'

SELECT * FROM MYTABLE WHERE DATE >= #MM/DD/YYYY#

SELECT * FROM MYTABLE WHERE DATE >= 'YYYY-MM-DD'

9-4. Différences notoires entre DAO et ADO

9-4-1. Pour la petite histoire

10. Accès à la structure (DDL : Data Definition Language)

Tout comme pour votre application Microsoft Access, l'accès à la structure de votre nouveau projet se traduit par la modification des objets qui constituent votre Base de données que celle du code Visual Basic for Application associé. On parle alors de DDL, abréviation de Description de métadonnées en SQL.

10-1. Le code Visual Basic for Application pour DAO et pour ADO

Il existe différentes façons de procéder pour mettre à niveau le code Visual Basic que vous avez rédigé où ce dernier exploite DAO. Bien que les deux composants DAO et ADO possèdent beaucoup de points communs sur une grande partie du code, il n'en reste pas moins évident que la migration automatique de votre projet n'inclut pas la mise à jour de code Visual Basic et de ce fait, vous allez devoir examiner et réécrire un lot conséquent de votre code.

C'est autant de difficulté que la méconnaissance du modèle est importante.

10-2. Quel code je dois modifier ?

En globalité, vos procédures et fonctions exploitant DAO font références aux déclarations d'objets comme Workspace, DBEngine, Database, CurrentDb.

Si vous avez la double référence DAO/ADO au sein de votre projet, vous avez du préfixer vos déclarations avec le mot clé DAO comme par exemple :

Dim oRS As DAO.Recordset

Voici une liste de mots clés typique…

Quelques mots clés de référence DAO
BeginTrans
CommitTrans
CompactDatabase
Connection
Container
CreateDatabase
CreateWorkspace
Database
DBEngine
Errors
Field
Index
OpenDatabase
Properties
QueryDef
Recordset
Relation
TableDef
Workspaces

10-3. Comment repérer ces mots clé ?

1^ère méthode

Vous disposez d'un marqueur de paragraphes très pratique pour marquer pages de code au sein des modules avec des signets :

Ce marqueur est situé dans la barre d'outils Debogage ; Vous utilisez alors l'outil de recherche (Ctrl+F) pour localiser ces mots clé après quoi, vous marquez la ligne.
Une fois cela fait, vous pouvez naviguer aisément dans votre code afin de repérer ces signets avec les boutons de navigation de la barre d'outils.

2^éme méthode

Toujours avec l'outil de recherche, vous pouvez très bien remplacer les occurrences comme par exemple DAO.Recordset :

As DAO.Recordset

par exemple par la portion de texte

As Code à Remplacer : DAO.Recordset

Comme ce code va provoquer une erreur de syntaxe, en générale visible en rouge, il sera aisé de les repérer.
De plus, ceci peut être enregistré au sein du code, ce qui vous permet de continuer le lendemain où, contrairement aux signets qui, eux sont perdus à la fermeture projet.

Ensuite, vous recherchez toutes les occurrences "Code à Remplacer" pour travailler et mettre à jour votre projet…

Point important    Je vous conseille fortement de noter en parallèle dans un classeur Excel ou dans un document Word toutes les opérations    à effectuer avec le degré de progression dans l'exécution des différentes tâches…

10-4. Comment corriger mon code ?

- DAO fait appel a un objet nommé Microsoft Data Access Object x.x Library dans différentes versions de 2.5 à 3.6.

- ADO fait appel a un objet nommé Microsoft ActiveX Data Object 2.x Library dans différentes versions de 2.0 à 2.7.

Dans un premier temps, il vous faut activer la référence à ADO mais attention, si vous laissez persister la référence à DAO dans le même temps, vous allez être confronté à des difficultés au niveau de l'IntelliSense® pour la complétion des instructions. Du fait que vous êtes censé maîtriser DAO, je vous préconise de décocher sa référence pour travailler plus confortablement.

Voyez par vous même qu'avec la double référence et selon la priorité accordée au composant, l'IntelliSence réagit plutôt bien :

Déclarations
DAO	ADODB

En revanche, si la priorité est affectée à ADO, l'IntelliSence prime sur les méthodes et propriétés de l'objet ADO...
NoMatch appartient à DAO

10-5. Mise à jour du code pour l'ouverture de la Base de données

Lorsque vous souhaitiez solliciter une base de données Microsoft Access avec Visual Basic for Application, vous aviez le choix entre attaquer la Base de données elle-même ou une autre base de données…

10-5-1. DAO et Access

• La Base de données elle-même directement avec la méthode CurrentDB :

CurrentDb.Execute SQLUpdate, dbSeeChanges

Où SQLUpdate représente une chaîne SQL.

CurrentDB est tout de même plus simple à employer que sa propriété réelle qui est hiérarchisée sous la forme Application.DBEngine.Workspaces(0).Databases(0)

• La Base de données elle-même en déclarant un objet de type Database que vous initialisiez avec CurrentDB :

Dim oDB As Database Dim oRS As DAO.Recordset Set oDB = CurrentDb() Set oRS = oDB.OpenRecordset(SQL, dbOpenDynaset) Do While Not oRS.EOF ……… Loop

• Une autre Base de données en déclarant un objet de type WorkSpace couplé à un objet Database que vous initialisiez pour ouvrir une base de données externe :

Dim oWKS As DAO.Workspace Dim oDB As DAO.Database Dim oRS As DAO.Recordset Set oWKS = DBEngine.Workspaces(0) Set oDB = oWKS.OpenDatabase(strDBName, , True) Set oDB = oWKS.OpenDatabase(strDBName, dbDriverNoPrompt, True, _ "ODBC;DATABASE=MyDatabase;UID=myUID;PWD=MyPassword;DSN=MyDSN") ...

10-5-2. ADO et Access

Lorsque vous souhaiterez solliciter la base de données Microsoft SQL Server avec Visual Basic for Application, vous devrez utiliser ADO et procéder en utilisant une chaîne de connexion :

Dim oCNX As ADODB.Connection Dim oRS As New ADODB.Recordset Set oCNX = CurrentProject.Connection oRst.Open SQL, oCNX

où SQL représente une chaîne SQL valide !

La propriété CurrentProject.Connection de type ADODB.Connection est une propriété Connection de l'objet Application.CurrentProject…

Au même titre que l'on utilisait CurrentDB pour définir la base de données en cours ou celle actuellement ouverte dans l'application, vous pouvez exploiter vos objets Recordset avec une variable déclarée comme il se doit et exploiter directement ses méthodes en affectant au paramètre ActiveConnection la connexion courante...

Mais tout comme l'usage de la méthode CurrentDB, CurrentProject créé une nouvelle instance de l'objet à chaque appel ce qui est fort peu recommandé.

Ainsi, il est préférable d'éviter les instanciations multiples et de privilégier une instanciation globale en début de code et de solliciter les objets avec le mot clé Set sans oublier toutefois de libérer ces derniers avec Nothing.

10-5-3. Comment procéder ?

Vous pouvez privilégier une seule et même instanciation en exploitant par exemple une variable de type Connection qui sera instanciée dans une procédure unique et appelée si nécessaire :

Option Explicit Public m_adocnActiveConnexion As ADODB.Connection Public Sub ConnectSQLDatabase() If m_adocnActiveConnexion Is Nothing Then Set m_adocnActiveConnexion = CurrentProject.Connection End Sub Private Function IsValueExisting(ByVal TableName As String, ByVal FieldName As String, _ ByVal FieldValue As Long) As Boolean Dim SQLSelect As String Dim blnExist As Boolean Dim oRS As ADODB.Recordset Set oRS = New ADODB.Recordset SQLSelect = "SELECT " & FieldName & " FROM " & TableName & " WHERE " & FieldName & " = " & FieldValue If m_adocnActiveConnexion Is Nothing Then ConnectSQLDatabase oRS.Open SQLSelect, m_adocnActiveConnexion, adOpenDynamic, adLockOptimistic With oRS blnExist = Not .EOF .Close End With Set oRS = Nothing IsValueExisting = blnExist End Function

Dans cet exemple, j'ai declaré une variable publique m_adocnActiveConnexion et une procédure nommée ConnectSQLDatabase qui initialise la connexion. Dans ma fonction IsValueExisting, j'appelle ConnectSQLDatabase si toutefois m_adocnActiveConnexion est affectée à Nothing ce qui rejoint à dire qu'il n'y a plus de connexion courante...

Cela reste valable tant que vous souhaitez travailler avec la Base de données du projet lui-même...
Si vous souhaitez travailler avec une autre base de données, il vous faudra coder l'ouverture de la connexion avec le fournisseur idoine que ce soit une Base de données Microsoft Access ou non... Je vous préconise par ailleurs de créer une variable différente et conventionnellement nommée pour chaque connexion afin de vous y retrouver vous-même.

Si vous utilisez une alternative qui consiste aussi à solliciter la propriété IsConnected de la façon suivante :

If not CurrentProject.IsConnected Then ConnectSQLDatabase

vous provoquerez une nouvelle instanciation de l'objet CurrentProject.

10-6. Mise à jour du code pour solliciter la structure de la Base de données

ADO et DAO ne sont pas identiques en ce qui concerne l'accès à la structure de la Base de données.

En effet:

• DAO ouvre cet accès directement. Vous pouvez consulter l'ensemble des classes couvertes par cet objet en appuyant sur la touche F2 depuis VBE qui vous donnera accès à l'Explorateur d'Objets de Visual Basic...
  
  
• ADO ne donne aucun accès à une quelconque collection et encore moins à celle de la structure du fichier. Ainsi, il vous sera possible d'intervenir sur la structure de la Base de données qu'à travers la méthode Exécute de la connexion ou bien exploiter un l'objet ADOX fournis par la bibliothèque d'extension du modèle ADO, à savoir, l'objet Catalog.

10-6-1. Qu'est que l'objet Catalog ?

L'objet Catalog est dédié à vous fournir toutes les méthodes nécessaires à la modification de la structure de la base de données à savoir, les tables, les champs, les index, les requêtes et les relations.
Il doit être instancié et affecté à une connexion avant d'être manipulé.

Exemple d'usage de l'objet Catalog

Private Function IsTable(ByVal TableName As String) As Boolean Dim oTBL As ADOX.Table Dim oCAT As New ADOX.Catalog IsTable = False oCAT.ActiveConnection = CurrentProject.Connection For Each oTBL In oCAT.Tables If oTBL.Name = TableName Then IsTable = True Exit For End If Next End Function

Avec ADO, les objets possèdent une propriété ParentCatalog ; ainsi, vous pouvez à tout moment connaître à quel Catalog cet objet appartient. Il est alors recommandé d'affecter cette propriété à chaque fois que vous créez un nouvel objet. En procédant ainsi, vous aurez la possibilité d'accéder aux propriétés dédiées de l'objet (Collection Properties).

Contrairement à DAO qui vous offrait la possibilité de gérer vos propres propriétés (Property) que vous pouviez ajouter/supprimer/modifier dans la collection des propriétés (Properties), ADO vous donne accès aux propriétés en lecture et écriture mais ne vous autorise pas à ajouter de nouvelles propriétés à la collection Properties pour un objet donné...
D'ailleurs, vous pourrez constater que la collection Properties ne possède pas de méthode Append.

10-6-2. Mise à jour du code pour la création de tables et de champs

La création de tables avec ADO est quasi similaire ce qui vous permet de vous adapter facilement à la façon de procéder.

Pour certains exemples ADO, j'exploite une fonction GetConnectionString() qui me renvoie la chaine de connexion sous cette forme :

"PROVIDER=SQLOLEDB;DATA SOURCE=<?>;USER ID=<?>;PASSWORD=<?>;INITIAL CATALOG=<?>"

où le ? fait office de valeur correspondant à vos paramètres de connexion.

Avec DAO, vous sollicitiez au moins trois objets pour procéder à savoir, un objet Database, un objet TableDefs et un objet Field et éventuellement un quatrième, Index pour créer vos index.

Private Sub CreateTableProducts() Dim oDB As DAO.Database Dim oTBL As DAO.TableDef Dim oFLD As DAO.Field Dim oIDX As DAO.Index Set oDB = CurrentDb ''' Création de la table Set oTBL = oDB.CreateTableDef("TBLProducts") ''' Création des champs With oTBL Set oFLD = .CreateField("IDProduct", dbLong) oFLD.Attributes = dbAutoIncrField .Fields.Append oFLD .Fields.Append .CreateField("ProductName", dbText, 128) .Fields.Append .CreateField("IDfkCategory", dbLong) .Fields.Append .CreateField("IDfkSupplier", dbLong) .Fields.Append .CreateField("Price", dbDouble) .Fields.Append .CreateField("QtyAvailable", dbLong) ''' Création de la clé primaire et de l'index Set oIDX = .CreateIndex("PKIDProduct") With oIDX .Fields.Append .CreateField("IDProduct") .Primary = True End With ''' Ajout de l'index à la table oTBL.Indexes.Append oIDX End With ''' Ajout de la table à la base de données oDB.TableDefs.Append oTBL ''' Libération des objets Set oIDX = Nothing Set oDB = Nothing Set oTBL = Nothing End Sub

Dans ce code, je créé une table Produits avec un champ NuméroAuto. La méthode employée est relativement simple à comprendre. Comme vous pouvez le remarquer, la création de la clé primaire et des index n'est pas possible avec la méthode CreateField. Cette opération se fait avec un objet Index une fois que les champs ont été créés. La propriété Primary de l'objet Index permet de définir la clé primaire.

Pour obtenir l'équivalent avec ADO, ce n'est pas aussi simple car ADO étant orienté multiplateformes, on est obligé d'avoir recours à des propriétés spécifique pour chaque cas...

Il n'existe pas par exemple de propriété NuméroAuto dans la méthode Append et même s'il y est nécessaire de passer par un objet Column à travers la bibliothèque d'extension du modèle ADO, à savoir ADOX pour créer des champs, la propriété en question n'y est pas plus disponible. Pour ce faire et afin de bénéficier de l'accès à la collection de l'ensemble des propriétés de cet objet, vous devrez initialiser la propriété ParentCatalog auparavant...

Pour créer une clé primaire auto incrémentée avec ADO, on utilise un objet Key dédié. L'usage d'un tel objet ouvre des perspectives plus grandes qu'avec DAO, les clés de la table pouvant être définies comme clé primaire ou clé étrangère selon le cas.

Il sera donc plus souple et plus facile de créer le champ en question en moins de lignes de code que pour DAO avec la méthode Append.

Sub CreateTableProducts() Dim strTableName As String Dim oCNX As ADODB.Connection Dim oCAT As ADOX.Catalog Dim oTBL As ADOX.Table Dim oCLN As ADOX.Column strTableName = "TBLProducts" ''' Ouverture de la connexion Set oCNX = CreateObject("ADODB.Connection") With oCNX .ConnectionString = GetConnectionString() .Open End With ''' Initilalisation du catalogue Set oCAT = New ADOX.Catalog Set oCAT.ActiveConnection = oCNX ''' Création de la table Set oTBL = New ADOX.Table With oTBL .Name = strTableName ''' Création des champs .Columns.Append "IDProduct", adInteger .Columns.Append "ProductName", adVarWChar, 128 .Columns.Append "IDfkCategory", adInteger .Columns.Append "IDfkSupplier", adInteger .Columns.Append "Price", adDouble .Columns.Append "QtyAvailable", adInteger Set oTBL.ParentCatalog = oCAT ''' Création du champ IDProduct auto-incrémenté .Columns("IDProduct").Properties("AutoIncrement").Value = True ''' Création de la clé primaire .Keys.Append "PKIDProduct", adKeyPrimary, "IDProduct" With oCAT ''' Ajout de la table à la base de données .Tables.Append oTBL End With End With ''' Fermeture de la connexion If oCNX.State <> adStateOpen Then oCNX.Close ''' Libération des objets Set oCNX = Nothing Set oCAT = Nothing Set oCLN = Nothing Set oTBL = Nothing End Sub

Vous pouvez remarquer que j'ai intentionnellement préfixé les champs IDCategory et IDSupplier respectivement IDfkCategory et IDfkSupplier ; vous verrez pourquoi un peu plus loin.

Sous ADO, la méthode Append offre 5 paramètres

1. Nom de la clé
2. Type de clé (par défaut, adKeyPrimary)
3. Nom du champ
4. Le nom de la table en relation.
5. Le nom de la colonne en relation

10-6-3. Affectation de la clé primaire à plusieurs champs...

Il est possible d'affecter la clé primaire à plusieurs champs mais la collection Keys n'autorise la spécification de plusieurs champs simultanés pour la définir.

Pour procéder à l'affectation d'une clé primaire sur un lot donné de champs, vous devez spécifier la propriété Type de l'objet Key, par exemple :

'[...] ''' Affectation de la clé primaire sur plusieurs champs Set oKEY = New ADOX.Key With oKEY .Name = "PKIDCatIDSup" .Type = adKeyPrimary .Columns.Append "IDfkCategory"