שאלת מחשבה…

אל תפצל ל-3 טבלאות – תאחד לטבלה אחת

לקוח קובע את דרישות האפליקציה
לא את דרך היישום שלה. מה שנמצא מאחורי הממשק שאתה בונה לו – שקוף בשבילו.
לא עניינו אם יש טבלה אחת או 50 טבלאות, ולא עובדים בצורה לא נכונה בגלל התעקשות של מישהו שלא מבין. פשוט מסבירים לו למה זה לא נכון.

אממ…
אם הבנתי אותך נכון, אתה רוצה למיין את התוצאות של השליפה מה DB ל 3 טבלאות HTML שכל אחת מהן תהיה דרגת קושי אחרת, נכון?

אז תשלוף פשוט עם order by לפי העמודה של טבלת הקושי, תשתמש במשתנה שיחזיק את רמת הקושי של השורה האחרונה שהצגת מה recordset, ובכל ריצה של הלולאה על ה recordset תבדוק אם רמת הקושי נשארה זהה למשתנה שאתה שומר. אם כן, סגור את טבלת ה HTML ופתח חדשה (אל תשכח לעדכן את המשתנה), ואם לא, פשוט תמשיך כרגיל…

דוגמית לבקשתך:

difficultyLevel = ""
sqlStr = "SELECT strDifficultyLevel, intAge, strName FROM tblTableName ORDER BY strDifficultyLevel"
' note that the ORDER BY section – it's a must.
rs.open sqlStr, connectionString
 if NOT rs.eof then
  do until rs.eof
' check if the difficulty level is the same as the last record displayed
   if difficultyLevel = rs("strDifficultyLevel") THEN
   Response.write "<tr><td>" & rs…. & "</td></tr>"
   ELSE
   Response.write "</table>"& vbCrLf &"<table>"
   Response.write "<tr><td>" & rs…. & "</td></tr>"
   END IN
' "remember" the last difficulty level displayed    difficultyLevel = rs("strDifficultyLevel")
   rs.moveNext
  loop
 end if

אני מקווה שעכשיו זה מספיק ברור.

אני לא יודע אם זה נכון אבל
לא עדיף במקרה הזה לעבוד עם קבוצות (group by) ???

אין לך פתיחה של הטבלה הראשונה,
וגם לא סגירה של האחרונה….

לא ציינתי את זה בדוגמא שלי כי חשבתי שזה ברור מאילו…
חוצמזה, מספר הערות:
– אין שום טעם להעביר את הערך שנמצא בתוך ה recodset למשתנה רק בשביל להציג אותו.
– אין שום טעם לרשום דברים פעמיים – כתבת בקוד שלך קטעים שמופיעים גם אם התנאי מתקיים וגם אם לא – בשביל מה? עדיף לכתוב אותם פשוט מחוץ לתנאי.

קוד משופר:

<%
start_date = request.querystring("date")
level = ""
Response.write "<table border=1 cellpadding=2 cellspacing=0 width=620>"

SQL = "Select first_name,last_name,level FROM lama Where start_date='" & start_date & "'" & "ORDER BY level"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,DSN,3,1
if NOT rs.eof then
do until rs.eof
if level <> rs("level") Then
Response.write "</table>"& vbCrLf &"<table border=1 cellpadding=2 cellspacing=0 width=620>"
END IF
Response.Write "<tr>"
Response.Write "<td>" & rs("first_name") & " " & rs("last_name") Response.Write"</tr>"
rs.moveNext
loop
end if
rs.Close
Set rs = Nothing
Response.write "</table>"

זה קצת שונה מהדוגמית קוד שנתתי לך קודם, אבל שם עשיתי איזה טעות קטנה – מספיק רק תנאי בלי else, כמו שאפשר לראות מהקוד הזה.