سؤال: كيف ينشأ الجدول ببيانات قاعدة البيانات 2003

البديل الإسلامي · 13-07-2007, 02:25 PM

السلام عليكم و رحمة الله تعالى و بركاته

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

على بينئة VS2003

nothing4u · 13-07-2007, 03:34 PM

هلا اخوي البديل الاسلامي
لم افهم انت تريد عمل قاعدة بيانات ولا تريد عمل صفحة بالشكل الي في الصورة لجلب معلومات من قاعدة البيانات ؟؟؟؟

ولا تريد الثنيين ؟

البديل الإسلامي · 13-07-2007, 09:08 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة nothing4u

هلا اخوي البديل الاسلامي
لم افهم انت تريد عمل قاعدة بيانات ولا تريد عمل صفحة بالشكل الي في الصورة لجلب معلومات من قاعدة البيانات ؟؟؟؟

ولا تريد الثنيين ؟

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

برمودا · 13-07-2007, 09:26 PM

استخدم أسهل الطرق

أداة
الجريد فيو

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

برمودا · 13-07-2007, 09:27 PM

أقصد استخدم أداة

داتا لست

البديل الإسلامي · 13-07-2007, 09:43 PM

هل يمكن تنسيقها مثل ما هو موجود في الصورة؟

البديل الإسلامي · 14-07-2007, 09:18 PM

أخي ساكون ممتنا لك لو أرسلت لي مثال بسيط عنها

nothing4u · 28-07-2007, 01:35 PM

اخي البديل الاسلامي اعتذر عن تاخري بالرد وعن انقطاعي في المنتدى الفترة السابقة

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

انت عندك صفحتين صفحة كود ال vb وصفحة التصميم الي هي كود ال html
في صفحة ال vb قم بجلب جميع المعلومات التي تريدها من قاعدة البيانات
مثلا نفرض انك تريد جلب معلومات الحسابات البنكية من جدول البنوك في قاعدة البيانات
تكون جملة ال sql لجلب البيانات هي

كود:

SQLStr = "select ID,Country,BankName,AccountNumber,AccountOwnerName from BankInfo"

نقوم بافراغ النتائج في داخل DataSet

كود:

Dim dsBanks As New DataSet
SQLStr = "select ID,Country,BankName,AccountNumber,AccountOwnerName from BankInfo"
        Cmd.CommandText = SQLStr
        Cmd.Connection = Con
        Con.Open()
        Adap.SelectCommand = Cmd
        Adap.Fill(dsBanks)
        Con.Close()

الان كل معلومات البنوك موجوده لدينا في داخل داتا ست اسمها dsBanks
الي رجع عندنا هو حقول من الجدول وترتيبها في ال dsBanks يكون بنفس طريقة ترتيبها في قاعدة البيانات
حيث ان اول حقل موجود في ال dsBanks يكون رقمه صفر واخر حقل موجود يكون رقمه

كود:

dsBanks.Tables(0).Rows.Count - 1

حيث ان sBanks.Tables(0).Rows.Count هذه تعيد لنا عدد الحقول التي تم ايجادها في الجدول واعادتها في ال dsBanks

الان نقوم بادخال المستخدم في داخل حلقة تكرارية بدايتها من الصفر ونهايتها هو عدد الحقول في ال dsBanks منقوص منه واحد

ونقوم في داخل الحلقة بافراغ معلومات كل بنك بشكل مستقل في داخل ViewState

مثلا في الحلقة الاولى الي رقم ال I بها يكون صفر يكون لدينا مثلا
ViewState("ID0") = 7
ViewState("Country0") = JORDAN

يعني ان ال ID رقم الحقل الاول العائد من قاعدة البياناتلجدول الحسابات البنكية هو 7
وكذلك اسم الدولة للحقول الاول هو JORDAN

وفي المرة الثانيه التي يدخل بها الحلقة تكون ال I تساوي واحد فيكون لدينا
ViewState("ID1") = 5
ViewState("Country1") = KSA
اي ان ال ID الثاني العائد من قاعدة البيانات لجدول الحسابات البنكية هو 5
وكذلك اسم الدولة للحقل الثاني هو KSA

كود الحلقة التكرارية هو

كود:

Dim I As Integer = Nothing
        ViewState("INum") = dsBanks.Tables(0).Rows.Count - 1
        For I = dsBanks.Tables(0).Rows.Count - 1 To 0 Step -1

            ViewState("ID" & I) = dsBanks.Tables(0).Rows(I)(0)
            ViewState("Country" & I) = dsBanks.Tables(0).Rows(I)(1)
            ViewState("BankName" & I) = dsBanks.Tables(0).Rows(I)(2)
            ViewState("AccountNumber" & I) = dsBanks.Tables(0).Rows(I)(3)
            ViewState("AccountOwnerName" & I) = dsBanks.Tables(0).Rows(I)(4)

        Next

لاحظ اننا خزنها رقم نهاية الحلقة في ViewState("INum") وهذا لكي نستخدمه في صفحة ال html لاننا سوف نقوم هناك بعمل حلقة اخرى لافراغ المعلومات وعرضها للمستخدم

وهكذا بعد نهاية تنفيذ الحلقة يكون لدينا عدد من المتغيرات من نوع ViewState تحتوي كلها على جميع المعلومات العائده من قاعدة البيانات من جدول الحسابات البنكية

الان انتهى عملنا في صفحة كود ال vb
وننتقل الي صفحة التصميم في كود ال html

نقوم بافراغ جميع المعلومات التي عادت لدينا في داخل جدول يتكون مصفوف واعمده باستخدام كود html

ملاحظة في صفحة ال html يمكنك كتابة كود vb بان تقوم بكتابة بين وسمين
<%
%>

وسوف نستخدمها في عمل حلقة تكراريه لافراغ النتائج

كود صفحة ال html هو

كود:

<%
    If ViewState("INum") < 0 Then
        Response.Write("<b>" & "لم يتم العثور على معلومات" & "</b>")
        GoTo EndPoint
    End If

    Dim IAll As Integer = Nothing
    Response.Write("<table border='1' cellpadding='0' cellspacing='0'>")
    Response.Write("<tr>")
    Response.Write("<td align='center' class='CenterMenuTDBody' Valign='Top'>")
    Response.Write("<b>" & "رقم الحقل" & "</b>")
    Response.Write("</td>")
    Response.Write("<td align='center' class='CenterMenuTDBody' Valign='Top'>")
    Response.Write("<b>" & "اسم الدولة" & "</b>")
    Response.Write("</td>")
    Response.Write("<td align='center' class='CenterMenuTDBody' Valign='Top'>")
    Response.Write("<b>" & "اسم البنك" & "</b>")
    Response.Write("</td>")
    Response.Write("<td align='center' class='CenterMenuTDBody' Valign='Top'>")
    Response.Write("<b>" & "رقم الحساب" & "</b>")
    Response.Write("</td>")
    Response.Write("<td align='center' class='CenterMenuTDBody' Valign='Top'>")
    Response.Write("<b>" & "اسم صاحب الحساب" & "</b>")
    Response.Write("</td>")
    Response.Write("</tr>")
    For IAll = ViewState("INum") To 0 Step -1
        Response.Write("<tr>")
        Response.Write("<td class='CenterMenuTDBody'>")
        Response.Write(ViewState("ID" & IAll))
        Response.Write("</td>")
        Response.Write("<td class='CenterMenuTDBody'>")
        Response.Write(ViewState("Country" & IAll))
        Response.Write("</td>")
        Response.Write("<td align='center' class='CenterMenuTDBody'>")
        Response.Write(ViewState("BankName" & IAll))
        Response.Write("</td>")
        Response.Write("<td align='center' class='CenterMenuTDBody'>")
        Response.Write(ViewState("AccountNumber" & IAll))
        Response.Write("</td>")
        Response.Write("<td align='center' class='CenterMenuTDBody'>")
        Response.Write(ViewState("AccountOwnerName" & IAll))
        Response.Write("</td>")
        Response.Write("</tr>")
    Next
    Response.Write("</table>")
    
EndPoint:
%>

اتمنى يكون الشرح واضح

البديل الإسلامي · 06-08-2007, 06:03 PM

بارك الله فيك أخي وجزاك الله خيرا عما تقدمه لي من مساعدة

nothing4u · 06-08-2007, 07:17 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة البديل الإسلامي

بارك الله فيك أخي وجزاك الله خيرا عما تقدمه لي من مساعدة

حياك الله اخي البديل

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
شرح بالتفصيل تركيب مجلة نيوك على الإنترنت وعلى الجهاز	Lost in love	تطوير الويب	9	20-08-2008 11:37 AM
[سؤال] كيف يمكنني رفع الملفات الى قاعدة البيانات مثل الـvb	الرجل الخارق	PHP	2	08-11-2005 12:54 PM
كيف اعمل نسخة من قاعدة البيانات على نفس موقعى	GsmEgypt	تطوير الويب	2	08-06-2004 08:41 AM
درس:: كيف تقوم بزرع قواعد البيانات على السيرفر المدفوع	MAX FORCE	قسم تبادل خبرات الاستضافة	3	01-12-2003 08:00 AM
قاعدة البيانات كيف احفظها	أبو مبدع	تطوير الويب	6	15-07-2003 01:22 PM

أدوات الموضوع
مشاهدة صفحة طباعة الموضوع أرسل هذا الموضوع إلى صديق