Εκκίνηση της Microsoft Access , κάντε κλικ στην επιλογή "Blank Database " και κάντε κλικ στο κουμπί " Δημιουργία " . Κάντε διπλό κλικ στο " Προσθήκη νέου πεδίου " και πληκτρολογήστε " Πόλη " για να δημιουργήσετε την πρώτη στήλη . Πατήστε το πλήκτρο " Enter". Τύπος " FirstName " και πατήστε "Enter " για να δημιουργήσετε μια δεύτερη στήλη και πληκτρολογήστε "Επώνυμο " για να δημιουργήσετε μια τρίτη στήλη . 2
Πατήστε το " Ctrl " και " S" για την έναρξη των στο "Αποθήκευση ως " παράθυρο διαλόγου και κάντε κλικ στο "OK " για να αποθηκεύσετε τον πίνακα . κάντε κλικ στην καρτέλα "Δημιουργία " και κάντε κλικ στο εικονίδιο " Πίνακας " για να δημιουργήσετε έναν νέο πίνακα . Κάντε διπλό κλικ στο " Προσθήκη νέου πεδίου " και πληκτρολογήστε " κράτος" για να δημιουργήσετε ένα νέο πεδίο . Πατήστε "Enter " και πληκτρολογήστε " Πόλη " για να δημιουργήσετε ένα δεύτερο πεδίο . Πατήστε το πλήκτρο " Ctrl " και "S " για να αποθηκεύσετε για να ξεκινήσει το "Save As " παράθυρο διαλόγου και κάντε κλικ στο "OK " για να αποθηκεύσετε τον πίνακα .
Εικόνων 3
Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων » και κάντε κλικ στο κουμπί " σχέσεις " για να καθορίσει τις σχέσεις μεταξύ πινάκων . Κάντε κλικ στο " Πίνακας 1 " και " Πίνακας 2 " για να τα επιλέξετε στο παράθυρο διαλόγου " Εμφάνιση πίνακα " . Κάντε κλικ στο κουμπί "Προσθήκη" και κάντε κλικ στο " Κλείσιμο ".
Η
4 Κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει το πρόγραμμα επεξεργασίας VBA . Κάντε κλικ στο " Εισαγωγή" και κάντε κλικ στο πεδίο " Ενότητα " για να εισάγετε μια νέα ενότητα
5
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να συμπληρώσετε τους δύο πίνακες με τα δεδομένα : .
Private Sub populateTables ( ) Dim strSQL Όπως StringDoCmd.SetWarnings FalsestrSQL = " INSERT INTO Πίνακας 1 " strSQL = strSQL & " ΑΞΙΕΣ ( 1 , « Ντάλας » , « Ιωάννης » , « Smith ') " DoCmd.RunSQL ( strSQL ) strSQL = " ? INSERT INTO Πίνακας 1 " strSQL = strSQL & " ΑΞΙΕΣ ( 2 , « Λος Άντζελες », « Μαρία », « Jones » ) " DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO Πίνακας 1 " strSQL = strSQL & " ΑΞΙΕΣ ( 3 , « Los Angeles »,« Charles »,« Lopez ') " DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO Πίνακας 1 " strSQL = strSQL & " ΑΞΙΕΣ (4', Ντάλας » , « Όσκαρ »,« Ramos ') " DoCmd.RunSQL ( strSQL ) strSQL = " INSERT INTO Πίνακας 2 " strSQL = strSQL & " ΑΞΙΕΣ ( 1 , « Texas », « Ντάλας» ) " DoCmd . RunSQL ( strSQL ) strSQL = " INSERT INTO Πίνακας 2 " strSQL = strSQL & " ΑΞΙΕΣ ( 2 , « Καλιφόρνια »,« Los Angeles ') " DoCmd.RunSQL ( strSQL ) End Sub
Η 6
Πατήστε το πλήκτρο "F5 " για να εκτελέσετε τη διαδικασία . Επιστρέψτε στην Microsoft Access και επιλέξτε τον πίνακα "Δημιουργία " και κάντε κλικ στο " Σχεδίαση ερωτήματος ". Κάντε κλικ στο " Tabl1 ", " Πίνακας 2 , " και κάντε κλικ στο κουμπί " Προσθήκη " . Κάντε διπλό κλικ στο " FirstName " και κάντε διπλό κλικ στο "Επώνυμο " από το " Πίνακας 1 ". Κάντε διπλό κλικ στο " κράτος " και κάντε διπλό κλικ στο " City" από τον πίνακα " Tabl2 . " Τύπος " Λος Άντζελες" στην " Κριτήρια " σειρά για η στήλη " City" . Κάντε κλικ στο εικονίδιο "Run " για να εκτελέσετε το ερώτημά σας και να δείτε το πρώτο όνομα, το επώνυμο , και την κατάσταση για τους ανθρώπους που ζουν στο Lost Άντζελες .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα