We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

ASP error '80020009'

Data-Base
Data-Base asked
on
Medium Priority
447 Views
Last Modified: 2012-05-07
Hello,

I have a code that used to work! now for some reason not any more!
all I get after clicking update is

error '80020009'

/academics/timetable_admin/tt_edit_2.asp, line 73

and it dose the update !!!
but it stops and will not continue the rest of the code (showing the table with updated data)

any clue ?
55 '============================================================
56 ' Fix and update the timetable Day based on the Day type
57 sql_str = "SELECT timetable_description.start_date, timetable_description.end_date, timetable_descrip
tion.rotation, timetable_description.start_day FROM timetable_description WHERE timetable_description.id="&tt
_id
58 Set RY = Server.CreateObject("ADODB.Recordset")
59 RY.Open sql_str, objConn, adOpenKeyset, adLockOptimistic
60
61 curDate = CDATE(RY("start_date"))
62 endDAte = CDATE(RY("end_date"))
63 curDay = RY("start_day")
64 rotation = RY("rotation")
65
66 Set RX = Server.CreateObject("ADODB.Recordset")
67 DO While curDate <= endDAte
68
69 sql_str = "SELECT timetable_days.day, timetable_days.type FROM timetable_days WHERE timetable_day
s.date = #"&curDate&"# AND timetable_days.tt_id="&tt_id
70
71 RX.Open sql_str, objConn, adOpenDynamic, adLockOptimistic
72
73 IF RX("type") = 10 THEN
74 RX("day") = curDay
75
76 curDay = CurDay + 1
77 IF curDay > rotation THEN
78 curDay = 1
79 END IF
80
81 ELSE
82 RX("day") = 0
83 END IF
84
85 RX.Update
86 RX.Close
87
88 curDate = dateadd("d",1,CDATE(curDate))
89
90 LOOP
91
92 '==============================================================

Open in new window

Comment
Watch Question

CERTIFIED EXPERT

Commented:
Did the error message provide a description? When you click on debug, which line is highlighted?

Lead Software Engineer
CERTIFIED EXPERT
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

Commented:
Hello Thank you

thenelson , That is the only Error message I got!


Shaun_Kline, your code worked, how I did not notice that!
now can I use as the example below? I usually use it to check.

change "If Not RX.BOF And Not RX.EOF Then" with "If RX.RecordCount > 0 Then" ?

and witch one is better?
If RX.RecordCount > 0 Then
  IF RX("type") = 10 THEN
    RX("day") = curDay
    curDay = CurDay + 1
    IF curDay > rotation THEN
      curDay = 1
    END IF
  ELSE
    RX("day") = 0
  END IF
  RX.Update
END IF

Open in new window

Shaun KlineLead Software Engineer
CERTIFIED EXPERT

Commented:
The one issue that can occur, depending on the type of data source you are using, is that RecordCount is not always populated. (I forget what version of ADO and what data source it was that I ran into this issue.) Checking for BOF and EOF (and truthfully, I only checked for EOF) seems to be consistent.

Author

Commented:
Thanks allot :-)
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.