Autonumber!

Her er et eksempel på hvordan man gør den slags...

Sub CreateAutoNumberField(strDBPath As String)
  Dim catDB As ADOX.Catalog
  Dim tbl As ADOX.Table

  Set catDB = New ADOX.Catalog
  \' Open the catalog.
  catDB.ActiveConnection = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
      \"Data Source=\" & strDBPath

  Set tbl = New ADOX.Table
  With tbl
      .Name = \"Contacts\"
      Set .ParentCatalog = catDB
      \' Create fields and append them to the
      \' Columns collection of the new Table object.
      With .Columns
        .Append \"ContactId\", adInteger
        \' Make the ContactId field auto-incrementing.
        .Item(\"ContactId\").Properties(\"AutoIncrement\") = True
        .Append \"CustomerID\", adVarWChar
        .Append \"FirstName\", adVarWChar
        .Append \"LastName\", adVarWChar
        .Append \"Phone\", adVarWChar, 20
        .Append \"Notes\", adLongVarWChar
      End With
  End With

  \' Add the new Table to the Tables collection of the database.
  catDB.Tables.Append tbl

  Set catDB = Nothing
End Sub

Hvorfor sætter du ikke bare din kolonne i access til typen \"Autonummereing\" ?

Stig

brain:> og hvor besværlig var det så lige ? Det der er til VB og ikke ASP!!! ASP kan ikke Dimme noget AS [noget] ..

I et \"create table\" SQL query skriver man f.eks.

CREATE TABLE min_tabel (id SMALLINT(6) auto_increment);

auto_increment betyder at feltet er sat til Autonummerering.