Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να μετατρέψετε ένα Array κυττάρων σε String

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

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . 2

Κάντε κλικ στο " Εργαλεία βάσης δεδομένων , " και στη συνέχεια επιλέξτε " Visual Basic" για να ανοίξετε το Microsoft Visual Basic παράθυρο . Κάντε κλικ στο " Εισαγωγή" και επιλέξτε το πεδίο
εικόνων 3

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

Private Sub cellArrayToString ( )

Πατήστε το πλήκτρο " Enter".
Η 4

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

Dim strSQL Όπως String

Dim db Όπως Database

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

Δημ. cellIntArray ( 3 ) As Integer

Dim X As Integer

Dim myString Όπως String

Set db = CurrentDb
Φτηνές 5

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

strSQL = " CREATE TABLE tblData ( Id_Num αριθμός) ? "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tblData ΑΞΙΕΣ ( 0 ) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tblData ΑΞΙΩΝ ( 1 ) ? "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO tblData ΑΞΙΕΣ ( 2 ) ? "

DoCmd.RunSQL ( strSQL )
Η 6

Πληκτρολογήστε το παρακάτω, για να ανοίξει ένα νέο εγγραφών και διερευνούν όλα τα δεδομένα από το " tblData " : .

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

rst.MoveLast

rst.MoveFirst
Η 7

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

Για Χ = 0 Για να rst.RecordCount - . 1

cellIntArray ( Χ ) = rst.Fields ( 0 ) Αξία

rst.MoveNext

Επόμενο X
Τετάρτη 8

Πληκτρολογήστε τα ακόλουθα για να μετατρέψει τη συστοιχία κυττάρων Ακέραιος σε μια μεταβλητή String :

για Χ = 0 Για 2

myString = myString & cellIntArray ( X ) & " , "

Επόμενο X
Η 9

Πληκτρολογήστε το παρακάτω, για να εμφανίσετε τα περιεχόμενα του " myString " μεταβλητή μέσω ενός κιβωτίου μήνυμα :

MsgBox myString

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

rst.Close

db.Close
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα