|
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
|
