پیغام خطای پاک کردن از بانک

[hassan1365]

سلام
قبلا معذرت میخوام .تو تاپیک آقای غیبی در این رابطه چیزی نبود.
موقع پاک کردن یه رکورد این پیغام رو میده:


Error Type:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/delete_entry.asp, line 35


این سورس صفحه هست که ID رو برای پاک شدن به اون میفرستم.



<%

'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsDeleteEntry 'Holds the recordset for the record to be deleted
Dim strSQL 'Holds the SQL query for the database
Dim lngRecordNo 'Holds the record number to be deleted

'Read in the record number to be deleted
lngRecordNo = CLng(Request.QueryString("ID"))

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mydb.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"

'Create an ADO recordset object
Set rsDeleteEntry = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT mytable.* FROM mytable WHERE no=" & lngRecordNo

'Set the lock type so that the record is locked by ADO when it is deleted
rsDeleteEntry.LockType = 3

'Open the recordset with the SQL query
rsDeleteEntry.Open strSQL, adoCon

'Delete the record from the database
'If NOT rsDeleteEntry.EOF Then
rsDeleteEntry.Delete
'end if

'Reset server objects
rsDeleteEntry.Close
Set rsDeleteEntry = Nothing
Set adoCon = Nothing

'Return to the delete select page incase another record needs deleting
Response.Redirect "delete_select.asp"
%>


نظر دوستان چیه؟
موفق باشید.

[mehran-a]

دوست عزیز فکر می کنم علتش این باشه که رکوردست باز نمی شه (پارامتری می فرستی )
lngRecordNo = CLng(Request.QueryString("ID"))
این Id رو نمی تونه پیدا بکنه در نتیجه رکوردست خالی است و چیزی برای پاک کردن نیست

[M-Gheibi]

قبلا معذرت میخوام .تو تاپیک آقای غیبی در این رابطه چیزی نبود.
این از اون حرفا بودا :چشمک:
http://www.barnamenevis.org/forum/showpost.php?p=113578&postcount=22

ضمنا در قسمتی از کد بالا نوشته شده است:

'If NOT rsDeleteEntry.EOF Then
rsDeleteEntry.Delete
'end if

پیشنهاد میکنم دو علامت ' را از خطوط اول و سوم حذف کنید. شاید مشکل برطرف شود.

[hassan1365]

سلام آقای غیبی
اون شرط رو خودم گذاشتم چون درست کار نمیکرد تبدیل به توضیحاتش کردم.

درهر صورت ممنونم.مشکلم بر طرف شد.
موفق باشید