nulsæt automatisk ID i access tabel

Prøv at køre funktionen Compact and Repair database. Det skulle gerne nulstille feltet.

ID-er er jo bare unikke numre. Du skal ikke begynde at lave
aritmetik på dem. Om dit nummer er 1 eller 1001 skal være ligegyldigt
for dig.

-> somaliomar, det skulle gøres gennem asp og ikke gennem åbning af filen, som nulstiller id numret. Jeg fik vist ikke formuleret mig præcist nok. Så du får point.
-> erikjacobsen, okay - jeg finder en anden måde.

:-) k_l

En anden løsning for at nulstille et Autonummer-felt er at slette hele feltet fra tabellen og derefter oprette feltet igen i din tabel. Sådan gør du i ASP:

    strSQL = "DELETE * from arbejdstabel3"
    Conn.Execute(strSQL)
    strSQL = "DROP INDEX PrimaryKey ON myTable"
    Conn.Execute(strSQL)
    strSQL = "ALTER TABLE myTable DROP Id"
    Conn.Execute(strSQL)
    strSQL = "ALTER TABLE myTable ADD  Id LONG NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY PrimaryKey"
    Conn.Execute(strSQL)
    Conn.Close
    Set Conn = Nothing

Ups... ovenstående kode virker vist ikke ...

Prøv i stedet:

<%
Sub CompactDatabase(strDBPath)
    Dim Engine
    Dim fso
    Dim strSrc
    Dim strDest
    Dim strTempDBPath
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    strTempDBPath = Left(strDBPath, InStrRev(strDBPath, "\")) & "tmpdb.mdb"
   
    If fso.FileExists(strDBPath) Then
        strSrc = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
        strDest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTempDBPath
        Set Engine = CreateObject("JRO.JetEngine")
       
        Engine.CompactDatabase strSrc, strDest
        fso.CopyFile strTempDBPath, strDBPath
        fso.DeleteFile strTempDBPath

        Set Engine = Nothing
    End If
   
    Set fso = Nothing
End Sub

'...

    strSQL = "DELETE * from arbejdstabel3"
    Conn.Execute(strSQL)
    Conn.Close
    Set Conn = Nothing
    CompactDatabase "C:\DIN DATABASE STI\database.mdb"
%>