الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب تعديل لكود الحذف

مغلق
بدأه rs4ever في 31 مارس 2005 · 5 رد · 591 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

قمت بإنشاء كود يقوم بالبحث في قاعدة بينات access ليقوم بحذف السجل صاحب الحقل المدخل رقمه

ثم يقوم بإعطاء form يحتوي على 2 radio للاختيار ما بين الموافقه او عدم الموافقة على حذف السجل

المشكلة انه عند الموافقة يتم حذف كامل الـdatabase فياليت لو احصل كود مناسب لديكم

و اشكركم مقدماً

rs4ever

#2

وعليكم السلام

- تأكد أن البحث يأخذ بعين الاعتبار الحقل من الفورم مثلاً:

  strsql = "SELECT * FROM [xxx] WHERE [ID]='" & request.form("FormField")
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open strsql, adoCon, 1, 2
  Do While Not rs.Eof
 	 rs.Delete
 	 rs.MoveNext
  Loop
  rs.Close
  Set rs = Nothing
  adoCon.Close
  Set adoCon = Nothing

- تأكد عند الاختيار موافق أم لا يتم ارسال قيمة الحقل مرة أخرى و اعتقد ان المشكلة هنا

Mohamad Al-Karbi

www.mkarbi.me

#3

اشكرك اخ محمد

راح اجرب الطريقة و اعطيك النتائج

#4

اخي محمد

هذا كود الربط

<%
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &Server.MapPath("db1.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>

و هذا كود الحذف

<%
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &Server.MapPath("db1.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>

علماً بأن الرقم يدخل في صفحة اخرى

المشكلة ان الكود يحذف كامل السجلات من قاعدة البيانات

اتمنى اني ما اكون ثقلت عليك

#5

ممممم

أين كود الحذف؟! :)

ثم لا تهمتم، لا تثقل علينا فالجميع على الرحب و السعة

Mohamad Al-Karbi

www.mkarbi.me

#6

اسف اخي محمد على عدم ذكر كود الحذف

وهذا كود صفحة الحذف كاملة

<%@ Language=VBScript CodePage = "1256"%>
<html dir=rtl>
<body>

<%
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &Server.MapPath("db1.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>

<p><font face="Simplified Arabic" size="3">الحذف:</font></p>

<%
keyword=request.querystring("keyword")
deleteSQL = "delete * from tech_table where tech_num like '%"&keyword&"%' "
set rs=ADO.execute(deleteSQL)
%>





<%response.redirect("tech.asp")%>

<%
ADO.Close
Set ADO=Nothing
%>

</body>
</html>

هذا الموضوع مغلق.

مواضيع مشابهة