Vide, hvordan man parse og få adgang parsede data kan spare dig tid, når at udvikle en database applikation. Ofte database administratorer nødt til at parse data i en database felt og føje den til andre tabeller , eller bruge den på andre måder. Du kan udføre denne opgave ved hjælp af Microsoft Office Access . Access er en relationel database management system inkluderet i Microsoft Office-pakken. I Access kan du bruge Visual Basic for Applications ( VBA ) at analysere og få adgang parsede data. Ting du skal
Microsoft Office Access
Vis Flere Instruktioner
1
Start Microsoft Office Access og vælg " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools " og derefter vælge "Visual Basic "
Skriv følgende for at oprette en ny procedure : ". . Enter "
Private Sub parseFieldData ()
Tryk på < br >
2
Skriv følgende at erklære de variabler, du vil bruge, mens parsing af data : Hej
Dim sSQL As String
Dim db Som 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
Set db = CurrentDb
3
Skriv følgende for at oprette en ny tabel til at holde de data, du vil parse : Hej < p> sSQL = " CREATE TABLE tblParseData ( fieldData TEXT (100 )), "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sSQL )
sSQL = " INSERT INTO tblParseData VALUES ( ' Denne sætning vil blive analyseret .') ; "
DoCmd.RunSQL ( sSQL )
4
skrive følgende for at søge i data , du har tilføjet til bordet i forrige trin : Hej
Set rst = db.OpenRecordset ( "Select tblParseData * fra tblParseData , ").
rst.MoveFirst
fldStr = rst.Fields (0). value
5
Skriv følgende for at føje de parsede data til en String matrix : Hej
x = 0
pos = InStr (1, fldStr , "")
Do While fldStr < > " "
cellIntArray (x) = Venstre ( fldStr , pos )
fldStr = Right ( 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 følgende for at få adgang til parsede data fra array : < br >
y = 0 til x
Debug.Print cellIntArray (y)
Næste y
7
Skriv følgende for at lukke din Recordset og database : Hej
rst.Close
db.Close