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

[البديل الإسلامي]

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

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


على بينئة VS2003

[nothing4u]

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

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

[البديل الإسلامي]

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

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

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

[خليل سليم]

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

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

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

[خليل سليم]

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

داتا لست

[البديل الإسلامي]

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

[البديل الإسلامي]

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

[nothing4u]

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

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

انت عندك صفحتين صفحة كود ال 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:
%>

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

[البديل الإسلامي]

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

[nothing4u]

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

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