Zugriff auf Daten analysieren

Zu wissen, wie analysiert und Analysierte Daten zugreifen kann sparen Sie Zeit bei der Entwicklung einer Datenbankanwendung. Oft Datenbankadministratoren müssen Daten in ein Datenbankfeld analysieren und andere Tabellen hinzufügen oder auf andere Weise zu verwenden. Sie können diese Aufgabe mithilfe von Microsoft Office Access. Der Zugang ist ein relationales Datenbank-Managementsystem, in der Microsoft Office-Suite enthalten. In Access können Sie Visual Basic für Applikationen (VBA) verwenden, zu analysieren und Analysierte Daten zugreifen.

Anweisungen

1 Starten Sie Microsoft Office Access und wählen Sie "Leere Datenbank" und klicken Sie auf "Erstellen". "Datenbanktools" klicken Sie auf "Visual Basic".

Geben Sie Folgendes ein, um ein neues Verfahren zu erstellen:

Private Sub parseFieldData()

Drücken Sie "Enter."

2 Geben Sie Folgendes ein, um die Variablen zu deklarieren, die Sie, beim Analysieren der Daten verwenden werden:

SSQL As String Dim

Dim Db als Datenbank

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 Folgendes ein, um für die Daten, die Sie analysieren, werden eine neue Tabelle erstellen:

sSQL = "CREATE TABLE TblParseData (Feld TEXT(100));"

DoCmd.SetWarnings False

DoCmd.RunSQL (sSQL)

sSQL = "INSERT INTO TblParseData Werte ("dieser Satz wird analysiert werden.");"

DoCmd.RunSQL (sSQL)

4 Geben Sie Folgendes ein, um die Daten abzufragen, die Sie der Tabelle im vorherigen Schritt hinzugefügt:

Festlegen von Rst = Db. OpenRecordset ("Select tblParseData.* von TblParseData;")

RST. MoveFirst

FldStr = Rst. Fields(0). Wert

5 Geben Sie Folgendes ein, um die analysierten Daten in ein String-Array hinzufü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 = ""

EndIf

Loop

6 Geben Sie Folgendes ein, um die analysierten Daten aus dem Array zugreifen:

Für y = 0 bis x

Debug.Print cellIntArray(y)

Nächsten y

7 Geben Sie Folgendes ein, um Ihre Recordset und Datenbank zu schließen:

RST. Schließen

DB. Schließen