XL2000 : Proc�dure Data Access Objects pour joindre des tables de diff�rents formats

Num�ro d'article: 213820 - Voir les produits auxquels s'applique cet article

ATTENTION : Cet article est issu du syst�me de traduction automatique

Cliquez ici si vous souhaitez afficher en c�te � c�te l?article anglais et sa traduction automatique en fran�ais

Agrandir tout | R�duire tout

R�sum�

Microsoft Excel 2000 propose des DAO (Data Access Objects) pour Microsoft Visual Basic afin de pouvoir acc�der aux bases de donn�es externes. Microsoft Query et le ODBC (Open Database Connectivity) compl�ment (Xlodbc.xla) ne fournissent pas direct signifie que vous pouvez joindre des tables de formats diff�rents de la base de donn�es. � l'aide de DAO, vous pouvez joindre des tables de formats diff�rents de la base de donn�es en joignant les tables � une base de donn�es Jet. Une table attach�e, ou la table li�e, est une table dans une autre base de donn�es li� � une base de donn�es Microsoft Jet. Les donn�es des tables attach�es restent dans la base de donn�es externe.

Cet article illustre comment attacher des tables de formats diff�rents de la base de donn�es � une base de donn�es Jet afin que les tables peuvent �tre jointes.

Plus d'informations

Microsoft fournit des exemples de programmation � des fins d'illustration uniquement, sans garantie expresse ou implicite, y compris, sans que cela soit limitatif, les garanties implicites de qualit� marchande et/ou d'ad�quation � un usage particulier. Cet article suppose que vous connaissez le langage de programmation pr�sent� et les outils utilis�s pour cr�er et d�boguer des proc�dures. Les techniciens du support technique Microsoft peuvent vous aider � comprendre la fonctionnalit� d'une proc�dure particuli�re, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalit�s suppl�mentaires ou cr�er des proc�dures r�pondant � vos besoins sp�cifiques.
Si vous ne ma�trisez que partiellement la programmation, il convient contacter un partenaire certifi� Microsoft ou les services de conseil Microsoft. Pour plus d'informations, visitez ces sites Web de Microsoft :

Microsoft certifi� partners - https://partner.microsoft.com/global/30000104

(https://partner.microsoft.com/global/30000104)

Avis de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

(http://support.microsoft.com/gp/advisoryservice)

Pour plus d'informations sur les options de support technique disponibles et sur la fa�on de contacter Microsoft, reportez-vous au site Web de Microsoft � l'adresse suivante : http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

L'exemple de macro suivant attache deux tables � une base de donn�es Jet nouvellement cr��e (Temp.mdb). Une table est appel�e Orders et est au format Microsoft Excel. L'autre table est appel�e Employee et est au format IV dBASE.

Le fichier dBASE IV utilis� dans cet exemple est le fichier exemple Employee.dbf, qui est fourni avec Microsoft Query. Vous trouverez exemple dBASE IV fichiers � l'emplacement par d�faut suivant :

C:\Program Files\Microsoft Office\Office

Pour cr�er le fichier Excel utilis� dans cet exemple, proc�dez comme suit :

Dans Excel, cr�er un nouveau classeur.

Tapez les donn�es suivantes dans les cellules A1:E3 Sheet1 :

   A1: Order_ID B1: Custmr_ID C1: Employ_ID D1: Order_Date E1: Order_Amt
   A2: 88000    B2: WALNG     C2: '111      D2: 1/1/97     E2: 111.00
   A3: 88001    B3: HIGHG     C3: '333      D3: 1/2/97     E3: 222.00

Remarque : l'apostrophe avant les num�ros d'inclure dans les cellules C2 et C3, comme le montre, pour convertir les valeurs en texte.

S�lectionnez les cellules A1:E3. Dans le menu Insertion, pointez sur nom et puis cliquez sur d�finir. Tapez les commandes, puis cliquez sur OK.
Enregistrez le classeur en tant que c:\Mes Documents\Orders.xls.
Fermez le classeur.
Cr�er un nouveau classeur.
Appuyez sur ALT + F11 pour d�marrer Visual Basic Editor, puis, dans le menu Insertion, cliquez sur module.
Dans le menu Outils, cliquez sur r�f�rences. S�lectionnez Biblioth�que d'objets Microsoft DAO 3.6, puis cliquez sur OK.

Tapez le code suivant dans la feuille de module :

Sub JoinTables()
Dim db As database
Dim rs As recordset
Dim OrdersTable As tabledef, EmpTable As tabledef
   'Create a temporary Jet database called Temp.MDB
   Set db = createdatabase("C:\My Documents\Temp.mdb", dbLangGeneral)
   'Attach the Excel table "Orders" from the file Orders.xls to the
   'database
   Set OrdersTable = db.CreateTableDef("Orders")
   OrdersTable.Connect = "Excel 5.0;DATABASE=C:\My Documents\ORDERS.XLS"
   OrdersTable.SourceTableName = "Orders"
   db.TableDefs.Append OrdersTable
   'Attach the dBASE IV table "Employee" to the database
   '** Note: You may need to change the path to the sample dBASE
   '   files for your installation of Excel.
   Set EmpTable = db.CreateTableDef("Employee")
   EmpTable.Connect = _
         "dBASE IV;DATABASE=C:\Program Files\Microsoft Office\Office"
   EmpTable.SourceTableName = "Employee"
   db.TableDefs.Append EmpTable
   'Create the recordset -- Return the Order_ID from the Orders
   'table and
   'The First_name and Last_Name from the Employee table where the
   'Employ_ID in the Employee table matches the Employ_ID in the Orders
   'table
   Set rs = db.OpenRecordset("SELECT orders.ORDER_ID, " & _
      "employee.FIRST_NAME, employee.LAST_NAME FROM employee, orders " & _
      "WHERE employee.EMPLOY_ID = orders.EMPLOY_ID", dbOpenDynaset)
   'Copy the recordset to Sheet1!A1
   Sheets("Sheet1").Range("A1").CopyFromRecordset rs
   'Close the database and delete the database file Temp.mdb
   db.Close
   Kill "c:\my documents\temp.mdb"
End Sub

Propri�t�s

Num�ro d'article: 213820 - Derni�re mise � jour: jeudi 23 novembre 2006 - Version: 3.5

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Excel 2000 Standard

kbmt kbdtacode kbhowto kbinfo kbprogramming KB213820 KbMtfr

Traduction automatique

IMPORTANT : Cet article est issu du syst�me de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis � votre disposition en compl�ment des articles traduits en langue fran�aise par des traducteurs professionnels. Cela vous permet d?avoir acc�s, dans votre propre langue, � l?ensemble des articles de la base de connaissances r�dig�s originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne �trang�re s?exprimant dans votre langue !). N�anmoins, mis � part ces imperfections, ces articles devraient suffire � vous orienter et � vous aider � r�soudre votre probl�me. Microsoft s?efforce aussi continuellement de faire �voluer son syst�me de traduction automatique.

La version anglaise de cet article est la suivante: 213820

(http://support.microsoft.com/kb/213820/en-us/ )

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.