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
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα