Hi , having trouble using the delete method on an ADODB.recordet
having deleted a record i need to alter one of the fields in all the records after the deleted record. Here the code:


rstbatch.Open strBatchTableName, adoConBatch, adOpenKeyset, adLockOptimistic, adCmdTable

rstbatch.movenext
rstbatch.movenext
With rstbatch
            If Not (.BOF And .EOF) Then
                On Error Resume Next
                intRecNum = .Fields("Record_Number")
                oldRecNum = .Fields("Record_Number")
                .Delete
                If Err.Number = 3021 Then
                    .MoveLast
                    .Delete
                Else
                    .MoveNext
                    If .EOF Then
                        .MoveLast
                        VarBookmark = .Bookmark
                    Else
                        Do Until .EOF
                            .Fields("Record_Number") = intRecNum
                            .Update
                            If intRecNum = oldRecNum Then
                                If .EOF Then
                                    .MoveLast
                                    VarBookmark = .Bookmark
                                    Exit Do
                                End If
                            End If
                            intRecNum = intRecNum + 1
                            .MoveNext
                        Loop
                    End If
                End If
            .Bookmark = VarBookmark
            End If
        End With

Hi,

This is SQL server forum, you got to post that on a relavant forum as I could see that dealing with ASP. Not everyone would like to see an ASP related post here on this forum. Also you can delete the other post that you posted here on the same forum with the same topic and content.

Cheers!

_________________________
- Vijay G
Strive for Perfection

no its not asp...the code is VB6...and i amd using msde 2000 so therefore i have posted it here

In that case, you're still better off posting this in a VB forum. This SQL forum is meant for stuff directly related to SQL Server, while your question seems to deal with VB and ADO.

Cheers,

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

ok well i sorted it myself...thanks for the advice