|
requêtes Microsoft Access sont des énoncés essentiellement SQL, qui effectuent des opérations sur les bases de données. Ces déclarations sont écrits avec la plaine , texte non formaté , que vous pouvez le faire dans n'importe quelle application de traitement de texte ou de l'environnement , y compris MS Word et Excel. Conversion d' une requête à la fois à partir de Word ou Excel à Access est une opération couper- coller simple. Toutefois, la conversion de nombreuses requêtes nécessite l'aide d' un programme court . Créer ce programme en utilisant l'environnement de développement intégré Visual Basic Access . Choses que vous devez
Microsoft Access
Microsoft Word
Microsoft Excel
Afficher plus Instructions
Convert Excel Spreadsheet par la main
1 Créer un nouveau Microsoft Excel et tapez ou collez la déclaration suivante dans une cellule :
SELECT * FROM WHERE GamesTable GameTitle = "Monopoly ".
2 ouvrir l'accès et créer une petite base de données table appelée " GamesTable " avec le champ " GameTitle " et tous les autres champs que vous souhaitez .
3 créer quelques lignes de données de l'échantillon à la table, en étant sûr de comprendre "Monopoly " pour le titre de l'un des jeux . Appuyez sur " Ctrl- S " pour sauvegarder la table.
4 ouvrir une nouvelle requête en appuyant sur "Créer" sur la barre d'outils d'accès , puis en appuyant sur " Création de requête. " ( Appuyez sur " objets ", suivi par " Nouveau" puis "Query ", si vous utilisez Access 2003. ) Double- cliquez sur l'élément " GamesTable " dans la boîte de dialogue " Afficher la table " , puis appuyez sur la touche "Echap " pour fermer la boîte .
5 un clic droit sur l'onglet de la requête, qui affiche " Requête1 " , et sélectionnez "Afficher SQL. "
6 retour à Excel , puis sélectionnez et copiez le Presse-papiers de l'instruction SQL que vous avez écrit plus tôt " ( SELECT * à partir de ... ) . "
7 revenir à l' accès " Mode SQL. " Sélectionner tout le texte SQL existant, puis collez- dessus en appuyant sur " Ctrl-V ".
8 Exécutez la requête en appuyant sur l'icône " Run" sur la barre d'outils d'accès , ou un clic droit sur l'onglet de la requête et en sélectionnant " Feuille de données. " Notez que Access affiche juste le jeu que vous avez spécifié dans l'instruction SQL que vous avez copié à partir d'Excel .
Convertir Word Document avec un programme
9 convertir manuellement les requêtes à partir de Word à l'aide les étapes données pour Excel. Remplacez « Word» pour «Excel» que vous répétez les étapes . Ou , suivez les étapes suivantes pour utiliser un programme qui vous permet de convertir pour vous de nombreuses instructions SQL à la fois.
10 Ouvrez Word et entrez vos chaînes de requête, un par ligne . Utilisez les éléments suivants comme exemples de requêtes pour la table GamesTable . Assurez-vous de la dernière ligne de ce document est la dernière requête
SELECT * FROM GamesTable ; . SELECT * FROM GamesTable WHERE ( ( ( GamesTable.GameTitle ) = "Monopoly ")); GameTitle sélection de GamesTable WHERE ( ( ( GamesTable.GameTitle ) comme " * fromages *") ) .
11 Enregistrez le fichier sous forme de texte , puis importer le fichier dans access. Sélectionnez le caractère "tab " et non la " virgule" comme séparateur de texte tout en complétant l'assistant d'importation . Vérifiez que le nom de la table nouvellement importée est «Select».
12 activer les macros dans Access : appuyez sur " Alt- F ", puis cliquez sur "Options". Cliquez sur « Trust Center », puis sur le bouton «Fiducie Center". Cliquez sur " Paramètres des macros ", suivi par "Activer toutes les macros ", puis fermer toutes les boîtes de dialogue ouvertes. Fermer , puis sur Accès re- ouvert. Veillez à désactiver les macros après avoir terminé les étapes de cet article .
13 Appuyez sur " Alt- F11 ", puis appuyez sur " Insérer", suivi par " module ". Collez ce code dans le module: Photos makeQueries Public Sub ()
Const cstrQueryName = "select" Dim DBS DAO.DatabaseDim TVD DAO.RecordsetDim qdf Comme QueryDefDim i Comme IntegerDim qNameSet DBS = CurrentDbSet rst = dbs.OpenRecordset ( cstrQueryName ) i = 0do While Not rst.EOFDebug.Print "SQL :" & rst ( " Champ1 " ) qName = "q" & CStr ( i) Définir qdf = dbs.CreateQueryDef ( qName ) qdf.SQL = rst ( " Champ1 " ) . Valuerst.MoveNexti = i + 1Looprst.Closedbs.CloseEnd Sous
14 Placez le curseur n'importe où dans le programme viennent d'être énumérés , puis appuyez sur la touche "F5 " pour exécuter elle . Retourner à l'accès , à proximité , puis ré- ouvrir la fenêtre de navigation pour voir les nouvelles requêtes (par exemple , " q0 " ou " T1 " ) . Double- cliquez sur les requêtes pour les faire fonctionner .
|
