Ξεκινήστε το Microsoft Office Access και επιλέξτε "Blank Database , " και στη συνέχεια κάντε κλικ στο κουμπί " Δημιουργία ". Επιλέξτε από το μενού " Εργαλεία βάσης δεδομένων " , στη συνέχεια, κάντε κλικ στο " Visual Basic ". Επιλέξτε το μενού "Εισαγωγή" , στη συνέχεια, κάντε κλικ στο κουμπί "ενότητα ". 2
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα υπορουτίνα :
Private Sub alterPrimaryKey ( )
Τύπου " . Enter"
εικόνων 3
Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα μεταβλητή String :
Dim SQLstr Όπως String
Η 4
Πληκτρολογήστε την ακόλουθη για να δημιουργήσετε έναν νέο πίνακα με δύο στήλες , με τη χρήση " ID_Field " ως πρωτεύον κλειδί και " στήλη1 " ως στήλη κειμένου :
SQLstr = " CREATE TABLE myTbl "
SQLstr = SQLstr & " ( ID_Field INTEGER ΠΙΕΣΕΩΝ PK_ID_Field PRIMARY KEY , "
SQLstr = SQLstr & " στήλη1 TEXT ( 25 ) ) "
DoCmd.RunSQL ( SQLstr )
5
Τύπος τα παρακάτω για να καταργήσετε το πρωτεύον κλειδί ρύθμιση από το " ID_Field " :
SQLstr = " ALTER TABLE myTbl "
SQLstr = SQLstr & " DROP CONSTRAINT PK_ID_Field ? "
DoCmd . RunSQL ( SQLstr )
Η
6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την υπορουτίνα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα