Å vite hvordan å analysere og få tilgang analyserte data kan spare deg for tid når du utvikler en database applikasjon . Ofte database administratorer trenger å analysere data i en database felt og legge den til andre tabeller eller bruke det på andre måter. Du kan utføre denne oppgaven ved hjelp av Microsoft Office Access . Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. I Access kan du bruke Visual Basic for Applications ( VBA ) til å analysere og få tilgang analysert data . Du trenger
Microsoft Office Access
Vis flere instruksjoner
en

start Microsoft Office Access og velg "Blank Database " klikk " Opprett". Klikk på " Database Verktøy " og velg " Visual Basic"

Skriv inn følgende for å opprette en ny prosedyre : . " . Enter"

Private Sub parseFieldData ( )

Trykk på

2

Skriv inn følgende å erklære variablene du vil bruke under analyse av data : en

Dim sSQL As String

Dim db As Database

Dim rst Som Recordset

Dim cellIntArray ( 4 ) As String

Dim x As Integer

Dim y As Integer

Dim fldStr As String

Dim pos As Integer

Sett db = CurrentDb
3

Skriv inn følgende for å opprette en ny tabell for å holde dataene du vil analysere :
< p> sSQL = " CREATE TABLE tblParseData ( fieldData TEKST ( 100 )); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sSQL )

sSQL = " INSERT INTO tblParseData VERDIER ( Denne setningen vil bli analysert . ') ; "

DoCmd.RunSQL ( sSQL )
4

Type følgende for å søke i data du har lagt til tabellen i forrige trinn : en

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

rst.MoveFirst

fldStr = rst.Fields ( 0 ) . Verdi
5

Skriv inn følgende for å legge de analyserte data til en String matrise:

x = 0

pos = InStr ( 1 , fldStr , "")

Mens fldStr < > " "

cellIntArray ( x ) = Venstre ( fldStr , pos)

fldStr = Høyre ( fldStr , Len ( fldStr ) - pos )

pos = InStr ( 1 , fldStr , "")

x = x + 1
p Hvis pos = 0 Then

cellIntArray ( x ) = fldStr

fldStr = ""

End If

Loop
6

Skriv inn følgende for å få tilgang til de analyserte data fra tabellen :

for y = 0 til x

Debug.Print cellIntArray ( y)

Neste y
7

Skriv inn følgende for å lukke Recordset og database:

rst.Close

db.Close