16-06-17, 08:11 PM
(16-06-17, 02:08 PM)ممدوح الخطيب كتب : دالة ترجع بجدول
PHP كود :
Private Function final_table() As DataTable
Dim table As New DataTable
Dim t1 As New DataTable
'====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data1.accdb")
da = New OleDbDataAdapter("Select * from data1", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data2.accdb")
da = New OleDbDataAdapter("Select * from data2", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data3.accdb")
da = New OleDbDataAdapter("Select * from data3", con)
da.Fill(t1)
table.Merge(t1) ' أضافة البيانات إلى الجدول النهائي
t1.Clear()
'=====================================================================================================
'قاعدة البيانات الاولى
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Data4.accdb")
da = New OleDbDataAdapter("Select * from data4", con)
da.Fill(t1)
table.Merge(t1)
t1.Dispose()
'=====================================================================================================
Return table
End Function
ألف الف الف شكر احي الحبيب ممدوح
تمام تمام تمام
