Komma åt Parse Data

Att veta hur att tolka och komma analyserade data som kan spara tid när du utvecklar ett databasprogram . Ofta databasadministratörer måste tolka data i en databas fält och lägga till andra tabeller eller använda den på andra sätt . Du kan utföra denna uppgift med hjälp av Microsoft Office Access . Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . I Access kan du använda Visual Basic for Applications ( VBA ) för att analysera och komma analyserade data. Saker du behöver
Microsoft Office Access
Visa fler instruktioner
1

Starta Microsoft Office Access och välj " Tom databas " och sedan klicka på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic "

Skriv följande för att skapa ett nytt förfarande : . " . Ange "

Private Sub parseFieldData ( ) katalog

Tryck på
Sida 2

Skriv följande för att förklara de variabler som du kommer att använda vid tolkning av data:

Dim sSQL As String

Dim db som databas

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öljande för att skapa en ny tabell för att hålla de data som du kommer att tolka :

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sSQL ) katalog

sSQL = " INSERT INTO tblParseData VALUES ( " Denna mening ska tolkas . ' ) ; "

DoCmd.RunSQL ( sSQL )
4

Skriv följande för att söka i data du lagt till i tabellen i föregående steg :

Set rst = db.OpenRecordset ( "Välj tblParseData * från tblParseData ,. " ) katalog

rst.MoveFirst

fldStr = rst.Fields ( 0 ) . Value
5

Skriv följande för att lägga till de analyserade data till en String array :

x = 0

pos = InStr ( 1 , fldStr , " " )

Gör Medan fldStr < > " "

cellIntArray ( x ) = Vänster ( fldStr , pos ) katalog

fldStr = Höger ( fldStr , Len ( fldStr ) - pos ) katalog

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

x = x + 1
p Om pos = 0 Då

cellIntArray (x) = fldStr

fldStr = " "

End If

Loop
6

Skriv följande för att komma till analyserade data från arrayen :

för y = 0 till x

Debug.Print cellIntArray ( y ) katalog

Nästa y
7

Skriv följande för att stänga ditt Recordset och databasen :

rst.Close

db.Close