Sql Server - Adding Unique Field Values
Using Sql Server ADOX - A Code Contribution From Tim Radford
Public Function AddZUnique() As Boolean
....Dim catCheck As New ADOX.Catalog
....Dim colUpdate As New ADOX.Column
....Dim colCheck As ADOX.Column
....Dim I As Integer
....On Error GoTo AddZUnique_Error
....Screen.MousePointer = vbHourglass
....catCheck.ActiveConnection = SQLServerDB
....For I = 0 To catCheck.Tables.Count - 1
......With catCheck.Tables(I)
........If .Type = "TABLE" Then
..........For Each colCheck In .Columns
............If colCheck.Attributes = 1 Then
..............'this table has a counter/identity field/column
..............Debug.Print .Name, colCheck.Name,
..............Set colUpdate = New ADOX.Column
..............With colUpdate
.................Name = "ZUnique"
.................Type = adVarChar
.................DefinedSize = 255
.................Attributes = adColNullable
..............End With
..............Columns.Append colUpdate
..............Exit For
............End If
..........Next
........End If
......End With
....Next I
....MsgBox "Finished adding Identity Flag field.", vbInformation
....GoTo AddZUnique_End
AddZUnique_Error:
....Select Case Err
......Case 3367, -2147217858 'already there
......Case Else
........ErrorFlag = ShowErr("modOLEDB:AddZUnique", Err, Error)
....End Select
....If ErrorFlag Then
......Resume
....Else
......Resume Next
....End If
AddZUnique_End:
....AddZUnique = True
....Screen.MousePointer = vbDefault
End Function