Ξεκινήστε το Microsoft Office Access και επιλέξτε "Blank Database " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Επιλέξτε από το μενού " Εργαλεία βάσης δεδομένων " και στη συνέχεια κάντε κλικ στο " Visual Basic ". Επιλέξτε το μενού "Εισαγωγή " και στη συνέχεια κάντε κλικ στο κουμπί " Ενότητα ". 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα διαδικασία :
Private Sub editPrimaryKey ( )
Τύπου " . Enter "
εικόνων 3
Πληκτρολογήστε το παρακάτω, για να δηλώσει τις μεταβλητές που θα χρησιμοποιήσετε για να δημιουργήσετε έναν νέο πίνακα με ένα πρωτεύον κλειδί :
Dim strSQL As String
Dim rst Όπως εγγραφών
Dim dbs Όπως Database
Η 4
Πληκτρολογήστε το παρακάτω, για να καθορίσει τη βάση δεδομένων για χρήση :
Set dbs = CurrentDb
5
Πληκτρολογήστε το παρακάτω για να εκτελέσει μια δήλωση SQL και να δημιουργήσει έναν πίνακα που ονομάζεται " datatable " με ένα πρωτεύον κλειδί :
strSQL = " CREATE TABLE datatable "
strSQL = strSQL & " ( PK_Field INTEGER ΠΙΕΣΕΩΝ PK_PK_Field PRIMARY KEY , "
strSQL = strSQL & «πόλη TEXT ( 25 ) ) "
DoCmd.RunSQL ( strSQL )
Η 6
Πληκτρολογήστε τα παρακάτω για να προσθέσετε τρεις σειρές δεδομένων σε νέο πίνακα :
strSQL = " INSERT INTO datatable ( [ PK_Field ] , [ πόλη ] ) "
strSQL = strSQL & " ΑΞΙΕΣ ( 1 « Fort Worth ») ? "
DoCmd.SetWarnings Λάθος
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO datatable ( [ PK_Field ] , [ πόλη ] ) "
strSQL = strSQL & " ΑΞΙΕΣ ( 2 , ' Arlighton ') ? "
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO datatable ( [ PK_Field ] , [ πόλη ] ) "
strSQL = strSQL & " ΑΞΙΕΣ ( 3 , « Ντάλας» ) ? "
DoCmd.RunSQL ( strSQL )
Η 7
Πληκτρολογήστε το παρακάτω, για να καταργήσετε το πρωτεύον κλειδί ρύθμιση από το " PK_Field " πεδίο :
strSQL = " ALTER TABLE datatable "
strSQL = strSQL & " DROP CONSTRAINT PK_PK_Field ? "
DoCmd.RunSQL ( strSQL )
Αφαίρεση του πρωτεύοντος κλειδιού περιορισμός θα σας επιτρέψει να επεξεργαστείτε το πρωτεύον κλειδί της στήλης .
8
Πληκτρολογήστε το παρακάτω, για να ανοίξει το " datatable » και να επεξεργαστείτε το πίνακα, σύμφωνα με τις εγγραφές:
Set RST = dbs.OpenRecordset ( " datatable " )
rst.MoveFirst
rst.Edit
rst.Fields ( " PK_Field " ) . Value = 6
rst.Update
rst.Close
ο κωδικός θα ενημερώσει το « PK_Field " έως 6 για την πρώτη γραμμή . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την υπορουτίνα .
Η 9
Επιστρέψτε στην Microsoft Access Παράθυρο και κάντε δεξί κλικ στον πίνακα " datatable " που βρίσκεται στο αριστερό τμήμα του παραθύρου της οθόνης του υπολογιστή σας . Επιλέξτε " Προβολή σχεδίασης " και κάντε κλικ στο " PK_Field " σειρά . Κάντε κλικ στο εικονίδιο " Πρωτεύον κλειδί " από το " Εργαλεία" παράθυρο για να ορίσετε αυτό το πεδίο πίσω σε ένα πεδίο πρωτεύοντος κλειδιού .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα