Πώς να αποκτήσετε πρόσβαση Parse δεδομένων

Γνωρίζοντας πώς να αναλύσει και να αναλύεται η πρόσβαση των δεδομένων μπορεί να σας εξοικονομήσει χρόνο κατά την ανάπτυξη μιας εφαρμογής βάσεων δεδομένων. Συχνά οι διαχειριστές βάσεων δεδομένων πρέπει να αναλύσει τα δεδομένα σε ένα πεδίο βάσης δεδομένων και να το προσθέσετε σε άλλους πίνακες ή να το χρησιμοποιήσετε σε άλλους τρόπους . Μπορείτε να εκτελέσετε αυτήν την εργασία , χρησιμοποιώντας το Microsoft Office Access . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . Στην Access , μπορείτε να χρησιμοποιήσετε τη Visual Basic for Applications ( VBA ) για να αναλύσει και να αναλύεται η πρόσβαση δεδομένων. Τα πράγματα που θα χρειαστείτε για Microsoft Office Access

Εμφάνιση Περισσότερες οδηγίες
Η 1

Ξεκινήστε το Microsoft Office Access και επιλέξτε "Blank Database " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και στη συνέχεια επιλέξτε " Visual Basic "

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία : .

Private Sub parseFieldData ( )

Πατήστε "Enter ".

2

Πληκτρολογήστε το παρακάτω, για να δηλώσει τις μεταβλητές που θα χρησιμοποιήσετε κατά την ανάλυση των δεδομένων :

Dim sSQL Όπως String

Dim db Όπως Database

Dim rst Όπως εγγραφών

Dim cellIntArray ( 4 ) Όπως String

Dim x As Integer

y As Integer Dim

Dim fldStr As String

Dim pos As Integer

Set db = CurrentDb
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε έναν νέο πίνακα για να κρατήσει τα δεδομένα που θα αναλύσει :

sSQL = " CREATE TABLE tblParseData ( fieldData ΚΕΙΜΕΝΟ ( 100 ) ) ? "

DoCmd.SetWarnings Λάθος

DoCmd.RunSQL ( sSQL )

sSQL = " INSERT INTO tblParseData ΑΞΙΕΣ ( « η πρόταση αυτή θα πρέπει να αναλυθεί . ') ? "

DoCmd.RunSQL ( sSQL )
Η 4

Πληκτρολογήστε την ακόλουθη ερώτημα για τα δεδομένα που προστίθενται στον πίνακα στο προηγούμενο βήμα :

Set RST = db.OpenRecordset ( "Επιλογή tblParseData * από tblParseData ? . " )

rst.MoveFirst

fldStr = rst.Fields ( 0 ) . αξία
5

Πληκτρολογήστε το παρακάτω για να προσθέσετε τα δεδομένα αναλύονται σε ένα πίνακα String :

x = 0

pos = InStr ( 1 , fldStr , " " )

Do While fldStr <> " "

cellIntArray ( x ) = Left ( fldStr , pos )

fldStr = Δεξιά ( fldStr , Len ( fldStr ) - pos )

pos = InStr ( 1 , fldStr , "")

x = x + 1

Αν pos = 0 τότε

cellIntArray ( x ) = fldStr

fldStr = " "

End If

Loop
Η 6

Πληκτρολογήστε το παρακάτω, για να έχουν πρόσβαση στα δεδομένα αναλύονται από τη σειρά :

για y = 0 Για x

Debug.Print cellIntArray ( y )

Επόμενο y
Η 7

Πληκτρολογήστε το παρακάτω, για να κλείσει εγγραφών σας και βάση δεδομένων :

rst.Close

db.Close
Η
εικόνων