בטבלאות יש לי כך:
Title-הקטגוריה של הפורום[כמו למשל מחשבים]
ForumName- שם הפורום[כמו למשל בניית אתרים]

איך ניתן להציג את כל הפורומים מאותה Title ביחד[תחת אותה Title] ?

חשבתי אולי לעשות התחברות ראשונה שבה אני אבדוק כמה סוגים שונים של Title יש לי ואשים אותם במערך String וכך אוכל לפתוח התחברות נוספת שכל פעם שולפת את הנתונים בהתאם לכל משתנה במערך. אני מוצא דרך זה עקיפה ומסורבלת ואינני מצליח לחשוב על אלגוריתם נוסף.

הכוונה היא שהדף ידפיס בצורה הבאה:

מחשבים [זו כותרת - Title]
בניית אתרים [Title=מחשבים, Name=בניית אתרים] - פורום
עיצוב גרפי [Title=מחשבים, Name=עיצוב גרפי] - פורום
אבטחת מידע [Title=מחשבים, Name=אבטחת מידע] - פורום

חיות [זו כותרת - Title]
דובים [Title=חיות, Name=דובים] - פורום
נמרים [Title=חיות, Name=נמרים] - פורום
קופים [Title=חיות, Name=קופים] - פורום

עכשיו בהנחה שיש לי מספר לא ידוע של כותרות[Title] אני לא יכול לכתוב פשוט שורות קוד כאלה כי אינני יודע כמה פעמים אצטרך לעשות זאת.
וכעת נחזור לשאלתי: הם יש דרך שונה מהדרך שרשמתי[בעזרת מערך]?

תודה חבר'ה.

אני לא הבנתי את המיבנה נתונים שלך. תגיד איזה תבלא יש לך, עם איזה נתונים.
אם אתה שואל איך עוברים על כל הרשומות בתבלא אז הינה דוגמא:

קוד:

  <%
Set rst1 = Server.CreateObject("ADODB.Recordset")
rst1.Open "SELECT * FROM tblTitle", db' פתיחת שאילתה שתחזיר את הרשומות
do
 Response.Write(rst1("colName"))
 rst1.movenext
loop until rst1.eof
%>

אני אסביר את עצמי יותר טוב:
יש לי טבלה, בתוך הטבלה יש לי:
ForumName - מקבל String - שם הפורום
Title - מקבל String - הכותרת [אליה משויכים מספר פורומים]


יכולים להיות לי 5[כמה שאני רוצה] פורמים תחת אותה כותרת כמו למשל:

מחשבים
בניית אתרים
תיכנות
משחקים
...

בDB זה ניראה ככה: [הכל באותה טבלה]
Title = מחשבים, ForumName = בניית אתרים
Title = מחשבים, ForumName = תיכנות
Title = מחשבים, ForumName = משחקים

עכשיו הבעיה:

אם אני אומר להציג Title ואז את הפורום יצא לי דבר כזה:

מחשבים
בניית אתרים

מחשבים
תיכנות

מחשבים
משחקים


אם אני אומר להציג את כל הנתונים שבהם Title = מחשבים אני אמנם אקבל:

מחשבים
בניית אתרים
תיכנות
משחקים

אך בהנחה שיש לי עוד כותרות ועוד פורומים תחת אותם כותרות אחרות הן לא יוצגו.
אז איך אני יכול להציג כל פורום מתחת לכותרת המתאימה לו[בניית אתרים ותיכנות מתחת למחשבים, היפ הופ וסטריט מתחת לריקוד וכו'] בהתחשבות בעובדה שאינני יודע מה כמות הכותרות[Title] שיש לי?

מקווה שזה ברור. תודה.

אוקי, אחשיו הבנתי.

המיבנה נתונים שלך לא טוב. הוא לא בנוי בצורה גמישה. אני הייתי מציע לך לשקול מחדש את המיבנה.

בכל מיקרא, יש כמה פתרונות לשאלה שלך. (עם אותו מיבנה נתונים כמו שלך)

אני חושב שהכי יעיל זה עם עם מארך. אתה מכניס למארך את כל הקתגוריות, ואז רץ על שאילתה שמחזירה את כל הנתונים של אותה קתגוריה.

הנה דוגמא:

קוד:

 <%
Set rst1 = Server.CreateObject("ADODB.Recordset")
rst1.Open "SELECT * FROM tbl1", db' פתיחת שאילתה שתחזיר את הרשומות
if rst1.eof then
Response.Write("אין כלום")
Response.End
end if
dim strTemp
Dim txtToInsertToArray
txtToInsertToArray=""
strTemp=""
do
strTemp = rst1("Title")
if InStr(1, txtToInsertToArray, "," & strTemp) = 0 then
txtToInsertToArray = txtToInsertToArray & "," & strTemp 
end if
if not rst1.eof then
rst1.movenext
end if
loop until rst1.eof
Dim ArrayOfTitles
ArrayOfTitles = Split(txtToInsertToArray, ",")
 
dim x
For x = 1 To UBound(ArrayOfTitles)
rst1.close
set rst1 = nothing
Set rst1 = Server.CreateObject("ADODB.Recordset")
Response.Write("<p><b><u>" & ArrayOfTitles(x) & "</u></b></p>")
rst1.Open "SELECT * FROM tbl1 where Title='" & ArrayOfTitles(x) & "'", db
if rst1.eof then
Response.Write("<p>ריק</p>")
else
do
Response.Write("<p>" & rst1("ForumName") & "</p>")
if not rst1.eof then
	rst1.movenext
end if
loop until rst1.eof
end if
next
%>

ביגלל שהקוד לא כל כך קצר, וה-TAB-ים בקושי מופיעים, והקוד לא כל כך קריא,
לכן אני מצרף קוד עם מסד ומחרוזת קישור:

https://2007-uploaded.fresh.co.il/2...04/21043225.rar

הבנתי, אם כך הפיתרון הוא בהחלט מערך. אך רמי, אשמח אם תוכל לפרט עוד על בניית הDB בצורה גמישה יותר !

בנוסף, מהו הפסיק DB שמופיע בשורת הSQL?

קוד:

 rst1.Open "SELECT * FROM tbl1", db

תודה על הקוד ותודה על העזרה !

דרך אגב, כתבתי את הקטע הנ"ל בצורה טיפה שונה שלדעתי היא יותר טובה, או לפחות יותר קלה להבנה[בניגוד לכל פקודות הSplit וכו'].
אתה מוזמן להסתכל אם אתה מעוניין:
https://2007-uploaded.fresh.co.il/2...05/18930268.txt

1.

קוד:

 rs("Title") 

לא תמיד תחזיר לך את כל הרשומות.
אני לא חושב שהצורה שלך יותר יעילה. היא פשוט שונה. והמערך הוא לא חובה. יש עוד דרכים לעשות את זה.

2. אם אתה תסתכל איך הקוד שלי עובד, אז תיראה שיש לי (בקובץ המצורף) מחרוזת קישור.
אז כך אני מעביר לה פרמתר.
בדיוק כמו שעשית כאן עם ה-CN:

קוד:

rs.Open GetForum ,cn 

רק אצלי קוראים לזה DB.


בקשר למיבנה מסד נתונים.
אני הייתי עושה 2 תבלאות
לראשונה הייתי קורא tblTitel
ולשניה tblFurom

המיבנה של הטבלה tblTitel הוא ID, שהוא מספר רץ שלא חוזר על עצמו והוא מפתח ראשי, ו-titel שהוא טקסט.
המיבנה של הטבלה tblFurom הוא, ID, שהוא מספר רץ שלא חוזר על עצמו, IDtitel שהוא מספר, ו-NAME שהוא השם של התת פורום, טקסט.

מכאן זה פשוט. אתה מוסיף לפי ה-ID ב-tblTitel ל-IDtitel ב-tblFurom.

הנה דוגמת נתונים של טבלא tblTitel



והינה דוגמא לתבלה tblFurom:



ואחשיו ב-2 שאילתות פשוטות אתה יכול לקבל בקלות מה שאתה רוצה. וגם ניתן בקלות לעשות שינויים, ובדיקות קלט.

לשם המחשה נוספת, מצ"ב המסד באקסס

https://2007-uploaded.fresh.co.il/2...05/87156857.mdb

תודה רבה על ההשקעה והעזרה. הבנתי הכל, תרמת לי מאוד. תודה !