Nachdem das Wissen , wie man eine Spalte mit einem Primärschlüssel bearbeiten können sparen Sie Zeit bei der Arbeit mit einem Microsoft Access-Datenbank. Zeilen in einer Tabelle eindeutig identifiziert mit Hilfe eines Primärschlüssels für die Datenintegrität . Access erstellt einen eindeutigen Index , um schnellen Zugriff auf Daten in einer Tabelle mit einem Primär-Schlüssel ermöglichen. Verwenden Sie Visual Basic für Applikationen (VBA) in Access , um Prozesse wie die Bearbeitung einen Primärschlüssel Spalte automatisieren. Anleitung
1
Starten Sie Microsoft Office Access , und wählen Sie " Leere Datenbank " klicken Sie dann auf " Erstellen". Wählen Sie den " Database Tools "-Menü klicken Sie dann auf " Visual Basic ". Wählen Sie das Menü "Einfügen" und klicken Sie auf
2
Geben Sie die folgende Prozedur , um eine neue zu erstellen "Module . ":
Private Sub editPrimaryKey ()
Presse " Geben Sie "
3
Geben Sie den folgenden , um die Variablen, die Sie verwenden, um eine neue Tabelle mit einem Primärschlüssel erstellen erklären : .
Dim strSQL As String
< p> Dim rst als Recordset Dim dbs
As Database
4
Geben Sie den folgenden , um die Datenbank zu definieren, verwenden:
Set dbs = CurrentDb
5
Geben Sie den folgenden , um eine SQL -Anweisung ausführen und erstellen Sie eine Tabelle mit dem Namen " dataTable " mit einem Primärschlüssel :
strSQL = " CREATE TABLE dataTable "
strSQL = strSQL & " ( PK_Field INTEGER PRIMARY KEY CONSTRAINT PK_PK_Field "
strSQL = strSQL & " Stadt TEXT ( 25) ) "
DoCmd.RunSQL ( strSQL )
6
Geben Sie den folgenden drei Zeilen mit Daten in die neue Tabelle hinzu:
strSQL = " INSERT INTO dataTable ( [ PK_Field ], [ Stadt ] ) "
strSQL = strSQL & " VALUES ( 1 " Fort Worth '); "
DoCmd.SetWarnings Falsch
DoCmd.RunSQL ( strSQL )
strSQL = " INSERT INTO dataTable ( [ PK_Field ], [ Stadt ] ) "
strSQL = strSQL & " VALUES (2, ' Arlighton '); "
DoCmd.RunSQL ( strSQL )
strSQL =" INSERT INTO dataTable ( [ PK_Field ], [ Stadt ] ) "
strSQL = strSQL & " VALUES (3, ' Dallas '); "
DoCmd.RunSQL ( strSQL )
7
Geben Sie den folgenden , um den Primärschlüssel -Einstellung aus dem " PK_Field "-Feld entfernen:
strSQL = " ALTER TABLE dataTable "
strSQL = strSQL & "DROP CONSTRAINT PK_PK_Field ; "
< p > DoCmd.RunSQL ( strSQL )
Entfernen des Primärschlüssels können Sie den Primärschlüssel Spalte bearbeiten.
8
Geben Sie den folgenden , um die " dataTable " öffnen und bearbeiten Tisch mit einem Recordset:
Set rst = dbs.OpenRecordset ( " dataTable " )
rst.MoveFirst
rst.Edit
rst.Fields ( " PK_Field " ) . Value = 6
rst.Update
rst.Close
der Code wird die " PK_Field " bis 6 Update für die erste Reihe . Drücken Sie auf " F5 ", um die Unterroutine ausführen .
9
Schalter zurück in die Microsoft Access -Fenster mit der rechten Maustaste die Tabelle "Datentabelle" auf der linken Seite Ihres Bildschirms befindet . Wählen Sie " Design-Ansicht " und klicken Sie auf " PK_Field " Reihe. Klicken Sie auf die "Primary Key " -Symbol aus dem "Tools" Bereich , um dieses Feld wieder auf eine primäre Schlüsselfeld .