Saper analizzare e accedere ai dati analizzati si può risparmiare tempo durante lo sviluppo di un'applicazione di database . Spesso gli amministratori di database bisogno di analizzare i dati in un campo del database e aggiungerlo ad altre tabelle o usarlo in altri modi . È possibile eseguire questa operazione utilizzando Microsoft Office Access . Access è un sistema di gestione di database relazionale incluso nella suite Microsoft Office . In Access è possibile utilizzare Visual Basic, Applications Edition (VBA) per analizzare e accedere ai dati analizzati . Cose che ti serviranno
Microsoft Office Access
Show More Istruzioni
1

Avviare Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su " Strumenti di database ", quindi selezionare " Visual Basic "

Digitare quanto segue per creare una nuova procedura : ". . Enter"

Private Sub parseFieldData ( ) per

Premere

2

digitare quanto segue per dichiarare le variabili che verranno utilizzati durante l'analisi dei dati :

sSQL fioco come stringa

Dim db As Database

dim rst come Recordset

dim cellIntArray ( 4) As String

dim x As Integer

dim y As Integer dim

fldStr Come
String

Dim pos As Integer

Set db = CurrentDb
3

digitare quanto segue per creare una nuova tabella per contenere i dati che si analizzerà :
< p > sSQL = " CREATE TABLE tblParseData ( fieldData TEXT ( 100) ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sSQL ) per

sSQL = " INSERT INTO tblParseData VALUES ( 'Questa frase verrà analizzato . ') ; "

DoCmd.RunSQL ( sSQL ) economici 4

digitare quanto segue per interrogare i dati aggiunti alla tabella del passaggio precedente :

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

rst.MoveFirst

fldStr = rst.Fields ( 0 ) . valore
5

digitare quanto segue per aggiungere i dati analizzati da un array di stringhe :

x = 0

pos = InStr ( 1 , fldStr , " " )

Do While fldStr < > " "

cellIntArray ( x ) = Sinistra ( fldStr , pos ) per

fldStr = Right ( fldStr , Len ( fldStr ) - Ruolo ) per

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

x = x + 1

Se pos = 0 Then

cellIntArray ( x ) = fldStr

fldStr = " "

End If loop

6

digitare quanto segue per accedere ai dati analizzati dalla matrice :

per y = 0 per x

Debug.Print cellIntArray (y ) per

Successivo y
7

digitare quanto segue per chiudere il tuo Recordset e banca dati :

rst.Close

db.Close