Come modificare la chiave primaria

March 25

Come modificare la chiave primaria


Avere la conoscenza su come modificare una colonna con un vincolo di chiave primaria consente di risparmiare tempo quando si lavora con un database Microsoft Access. Righe di una tabella sono univocamente identificati utilizzando un vincolo di chiave primaria per l'integrità dei dati. Access crea un indice univoco per consentire un rapido accesso ai dati in una tabella con una chiave primaria. Utilizzare Visual Basic for Applications (VBA) in Access per automatizzare processi come la modifica di una colonna di chiave primaria.

istruzione

1 Avviare Microsoft Office Access e selezionare "Database vuoto" quindi fare clic su "Crea". Selezionare il menu "Strumenti database" quindi su "Visual Basic". Selezionare il menu "Inserisci" quindi su "Modulo".

2 Digitare la seguente per creare una nuova procedura:

Private Sub editPrimaryKey ()

Premere Invio."

3 Digitare quanto segue per dichiarare le variabili che si intende utilizzare per creare una nuova tabella con una chiave primaria:

Dim strSQL As String

Dim rst come Recordset

DBS fiochi come database

4 Digitare quanto segue per definire il database da utilizzare:

Set dbs = CurrentDb

5 Digitare quanto segue per eseguire un'istruzione SQL e creare una tabella chiamata "dataTable" con una chiave primaria:

strSQL = "CREATE TABLE dataTable"

strSQL = strSQL & "(PK_Field INTERO VINCOLO PK_PK_Field PRIMARY KEY,"

strSQL = strSQL & "città TESTO (25))"

DoCmd.RunSQL (strSQL)

6 Digitare la seguente per aggiungere tre righe di dati nella nuova tabella:

strSQL = "INSERT INTO dataTable ([PK_Field], [città])"

strSQL = strSQL & "VALORI (1, 'Fort Worth');"

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO dataTable ([PK_Field], [città])"

strSQL = strSQL & "VALORI (2, 'Arlighton');"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO dataTable ([PK_Field], [città])"

strSQL = strSQL & "VALORI (3, 'Dallas');"

DoCmd.RunSQL (strSQL)

7 Digitare quanto segue per rimuovere l'impostazione della chiave primaria dal campo "PK_Field":

strSQL = "ALTER TABLE dataTable"

strSQL = strSQL & "DROP CONSTRAINT PK_PK_Field;"

DoCmd.RunSQL (strSQL)

Rimozione del vincolo di chiave primaria vi permetterà di modificare la colonna chiave primaria.

8 Digitare quanto segue per aprire il "dataTable" e modificare la tabella utilizzando un Recordset:

Set rst = dbs.OpenRecordset ( "dataTable")

rst.MoveFirst

rst.Edit

rst.Fields ( "PK_Field"). Valore = 6

rst.Update

rst.Close

Il codice aggiornerà il "PK_Field" a 6 per la prima riga. Premere il tasto "F5" per eseguire la subroutine.

9 Tornare alla finestra di Microsoft Access e fare clic con il tavolo "dataTable" che si trova nel riquadro sinistro dello schermo del computer. Selezionare "Visualizzazione Struttura" e fare clic sulla riga "PK_Field". Fare clic sull'icona "chiave primaria" dal riquadro "Strumenti" per impostare questo campo di nuovo ad un campo chiave primaria.