Connaître comment analyser et accéder aux données analysées peut vous faire gagner du temps lors du développement d'une application de base de données . Souvent les administrateurs de bases de données doivent analyser les données dans un champ de base de données et l'ajouter à d'autres tables ou utiliser d'autres moyens. Vous pouvez accomplir cette tâche en utilisant Microsoft Office Access . Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . Dans Access , vous pouvez utiliser Visual Basic pour Applications ( VBA) pour analyser et accéder aux données analysées . Choses que vous devez
Microsoft Office Access
Afficher plus Instructions
1

Démarrer Microsoft Office Access et sélectionnez " Base de données vide " puis cliquez sur "Créer". Cliquez sur " Database Tools " puis sélectionnez " Visual Basic "

Tapez la suivante pour créer une nouvelle procédure : . " Entrée".

Private Sub parseFieldData ()

de presse
2

Tapez la commande suivante pour déclarer les variables que vous allez utiliser lors de l'analyse des données :

sSQL Dim As String

db As Database

rst As Recordset

Dim cellIntArray (4) As String

Dim x As Integer

y As Integer

fldStr Dim As String

Dim pos As Integer

Set db = CurrentDb
3

Tapez la commande suivante pour créer une nouvelle table pour contenir les données vous va analyser :
< p> sSQL = " CREATE TABLE tblParseData ( fieldData TEXTE (100) ) ; "

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sSQL )

sSQL = "INSERT INTO VALEURS tblParseData ( Cette phrase sera analysé . ') ; "

DoCmd.RunSQL ( sSQL )
4

tapez la commande suivante pour interroger les données que vous avez ajoutées à la table de l' étape précédente:

Set rst = db.OpenRecordset ( "Select * from tblParseData tblParseData ; »).

rst.MoveFirst

fldStr = rst.Fields (0) . valeur
5

Tapez la commande suivante pour ajouter les données analysées dans un tableau String :

x = 0

pos = InStr (1, fldStr , "") Photos

Do While fldStr <> ""

cellIntArray (x) = Gauche ( fldStr , pos)

fldStr = Droite ( fldStr , Len ( fldStr ) - pos )

pos = InStr (1, fldStr , "")

x = x + 1

Si pos = 0 Then

cellIntArray (x) = fldStr

fldStr = ""

End If

boucle
6

Tapez la commande suivante pour accéder aux données analysées à partir du tableau :

Pour y = 0 To x

Debug.Print cellIntArray (y)

suivante y
7

Tapez la commande suivante pour fermer le jeu d'enregistrements et base de données :

rst.Close

db.Close