עבור לתוכן

בעיה במחיקת משתמש ממסד הנתונים

על-ידי ניר.
ב תכנות

Featured Replies

פורסם

יש לי בעיה במחיקת משתמש ממסד הנתונים למרות שהמשתמש קיים במסד

איך פותרים את הבעיה ?

הקוד של הקובץ : 


<%
	if session("iao")="no" then
		response.redirect("admin.html")
	end if
%>
<HTML>
<HEAD>
 <TITLE>מחיקת משתמש</TITLE>
</HEAD>
<BODY>
<%    
	'======= שליפת נתוני המשתמש מהטופס =======

	username = Request.Form("username") 

	'======= חיבור למסד הנתונים ופתיחתו ======= 

  	Set con = Server.CreateObject("ADODB.connection")
	con.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/members.mdb"))    

	'=========== בדיקה האם כבר קיימת רשומת משמתמש בטבלה ========== 
	sqlSelectCmd = "SELECT * FROM users WHERE username='" & username & "'"
	Set rec = con.Execute(sqlSelectCmd) 

	If (rec.EOF = True) Then  
	   '======= החזרת תשובה ללקוח שפעולת המחיקה לא בוצעה כי לא קיים משתמש כזה =======	 
	   Response.Write("<html><body dir='rtl'><h1><center>המשתמש לא קיים במסד !</center></h1></body></html>")      
	Else   
	   '======= בניית הפקודה למחיקת רשומת המשתמש מהטבלה ======= 
	   sqlDeleteCmd = "DELETE FROM users WHERE username='" & username & "'"

       '======= מחיקת רשומת המשתמש מהטבלה ======= 
	   con.Execute(sqlDeleteCmd)   

	   '======= החזרת תשובה ללקוח שפעולת המחיקה בוצעה בהצלחה =======
       Response.Write("<html><body dir='rtl'><h1><center>נתוני המשתמש נמחקו בהצלחה!</center></h1></body></html>")              
 	End If	 

 	'======= סגירת מסד הנתונים ======= 
  	rec.Close()		
	con.Close()       
%>
</BODY>
</HTML>

השגיאה היא : 


Microsoft JET Database Engine (0x80004005)
‏‏מחיקה מהטבלאות שצויינו לא הצליחה.
/mySite/delete.asp, line 33

  • ציטוט

    • ארכיון

    דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

    עבור לרשימת הדיונים

    דיונים חדשים