Adding a Primary Key to a Table with SQL command : Primary Key « Access « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Access » Primary Key 




Adding a Primary Key to a Table with SQL command
 
Sub AddPrimaryKey() 
    Dim conn As ADODB.Connection 
    Dim strTable As String 
    Dim strCol As String 

    On Error GoTo ErrorHandler 
    Set conn = CurrentProject.Connection 

    strTable = "myTable" 
    strCol = "Id" 

    conn.Execute "ALTER TABLE " & strTable & " ADD CONSTRAINT pKey PRIMARY KEY(" & strCol & ");" 
ExitHere: 
    conn.Close 
    Set conn = Nothing 
    Exit Sub 
ErrorHandler: 
    Debug.Print Err.Number & ":" & Err.Description 
    Resume ExitHere 
End Sub 

 














Related examples in the same category
1.Creating a Primary Key
2.Creating a Single-Field Primary Key with SQL command
3.Create a primary key
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.