Deleting a Field that is a Part of an Index with SQL command : Index « Access « VBA / Excel / Access / Word






Deleting a Field that is a Part of an Index with SQL command

 
Sub DeleteIdxField() 
    Dim conn As ADODB.Connection 
    Dim strTable As String 
    Dim strCol As String 
    Dim strIdx As String 

    On Error GoTo ErrorHandler 
    Set conn = CurrentProject.Connection 

    strTable = "myTable" 
    strCol = "myName" 
    strIdx = "multiIdx" 

    conn.Execute "ALTER TABLE " & strTable & " DROP CONSTRAINT " & strIdx & ";" 

    conn.Execute "ALTER TABLE " & strTable & " DROP COLUMN " & 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.Auto-Generate an Index Using VBA
2.Adding a Single-Field Index to an Existing Table (Intrinsic constants for the IndexNulls property of the ADOX Index object)
3.Adding a Multiple-Field Index to an Existing Table
4.Listing Indexes in a Table
5.Deleting Indexes from a Table
6.Adding a Unique Index Based on Two Fields to an Existing Table
7.Alter table to delete an Index with SQL command
8.Creating an Index that Disallows Null Values in the Key with SQL command
9.Creating an Index with the Ignore Null Option with SQL command
10.Deleting an Index with SQL command
11.Creating a Primary Key Index with Restrictions with SQL command