منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - فزعتكم شباب ... كيفية عرض جداول وأعمدة قاعدة البيانات

أخواني وأساتذتي المبرمجين المحترفين

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

( وهو كيفية عرض أسماء جدول قاعدة البيانات ، وكذلك عرض أعمدة كل جدول ) .

وإن الذي أردته بالضبط ، مشروح بالتفصيل في ملف word وهو مرفق مع البرنامج ،
فأرجو منكم التكرم والتعطف بتحميله ومساعدتي جزاكم الله خيرا في الحصول على الحل البرمجي .

وتفضلوا جميعا بقبول وافر التقدير والاحترام .

وعليكم السلام ورحمة الله وبركاته
ابشر بكل خير
لكن المنتدى مليء بالامثلة
قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET

باذن الله تعالى سانظر ماذا يمكنني فعله حسب الملف المرفق.

(25-11-21, 07:47 PM)سعود كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
ابشر بكل خير
لكن المنتدى مليء بالامثلة
قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET

باذن الله تعالى سانظر ماذا يمكنني فعله حسب الملف المرفق.

مشكور أستاذ سعود على ردك الكريم
صحيح بأن الأمثلة كثيرة ، والمنتدى مليء بها
ولكني تهت في كثرتها ولم أستطع تجميع ما أردته لمشروعي .
وأنا أنتظر الحل مباشرة على طلبي بكل شوق ولهفة .
وبارك الله فيكم جميعا .

اول خطوة فهمتها تمت

وهذا هو محتوى الفورم من اكواد

PHP كود :

Public Class Form1
    Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath
    Private Function gettablesname()
        tbnames.Items.Clear()
        Using con As New OleDb.OleDbConnection(str)
            If con.State = ConnectionState.Closed Then con.Open()
            Dim dt As DataTable = con.GetSchema("Tables", {Nothing, Nothing, Nothing, "Table"})
            For Each row As DataRow In dt.Rows
                tbnames.Items.Add(row("TABLE_NAME"))
            Next
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Function



    Private Function getcolsnames(ByVal tbname As String)
        colsnames.Items.Clear()
        Using con As New OleDb.OleDbConnection(str)
            If con.State = ConnectionState.Closed Then con.Open()
            Dim dt As DataTable = con.GetSchema("Columns", {Nothing, Nothing, tbname, Nothing})
            For Each row As DataRow In dt.Rows
                colsnames.Items.Add(row("Column_name"))
            Next
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gettablesname()
    End Sub

    Private Sub tbnames_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbnames.SelectedIndexChanged
        getcolsnames(tbnames.Text)
    End Sub
End Class 

أشكرك جدا ولكن المطلوب أكثر من كذا حسب ملف Word الذي شرحت فيه مطلوبي بالتفصيل .
أرجو التركيز في فهم المطلوب أرجوكم .
وشكرا .

(25-11-21, 08:52 PM)أبو خالد الشكري كتب : [ -> ]أشكرك جدا ولكن المطلوب أكثر من كذا حسب ملف Word الذي شرحت فيه مطلوبي بالتفصيل .
أرجو التركيز في فهم المطلوب أرجوكم .
وشكرا .

اخي الكريم انا ذكرت اني اعمل مااستطيع فعله ومااعجز عنه Sad

ان شاء الله بقية الاخوة مايقصرون

_____________________________________________________________________________________________________

الخطوة الثانية مع استبدال الليست بوكس الثانية بشبيكة البيانات

الاجراء التالي بعد استبدال شبيكة البيانات بالليست بوكس

PHP كود :

 Private Sub getcolsnames(ByVal tbname As String)
        Using con As New OleDb.OleDbConnection(str)
            If con.State = ConnectionState.Closed Then con.Open()
            Dim dt As DataTable = con.GetSchema("Columns", {Nothing, Nothing, tbname, Nothing})
            For i As Integer = 1 To dt.Rows.Count - 1
                dgv.Rows.Add(dt.Rows(i)("Column_name"))
            Next
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Sub 

المتوفر و الاحتياج والجودة من اين يتم احضار القيم الخاصة بهم ..او اين يتم حفظها ؟

ماذا بقي !!!

الاعمدة الثلاثة اين يتم حفظ قيمها؟

ما شاء الله عليك أستاذ سعود
بيض الله وجهك ، أشهد إنك ما قصرت ، بارك الله فيك
هذا هو طلبي بالضبط 100%
أحسنت ...

ولك خالص الشكر والمحبة .

(26-11-21, 12:24 PM)أبو خالد الشكري كتب : [ -> ]يرفع ،،، للأهمية القصوى !

اخي الكريم النقطة الاخيرة مفهومة لكن كيف يتم تطبيقها؟
هل هناك زر يحفظ الاختيارات في جدول ثم فورم آخر يستقبل تلك التغييرات؟
فيه حلقة مفقودة لدي اتمنى افهمها.
و شكر الله لك.