(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()
النتيجة :
المرفق :
أتمنى لك التوفيق