Saper analizzare e accedere ai dati analizzati consente di risparmiare tempo quando si sviluppa un'applicazione di database. Spesso gli amministratori di database è necessario analizzare i dati in un campo di database e aggiungerlo ad altre tabelle o usarlo in altri modi. È possibile eseguire questa operazione in Microsoft Office Access. Access è un relational database management system incluso nella suite Microsoft Office. In Access è possibile utilizzare Visual Basic, Applications Edition (VBA) per analizzare e accedere ai dati analizzati.

Istruzioni

1

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

Digitare il comando seguente per creare una nuova procedura:

Private Sub parseFieldData()

Premere "Enter".

2

Digitare quanto segue per dichiarare le variabili che si utilizzerà durante l'analisi dei dati:

Dim sSQL As String

Dim db As Database

Dim rst As Recordset

Dim cellIntArray(4) As String

Dim x As Integer

Dim y As Integer

Dim fldStr As String

Dim pos As Integer

Set db = CurrentDb

3

Digitare il comando 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 tblParseData valori ('questa frase verrà analizzata.');"

DoCmd.RunSQL (sSQL)

4

Digitare quanto segue per eseguire query sui dati che hai aggiunto alla tabella nel passaggio precedente:

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

RST. MoveFirst

fldStr = rst. Fields(0). Valore

5

Digitare il comando seguente per aggiungere i dati analizzati in una matrice di stringhe:

x = 0

Pos = InStr (1, fldStr, "")

Mentre fldStr <> ""

cellIntArray(x) = Left (fldStr, pos)

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

Pos = InStr (1, fldStr, "")

x = x + 1

Se pos = 0 Then

cellIntArray(x) = fldStr

fldStr = ""

End If

Loop

6

Digitare quanto segue per accedere i dati analizzati dalla matrice:

Per y = 0 per x

Debug.Print cellIntArray(y)

Prossima y

7

Digitare il comando seguente per chiudere il Recordset e database:

RST. Chiudere

DB. Chiudere