Weten hoe ontleed gegevens ontleden en toegang kunt u tijd besparen bij het ontwikkelen van een database- applicatie . Vaak moeten database administrators om gegevens in een database veld ontleden en voeg deze toe aan andere tafels of gebruiken op andere manieren . U kunt deze taak te volbrengen met behulp van Microsoft Office Access . Access is een relationele database management systeem opgenomen in de Microsoft Office suite . In Access kunt u Visual Basic for Applications ( VBA ) aan ontleed gegevens ontleden en te openen . Wat je nodig hebt
Microsoft Office Access
Toon Meer Aanwijzingen
1 Start Microsoft Office Access en selecteer " Lege database " en klik op "Create . " Klik op " Database Tools" en selecteer vervolgens " Visual Basic " Type
de volgende opties om een nieuwe procedure te maken: . " . Enter" Private Sub parseFieldData
( ) Press
< br >
Type 2 het volgende om de variabelen die u wilt gebruiken bij het verwerken van de data te verklaren : Dim sSQL
als Koord Dim db
Als Database
Dim rst als Recordset
Dim cellIntArray ( 4 ) als Koord
Dim x As Integer Dim y
als Geheel Dim fldStr
als Koord
Dim pos als Geheel
Set db = CurrentDb
Type 3 van de volgende opties om een nieuwe tabel te maken om de gegevens die u zullen ontleden houden :
sSQL = " CREATE TABLE tblParseData ( fieldData TEXT ( 100 ) ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( sSQL ) sSQL = " INSERT INTO
tblParseData VALUES ( ' Deze zin zal worden ontleed . '); " DoCmd.RunSQL ( sSQL )
Type Goedkope 4 het volgende om de gegevens die u aan de tabel toegevoegd in het bevragen vorige stap :
Set rst = db.OpenRecordset ( " Select tblParseData * van tblParseData ; . " ) rst.MoveFirst fldStr
= rst.Fields ( 0 ) . waarde
5 Typ het volgende om de ontleed gegevens naar een String -array toe te voegen :
x = 0 pos
= InStr ( 1 , fldStr , " " )
Do While fldStr < > " " cellIntArray
( x ) = Left ( fldStr , pos ) op Twitter fldStr = Right ( fldStr , Len ( fldStr ) - pos ) pos
= InStr ( 1 , fldStr , " " ) op Twitter x = x + 1
Als pos = 0 dan cellIntArray
( x ) = fldStr fldStr
= " " End
Als Loop
Type
6 de volgende toegang tot de ontleed gegevens uit de array : < br > voor y = 0 Om x
Debug.Print cellIntArray ( y ) op volgende y
Type 7 de volgende om uw Recordset sluiten en database:
rst.Close
db.Close
|
