Saper analizzare e accesso analizzato i dati possono risparmiare tempo durante lo sviluppo di un'applicazione di database. Spesso gli amministratori di database hanno bisogno di analizzare i dati in un campo di database e aggiungerlo ad altre tabelle o utilizzare in altri modi. È possibile eseguire questa operazione utilizzando Microsoft Office Access. Access è un sistema di gestione di database relazionali incluso nella suite Microsoft Office. In Access è possibile utilizzare Visual Basic, Applications Edition (VBA) per analizzare e accesso analizzato i dati.

istruzione

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

Digitare la seguente per creare una nuova procedura:

Private Sub parseFieldData ()

Premere Invio."

2 Digitare quanto segue per dichiarare le variabili che si intende utilizzare durante l'analisi dei dati:

Dim sSQL As String

db fioco come base di dati

Dim rst come Recordset

Dim cellIntArray (4) As String

Dim x As Integer

Dim y As Integer

Dim fldStr As String

pos fioco come Integer

Set db = CurrentDb

3 Digitare la seguente per creare una nuova tabella per contenere i dati che analizzerà:

sSQL = "CREATE TABLE tblParseData (fieldData TEXT (100));"

DoCmd.SetWarnings False

DoCmd.RunSQL (sSQL)

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

DoCmd.RunSQL (sSQL)

4 Digitare quanto segue per interrogare i dati aggiunti alla tabella nel passaggio precedente:

Set rst = db.OpenRecordset ( "Seleziona tblParseData * da tblParseData;").

rst.MoveFirst

fldStr = rst.Fields (0) .Value

5 Digitare la seguente per aggiungere i dati analizzati da un array di stringhe:

x = 0

pos = InStr (1, fldStr, "")

Do While fldStr <> ""

cellIntArray (x) = Sinistra (fldStr, pos)

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

pos = InStr (1, fldStr, "")

x = x + 1

Se pos = 0 Then

cellIntArray(x) = fldStr

fldStr = ""

Finisci se

Ciclo continuo

6 Digitare la seguente per accedere ai dati analizzati dalla matrice:

Per y = 0 Per x

Debug.Print cellIntArray(y)

Successivo y

7 Digitare quanto segue per chiudere il recordset e database:

rst.Close

db.Close