[ممدوح الخطيب]

دالة ترجع بجدول

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