הוספת עמודה לטבלה

סליחה על הבורות
עפ"י המדריך להוספת טבלה ועפ"י המדריך להוספת עמודה נאמר כיצד
לצור את הסקריפט שיצור טבלאות/עמודות או ימחוק .
רציתי לדעת, כיצד אוכל לצור טופס ASP פשוט שדרכו אוכל להוסיף לדוגמא עמודות או לדוגמא להוסיף טבלה וכל מאפייניה .

מוסבר כיצד יוצרים אך לא מוסבר כיצד אפשר ליישם זאת באמצעות טופס.
תוכל לעזור לי ?

עקרונית
הייתי שמח אם מישהו היה מכין לי כאן סקריפט תבניתי לטופס ולסקריפט מאחורי הטופס שיצור/ימחוק טבלה או עמודה .
גם קישור למקום שמציע דבר זה יתקבל בברכה 🙂

שאלה אחרת …
נושא : גישה למסד נתונים מסוג אקסס .

בסקריפט הבא שלי ישנה דרישה לערך עבור המשתנה fid .
במידה ואני מסיר אותה (באקסס המשתנה מוגדר כ"מספור אוטומטי") ואני שולח טופס עם יתר הנתונים מלבד fid הוא מדפיס לי שגיאה.

הנה הסקריפט :

fid=request.form("fid")
fname=request.form("fname")
fdesc=request.form("fdesc")
Dim DataConn, CmdUpdateRec, MYSQL
Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdUpdateRec = Server.CreateObject("ADODB.Recordset")
DataConn.Open "DBQ=" & Server.Mappath("../../../_private/forum.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
MYSQL = "SELECT forums.* FROM forums WHERE (fid = " & fid & ")"
CmdUpdateRec.Open MYSQL, DataConn, 1, 3
CmdUpdateRec.Fields("fid") = fid
CmdUpdateRec.Fields("fname") = fname
CmdUpdateRec.Fields("fdesc") = fdesc
CmdUpdateRec.Update
CmdUpdateRec.Close
Set CmdUpdateRec = Nothing
DataConn.Close
Set DataConn = Nothing
Response.redirect "default.asp"
End Sub

עכשיו שאלתי היא, כיצד אוכל לשלוח טופס מבלי צורך בשדה של fid והזנתו, אלא שהfid יקבל מספור אוטומטי מבלי חובת הזנת ערך בטופס למשתנה זה ??

חשבתי על תחכום, עזרו לי ..
החלטתי שבסוף אני אגדיר את הfid כמספר ובטופס הוספת נתונים שדה
הfid יופיע.
אך אני מעוניין שבעצם השדה יכלול 2 דברים :
1. תחום הASP – יתבצע חיפוש עד למספר הגבוה ביותר שנמצא בעמודת הfid במסד שלי, ויתווסף מספר אחד לקיים.
דוגמא ברורה : נגיד יש לי 55 רשומות, הfid של האחרון הוא 55, אני רוצה בעצם שהמסד יחפש את המספר הגבוה ביותר ויוסיף לו אחד – מה שאומר שאני רוצה שאוטומטית בשדה בטופס שלי ירשם 56.
2. תחום הHTML/JS – ארצה ששדה טקסט בטופס שלי לא יהיה פעיל. כלומר, לא יוכלו לשנות את הערך בתוך השדה.

תודה , מקווה שתעזרו לי אחים/אחיות שלי !

כך עשיתי , אך בכל זאת שגיאה

בוודאי . הנה פרטים
קודם כל בסקריפט שלי, הנה החלק שמבקש את שדה הFID (שורה ראשונה):

fid=request.form("fid")
fname=request.form("fname")
fdesc=request.form("fdesc")

הנה משפט הSQL שלי, הוא דורש את הFID כמובן :

SQL = "SELECT forums.* FROM forums where fid=" &fid

והנה השגיאה בעת שליחת הטופס :

Syntax error (missing operator) in query expression 'fid='.

קבלו תיקון – ושוב שגיאה
שוב אותה שגיאה.
הנה הסקריפט שתיקנתי על פי מה שאמרתם :

Sub newone
fid=Request.QueryString("fid")
fname=request.form("fname")
fdesc=request.form("fdesc")
Dim DataConn, CmdAddRec, SQL
Set DataConn = Server.CreateObject("ADODB.Connection")
Set CmdAddRec = Server.CreateObject("ADODB.Recordset")
DataConn.Open "DBQ=" & Server.Mappath("../../../_private/forum.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT topics.* FROM topics  where fid=" &fid
CmdAddRec.Open SQL, DataConn, 1, 3
CmdAddRec.AddNew
CmdAddRec.Fields("fname") = fname
CmdAddRec.Fields("fdesc") = fdesc
CmdAddRec.Update
' closing objects and setting them to nothing
' not neccesary but a good habit
CmdAddRec.Close
Set CmdAddRec = Nothing
DataConn.Close
Set DataConn = Nothing
Response.redirect "default.asp"
End Sub

השגיאה מאשימה את משפט הSQL שלי ..

הנה השגיאה


Syntax error (missing operator) in query expression 'tid='.

מצביעה על השורה :

CmdAddRec.Open SQL, DataConn, 1, 3

אההה… אתה בטוח שזה לא מצביע על משפט הSQL אלא על הCmdAddRec ?
אם כן, מה הבעיה אז?

הצגתי 30 פעם אחי 🙂
פשוט תראה בתגובות הקודמות …

תיקון קטן
בגלל ההדגשה הCmdAddRec.Update קפץ לי שורה למעלה…
אל תתייחסו לזה

עובד !!!!! תודה לכולם !!!
איזו הקלה ……………..
מת עליכם : BuildHome , ניר המלך וטל אורנשטיין !! פשוט גדולים

עורך הטקסט WYSIWYG
כאשר אני משלב עורך טקסט בטופס ASP שישלח לתוך מסד נתונים מסוג ACCESS , איזה נתונים ישלחו בדיוק אם בכלל ?
כלומר, מה יופיע לי אם אפתח את בסיס הנתונים שלי לאחר הוספת המידע ? אני אראה בתוך אותו שדה תגיות HTML שהWYSIWYG יצר ?

תודה 🙂

שאלה נוספת ..
אני בונה מגזין.
המגזין יחולק ל2 טבלאות : פינות ודפים .
בטבלת הדפים הוספתי שדה ששמו p_id – לפי שדה זה אוכל לקשר בין הרשומה לפינה בטבלת הפינות.

עכשיו משפט הSQL שלי נראה כך :

SQL = "SELECT fpages.* FROM fpages where p_id=" ?

? = הID של הפינה שלי מתוך הטבלה השנייה (טבלת הפינות) . לפי תחילת משפט הSQL שלי ישנו קישור לטבלת הדפים (fpages) – איך אוכל לחלץ מתוך הטבלה pinot את הID ?

מקווה שהבנתם 🙂

ראה קובץ מצורף

יש לי ניסוח חדש ופשוט יותר
במשפט SQL שלי אני רוצה לשלוף את כל הנתונים מטבלת fpages כאשר שדה הp_id שלי (מטבלת הfpages) שווה ל- שדה הpinot_id מטבלת הpinot.
אני לא מצליח לעשות את זה, ניסיתי כך :

בתחילה בקוד בראש הדף כאשר פתחתי את טבלת הpinot הגדרתי כי הpinot_id שווה לעצמו. כך :

Dim pinot_id
pinot_id = Request("pinot_id")

כעת שפתחתי את טבלת הfpages בחלק התחתון של הדף (עוד לא סגרתי את חיבור הpinot) הנה המשפט שלי :

    <%
Dim Conn1, rsCatalog1
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open ConString
Set rsCatalog1 = Conn.Execute("SELECT * FROM fpages where p_id=" &pinot_id)
While Not rsCatalog1.EOF
%>  

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

Syntax error (missing operator) in query expression 'p_id ='.

הבנתי שבעצם אין שום נתון בp_id אז איך אוכל לעשות זאת ?