Ako získať prístup Parse dát

Vedieť , ako analyzovať a prístup k analyzovať dáta môžu ušetriť čas pri vývoji databázovej aplikácie . Často správcom databáz je potrebné analyzovať dáta v poli databázy a pridať ju do inej tabuľky alebo použiť iným spôsobom . Môžete vykonať túto úlohu pomocou aplikácie Microsoft Office Access . Access je relačný databázový systém zahrnuté do balíka Microsoft Office . V programe Access môžete použiť Visual Basic for Applications ( VBA ) , analyzovať a prístup analyzovať dáta . Veci , ktoré budete potrebovať v Microsoft Office Access
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Access a zvoľte " Prázdna databáza " kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a potom vyberte " Visual Basic "

Zadajte nasledovné vytvoriť nový postup : .

Private Sub parseFieldData ( )

Stlačte tlačidlo " Enter " .

2

Zadajte nasledujúce deklarovať premenné , ktoré budete používať pri analýze dát :

Dim sSQL As String

Dim db Ako databázy

Dim rst Ako Recordset

Dim cellIntArray ( 4 ) As String

Dim x As Integer

Dim r As Integer

Dim fldStr As String

Dim pos As Integer

Set db = CurrentDb
3

Zadajte nasledujúci vytvoriť novú tabuľku pre uloženie dát , ktorá bude analyzovať :

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sSQL )

sSQL = " INSERT INTO tblParseData VALUES ( ' Táto veta bude analyzovaný . ' ) ; "

DoCmd.RunSQL ( sSQL )
4

Zadajte nasledujúci dotaz na dáta , ktoré ste pridali do tabuľky v Predchádzajúci krok :

Set rst = db.OpenRecordset ( " Vyberte tblParseData * od tblParseData ; . " )

rst.MoveFirst

fldStr = rst.Fields ( 0 ) . hodnota
5

Zadajte nasledujúce pridať analyzovaných dát String poľa : klipart

x = 0 klipart

pos = instr ( 1 , fldStr , " " )

robiť , keď fldStr < > " "

cellIntArray ( x ) = ľavá ( fldStr , pos )

fldStr = Right ( fldStr , Ľan ( fldStr ) - pos )

pos = Instru ( 1 , fldStr , " " )

x = x + 1

pos = 0 Then

cellIntArray ( x ) = fldStr

fldStr = " "

End If

Loop
6

Zadajte nasledovný prístup analyzované údaje z poľa :

y = 0 x

Debug.Print cellIntArray ( y )

Ďalšie y
7

zadajte nasledujúce zatvorte Recordset a databázy :

rst.Close

db.Close

• Predchádzajúca strana: Ako získať prístup dlhá binárne dáta 
• Ďalšia strana: Ako si vyrobiť elektronické kocky