[فيصل]

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

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

ننتظر منكم الرد

[عدنان الشمري]

في جملة ال Select بدل ان تكتب اسم الجدول يمكن ان تأخذه جدول اخر في الفورم اي عند الضغط على الاسم
ان شاء الله تنجح الفكرة معك

[adel27]

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

ودي أسألك أنت أشتريت البرنج من الأستاذ محمد البحرواي ..؟

وهل السورس كود عندك الأصلي ..؟

[failasouf]

(20-02-16, 07:51 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته

الأكواد :
الإعلان عن المتغير التالي :

PHP كود :

   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb;Persist Security Info=False") 


جلب أسماء الجداول من قاعدة بيانات أكسس :

PHP كود :

con.Open()

        Dim schemaTable As DataTable
        schemaTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"})
        For Each r As DataRow In schemaTable.Rows
            Dim v0 As String = r.Item("Table_Name").ToString()
            DGVTable.Rows.Add(v0)
        Next

        con.Close() 


جلب الحقول لكل جدول :

PHP كود :

DGVField.Rows.Clear()

        con.Open()
        Dim SelectedTable As String = DGVTable.CurrentRow.Cells(0).Value
        Dim Rest() As String = {Nothing, Nothing, SelectedTable, Nothing}
        Dim columns As String = "Columns"
        Dim dt As DataTable = con.GetSchema(columns, Rest)
        For Each r As DataRow In dt.Rows
            Dim v0 As String = r.Item("Column_Name").ToString()
            DGVField.Rows.Add(v0)
        Next

        con.Close() 


النتيجة :










المرفق :

أتمنى لك التوفيق

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

[failasouf]

كنت اتمنى ان اجد الاجابة عندك ولكن يبدو انى جيت متاخر
حظى وحش
متشكر