(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()
النتيجة :
المرفق :
أتمنى لك التوفيق
رائع جدا
لكن ممكن تشرح لنا الكود عشان نفهمه بدل ماناخده كوبى وبست
وازاى نقدر نعدل عليه عشان نضيف نوع الحقول فى جدول الاعمدة وازاى نضيف التشيك بوكس
واسف انى هاتعبك
زى ماهو فى الصورة