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

كيف ادخل مجموعه من البيانات داخل قاعدة البيانات عن طريق check box

مغلق
بدأه BMW316i في 19 يناير 2003 · 11 رد · 942 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف ادخل مجموعه من البيانات فى قاعده البيانات عن طريق check box وعلى سبيل المثال

انا عملت الكوده علشان يدخل مجموعه من البيانات داخل قاعدة البيانات

Dim objConn , objRS , strQ , strConn, strOutput 

  Set objConn = Server.CreateObject("ADODB.Connection")



  objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("users.mdb") & ";"

  Set objRS = Server.CreateObject("ADODB.Recordset") 

  

  

  strQ1 = "SELECT *  FROM internalmail "









  objRS.Open strQ1 ,  objConn , 1, 2

  If Request.form("submit") = "send" Then

  

  objRS.AddNew

  objRS("sender") = Request.QueryString("username")

  objRS("reciever") = Request.form("to")

  objRS("subject") = Request.form("subject")

  objRS("message") = Request.form("message")

  objRS("date") = Date()

  objRS.Update

  

  End If

  

  'Response.Write Request.QueryString("username")

هذا الكود بيقوم بتسجيل الراسل والمرسل اليه والموضوع وعنوان الموضوع

كيف اسجل من راسل واحد الى اكثر من مرسل اليه حيث بيختار الراسل من check box المرسل اليه

وشكرا يا اخوانى

#2

تقوم بعمل checkbox تكون ال value تساوي رقم العضو الوحيد كالتالي

[l] [/l]

و بالتالي تقوم باختيار الأعضاء لارسال عدد من الرسائل لهم .. طبعا النموذج سيرسل بيانات و من بينها قيمة ال checkbox التي تأخذ اسما واحدا و لنفرض انه id لكن ستكون له قيم مختلفة حسب الاعضاء الذين اخترتهم و بالتالي سيكونت الناتج على شكل مصفوفة كالتالي 1,2,45,72 كمثال لارقام الأعضاء المخزنة في حقل ال id في قاعدة البيانات و هذا على شكل مصفوفة لذا تحتاج لتجزئتها و من ثم عمل دوارة تقوم باداء نفس العمل لكل عضو ك التالي :

<% 

' هنا تستقبل قيمة مربع الاختيار

  id=request("id")

' اجراء من أجل فصل كل قيمة لوحدها

  id=replace(id,",","")

  id=split(id)

' عمل دوارة لتقوم بوظيفة معينة 

  for each item in id

  set objRs=cn.execute("select * from users where userId="&item)

' اكتب هنا ما تريد 

  next 

  %>

كما تلاحظ بأن الاستعلام سيتجدد كل دوارة و يقوم بتجهيز السجل الذي يعود للعضو الموجود في مصفوفة الأرقام التي استقبلناها و سنستخدم رقم العضو الوحيد الذي ارسل عند تعليم الخانة الخاصة به ..

أتمنى أن تكون قد فهمت الفكرة ..

بالتوفيق..

You can fly while you can touch the sky

#5

انت ممكن تعمل دالة تقوم باخذ رقم الشخص و ترجعلك اسمه او اي بيانات اخرى ..

You can fly while you can touch the sky

#6

معلشى ازاى اعمل الداله دة اصل انا عملت حاجة تانية بس فى مشكلة وهى انا ال id مش بيتغير حسب اسم الشخص وهذا هو الكود

<% Do While Not objRS1.EOF%>

          

           <tr> 

                                        <td width="49"><input type="checkbox" name="checkbox" value="<%Response.Write objRS("id")%>"></td>

                                        <td width="77"><%Response.Write objRS1("User_Name")%></td>

                                          <td width="77"> <%Response.Write objRS("id")%></td>

                                      </tr>

            <% objRS1.MoveNext

           	 Loop %>
#7

ممكن تعمل join في استعلام sql بمعني ان قيم الcheck box والاسماء المناظرة لها تكون مخرنة في جدول مستقلو من ثم استعلام sql يتضمن هذا الجدول كالتالي :

sql =(" select names.name , names.id , internalmail.id 

where names.id=internalmail.id  ")

cn.execute (sql)

والله اعلى واعلم

#8

مثال :

 <% 

' هنا تستقبل قيمة مربع الاختيار

  id=request("id")

' اجراء من أجل فصل كل قيمة لوحدها

  id=replace(id,",","")

  id=split(id)

' عمل دوارة لتقوم بوظيفة معينة 

  for each item in id

  set objRs=cn.execute("select * from users where userId="&item)

   

  response.write  previewUserInfo(rs("userId"),"userName")  &"<BR>"

  response.write  previewUserInfo(rs("userId"),"userEmail")  &"<BR>"





  next 



  Function previewUserInfo(userId,field)

    set recRs=cn.execute("SELECT * FROM users where userId="&userId)

      previewUserInfo=rs(field)

  End Function





  %>

في هذا المثال نرى اننا استدعينا الدالة و مررنا لها رقم العضو و الحقل الذي نود استخدامه و هنا تظهر الفائدة في تعدد استخدام الدالة لتعود بقيمة أكثر من حقل فقط بتغيير اسم كل حقل مطلوب عند الاستدعاء و التالي لا نحتاج لعمل دالة لكل قيمة نود اظهارها ..

طبعا الدالة ستأخذ المعطيات فتستخدم رقم العضو من اجل اختيار سجله من قاعدة البيانات ثم نقم باسناد قيمة الدالة للحقل الذي مرر اسمه من خلال الدالة .. فاول مرة يظهر اسم المستخدم و ثاني استدعاء ايميل المستخدم ..

You can fly while you can touch the sky

#10

هي قيمة لحقل افتراضي من عندي انت عندك حقل باسم اخر للعضو لكن انا وضعت هذا فقط للتوضيح اي الحقل اللي بيدل على رقم العضو ..

You can fly while you can touch the sky

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…