إضافة إلى قاعدة البيانات

مغلق

بدأه mueed2005 في 24 ديسمبر 2004 · 3 رد · 579 مشاهدة · في منتدى تصميم صفحات الويب

#124 ديسمبر 2004 في 03:03 صاحب الموضوع

الف شكر اخي الله يزيدك من علمه ويرزقك جناته

على ردك وتجاوبك معي انا اريد تشرح لي الكود ذا وهو اضافه

طبعا يكون لمجموعة حقول بس المشكله انا ابي يكون حقلين ورفض يجي عندي

ممكن تعدل فيه ( بعد الشرح) ويكون اضافة حقلين فقط

<html><body><%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open server.mapPath("stud.mdb")
w="INSERT INTO basic (sno,fname,"
w=w & "sname,lname,email,gender,hobbies1,hobbies2,hobbies3,hobbies4)"
w=w & " VALUES "
w=w & "('" & Request.Form("n1") & "',"
w=w & "'" & Request.Form("f1") & "',"
w=w & "'" & Request.Form("s1") & "',"
w=w & "'" & Request.Form("l1") & "',"
w=w & "'" & Request.Form("e1") & "',"
w=w & "'" & Request.Form("r1") & "',"
w=w & "'" & Request.Form("c1") & "',"
w=w & "'" & Request.Form("c2") & "',"
w=w & "'" & Request.Form("c3") & "',"
w=w & "'" & Request.Form("c4") & "')"
on error resume next
conn.Execute w,recaffected
if err<>0 then
  msgbox("غير قادر على الاضافة")
else 
  alert(recaffected & "سجل أضيف")
  Response.Redirect("view.asp")
end if
conn.close%>
</body></html>

تم تعديل هذه المشاركة بواسطة محمد القربي في 11 يناير 2005 في 05:18

#224 ديسمبر 2004 في 03:26

أخي الشيفرة التالية منطقياً يجب أن تعمل, وإذا لم تعمل أرجو على الأقل وضع رسالة الخطأ أو ..............

<html>
<body>
<%
	set conn=Server.CreateObject("ADODB.Connection")
	conn.Provider="Microsoft.Jet.OLEDB.4.0"
	conn.Open server.mapPath("stud.mdb")
	w="INSERT INTO basic (sno,fname) "
	w = w & " VALUES('" & Request.Form("n1") & "',"
	w = w & "'" & Request.Form("f1") & "')"
	on error resume next
	conn.Execute w,recaffected
	if err<>0 then
	msgbox("غير قادر على الاضافة")
	else 
	alert(recaffected & "سجل أضيف")
	Response.Redirect("view.asp")
	end if
	conn.close
%>
</body></html>

تفضل بزيارة مدونتي الشخصية