396
צפיות
צפיות
22
תשובות
תשובות
כפתור ADD להוספת נתותנים ל DB
מה אני אמור לעשות על מנת שכל שדות הטקסט בטופס כל שהוא…יקלטו בטבלה
במסד הנתונים שלי?
בניתי טופס עם כפתור ADD.
מה מפה? …
האם להכניס קוד VBSCRITP בתוך אירוע ONCLICK של הכפתור?…
מה עושים הלאה?
נתקעתי.
אודה לתשובתכם!…
22 תשובות
כיצד אני קולט לתוך משתנה את תוכן כ
כלשהו שנמצא בתיבת טקסט….
תודה.
צריך טופס
זה אמור להיות טופס…
נגיד ושם התיבה היא text.
הנה קוד דוגמא כללי:
<%
sql = "Select * from tbl"
rs.Open sql, conn, 2, 2
rs.AddNew
rs("text") = Request.Form("text")
rs.Update
rs.Close
%>
מקווה שעזרתי.
עזרת! זה בדיוק הנושא, אבל מה עם הכפ
הכפתור ADD שבטופס….האם את הקוד שרשמת פה, לשתול באירוע ONCLICK
של הכפתור על מנת שהנתונים יכנסו ל-DATABASE?
כן, לא, (אם לא אז איך?)….
אודה לתשובתך!!!

הנה הטופס שאתה צריך
הנה הטופס:
<form action="add.asp" method="post">
<input type="text" size="25" dir="rtl" name="text" value="just a test…">
<input type="submit" value="הוספת נתונים">
</form>
עכשיו קח את הקוד שכתבתי לך בתגובה הקודמת ושמור אותו במסמך בשם add.asp וכמובן תוסיף לו את החיבור למסד הנתונים והשאר.
הטופס הזה ישלח את הנתונים שנכתבו בשדה הטקסט ויוסיף אותו למסד.
מקווה שעזרתי.
כלומר חייבים שני דפים?
דף טופס…
ודף ASP ששם ייקלטו הנתונים למשתנים ומשם ל-DB?
אם זה כך. מה קורה בפעולות כגון: מחיקה , עידכון.
האם גם פה נצטרך שני דפים?
לא חובה
אתה יכול לעשות אתר שלם כעמוד אחד עם Select Case.
במידה וזה רק טופס, ניתן לעשות משפט IF, לדוגמא:
<%
text = Request.Form("text")
If IsEmpty(text) Then
%>
כאן נכנס הטופס
<% Else %>
כאן נכנס קוד האיי.אס.פי
<% End If %>
אם אתה מעוניין ללמוד את כל האפשרויות ב-ADO, כנס למדריך שכתבתי בנושא:
http://netman.dvirs.net/bh_Show2.asp?bh_Cat=43&bh_log=220
המדריך כולל דוגמאות קוד ומערכת שלמה להורדה + צפייה אוןליין.
נ.ב
מקווה שאני לא עובר על החוקים בנתינת הקישור מעלה.
תודה רבה לך.
ולא אינך עובר על החוק לדעתי.
פה בפורום, מציעים עזרה וטו לא.
תודה!
INCLUDE
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<!–#include virtual="/abovbs.inc"–>
<body>
<%
dim conn, rs, sql
אני מקבל בכל פעם הודעת שגיאה בנוגע לשורת ה-INCLUDE.
האם איאפשר לעשות INCLUDE בתוכנת DREAMWEAVER?
מה קורה פה?
תודה מראש!
נסה את זה
נסה את זה:
<!–#include file="abovbs.inc"–>
אולי יעבוד לך.
cursortype ו locktype
הבעיה מוזרה ביותר.
הקוד שלהלן:
dim conn, rs
set conn=server.CreateObject("ADODB.connection")
set rs=server.CreateObject("ADODB.recordset")
conn.open "DSN=phonebook"
'open a recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic
rs.Source = "phonenumber"
rs.ActiveConnection = conn
rs.open
'add a new recordset
rs.AddNew
rs("first_name") = request.Form("first_name")
rs("last_name") =request.Form("last_name")
rs("phone1") = request.Form("phone1")
rs("phone2") =request.Form("phone2")
rs("fax") = request.Form("fax")
rs("email") = request.Form("email")
rs("address") = request.Form("address")
rs("customer") = request.Form("customer")
rs("supplier") = request.Form("supplier")
rs("private") = request.Form("private")
rs("product") =request.Form("product")
rs.Update
'close the connection/destroy the objects
rs.close
conn.close
set rs=nothing
set conn=nothing
בעת הפעלה אני מקבל הודעת שגיאה על השורה הזו:rs.LockType = adLockPessimistic
כאשר אני מכניס להערה את השורה הזו, אני מקבל הודעת שגיאה על : rs.AddNew
מה עלי לבדוק? או האם יש צורך לשנות משהו בקוד?
אודה לעזרתכם האדיבה! תודה!
נסה ככה
נסה ככה:
rs.open, 2, 2
ותמחק את מה שכתבת מעל זה..
D30dk … עכשיו ההודעה על השורה שנת
שנתת לי…מה עושים?
זה מאוד מוזר…
כי זה אמור לאפשר לי עדכון נתונים במסד…
התרצה את הקוד כולו?
לעדכון נתונים..
לעדכון נתונים אתה צריך לכתוב את זה:
<%
sql = "Select * from tbl"
rs.Open sql, conn, 3, 3
rs("text") = Request.Form("text")
rs.Update
rs.Close
%>
ולא את הקוד הקודם.
הקוד הקוד היה להוסיף נתונים ולא לעדכנם.
אם לא עזרתי, תסביר יותר את העניין ותן את הקוד המלא שלך.
הודעת שגיאה חדשה
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] אין אפשרות לעדכן. מסד הנתונים או האובייקט מוגדרים לקריאה בלבד.
/phonebook/add.asp, line 42
שורה 42: rs.Update
הקוד:
set conn=server.CreateObject("ADODB.connection")
set rs=server.CreateObject("ADODB.recordset")
sql= "SELECT * FROM phonenumber"
conn.open "DSN=phonebook"
'open a recordset
rs.Source = "phonenumber"
rs.ActiveConnection = conn
rs.Open sql, conn, 2, 3
'add a new recordset
rs.AddNew
rs("first_name") = request.Form("first_name")
rs("last_name") =request.Form("last_name")
rs("phone1") = request.Form("phone1")
rs("phone2") =request.Form("phone2")
rs("fax") = request.Form("fax")
rs("email") = request.Form("email")
rs("address") = request.Form("address")
rs("customer") = request.Form("customer")
rs("supplier") = request.Form("supplier")
rs("private") = request.Form("private")
rs("product") =request.Form("product")
rs.Update
שיגאה מוזרה ביותר, ואני לא מצליח לעלות עליה. SOMEBODY?
אין לך הרשאות לכתיבה במסד…
חברים, אני לא יודע מה להגיד לכם…א
אבל לא עוזר כלום.
קראתי את הלינק, ניר, ביצעתי את הכתוב.
השגיאה היא:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] אין אפשרות לעדכן. מסד הנתונים או האובייקט מוגדרים לקריאה בלבד.
/phonebook/add.asp, line 37
שורה 37:rs.Update
מאוד מוזר.
עשתי כפתור ימני על התיקייה נכנסתי ל-סיקיורטי…והגדרתי שם , READ
ו WRITE. ועדיין. נדה.
אודה מקרב לב על עזרתכם,
הדי.
כפתורי ניווט לרשומות
יצרתי דף HTML – טופס עדכון
יצרתי 3 כפתורים :אחורה קדימה וקפוץ לרשומה מס'.
כיצד אני מכניס קוד VBSCRIPT לכפתורים אלו ?
תודה.
ניסוח מחדש של השאלה
יש לי קוד ב – VB שמטרתו להריץ רשומות קדימה ואחורה.
יצרתי קובץ HTML שבו כפתורי ניווט, אחד מהם PREVIOUS
<input type="button" name="previous" value="Previous" onClick="">
כיצד אני מכניס לתוך מאפיין onClick את הקוד הזה:
private sub cmdprevious_click()
rs.moveprevious
displaycurrentrecord
end sub
אודה לעזרתכם?
בonclick תרשום את שם השיגרה שנתת
עם <% %>?
לא
אם כבר מדברים על INCLUDE…
אני מוסיף כותרת לכל הדפים שלי באתר ע"י הפקודה INCLUDE. השאלה שלי היא האם יש אפשר לעשות איזו התנייה בדף שאני מצרף (הדף שאני רושם ב-INCLUDE) כך שיופיעו/לא יופיעו תמונות (או כל דבר אחר) בהתאם לדף שקורא לקובץ שרשום ב-INCLUDE???
תודה