Wissen, wie man analysieren und analysierten Daten zugreifen können sparen Sie Zeit bei der Entwicklung einer Datenbank-Anwendung . Oft Datenbank -Administratoren müssen Daten in einer Datenbank Feld analysieren und fügen Sie ihn in anderen Tabellen oder verwenden Sie es auf andere Weise. Sie können diese Aufgabe mithilfe von Microsoft Office Access erreichen . Access ist ein relationales Datenbank- Management-System in der Microsoft Office-Suite enthalten. In Access können Sie Visual Basic für Applikationen ( VBA) verwenden, um zu analysieren und analysierten Daten zugreifen . Things You
Microsoft Office Access
brauchen anzeigen Weitere Anweisungen
1

Starten Sie Microsoft Office Access , und wählen Sie " Leere Datenbank " klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools " und wählen Sie dann " Visual Basic "

Geben Sie die folgende Prozedur , um eine neue zu erstellen : ". . Enter"

Private Sub parseFieldData ()

Press
2

Geben Sie den folgenden , um die Variablen, die Sie verwenden, während die Analyse der Daten erklären :

Dim sSQL As String Dim db

As Database

Dim rst als 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

Geben Sie den folgenden , um eine neue Tabelle zu erstellen , um die Daten, die Sie analysieren halten :
< p> sSQL = " CREATE TABLE tblParseData ( FieldData TEXT ( 100) ); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( sSQL )

sSQL = " INSERT INTO tblParseData VALUES (' Dieser Satz wird analysiert werden. '); "

DoCmd.RunSQL ( sSQL )
4

Geben Sie den folgenden , um die Daten, die Sie in die Tabelle eingefügt in die Abfrage vorherigen Schritt :

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

rst.MoveFirst

fldStr = rst.Fields (0) . Wert
5

Geben Sie den folgenden , um die analysierten Daten in einen String Array hinzuzufügen :

x = 0

pos = InStr (1, fldStr , "")

Do While fldStr <> ""

cellIntArray (x) = Left ( fldStr , pos)

fldStr = Right ( fldStr , Len ( fldStr ) - Pos. )

pos = InStr (1, fldStr , "")

x = x + 1

Wenn pos = 0 Then

cellIntArray (x) = fldStr

fldStr = "" End If

Schleife
6

Geben Sie den folgenden analysiert , um die Daten aus dem Array zugreifen :

Für y = 0 To x

Debug.Print cellIntArray (y)

Next y
7

Geben Sie den folgenden zu schließen Ihre Recordset und Datenbank:

rst.Close

db.Close