Find placering i recordset

Hvis du finder en record frem med ID-nummer så kan man ikke få placeringen og selve ID kan jo som bekendt ikke anvendes til at angive placeringen da man kan slette records.

Du må nok uddybe ?

Hvad med bare at løbe recordsettet igennem for at finde den rigtige record sådan her:

Dim Counter
Dim Pos
Counter = 0
While not rs.eof
  Counter = Counter + 1
  if rs.felt = "det du søger" then
    Pos = Counter
Wend

rs.felt = rs("felt")

sblar > pointen var jo at undgå den slag workarounds ;-)

coltau > på det tidspunkt hvor dataene hentes, må de da have en rækkefølge og en placering i den givne sortering - kan den ikke skrives ud?

Hvis du åbner et recordsæt hvor RS.CursorType > 0 og RS.CursorLocation = 3 (adUseClient) så indeholder funktionen RS.AbsolutePosition positionen.

<%
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "d:\localsrv\wwwroot\test\test.mdb"

Set objConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.Recordset")
RS.CursorLocation = 3 ' adUseClient
RS.CursorType = 1 ' adOpenKeySet
objConn.Open strConnect
RS.Open "select * from Images", objConn, , , &H0001 ' adCmdText

Do While Not rs.EOF
  Response.Write "Pos: " & RS.AbsolutePosition & "<br>"
  rs.MoveNext
Loop
rs.Close
Set rs = Nothing
%>

coltau > Jeg har ikke testet, men jeg går ud fra at dit virker....det ser ud til at du har ramt det jeg søgte.

Skriv et svar, så får du pointene.

Jeg har testet det grundigt. Det er vigtigt at du passer på disse kommandoer:

RS.CursorLocation = 3 ' adUseClient
Virker kun med adUseClient ikke med 2 = adUseServer

RS.CursorType = 1 ' adOpenKeySet
Virker med alt større end 0