PHP كود :
Imports System.Data.OleDb
Public Class MainForm
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim table As DataTable
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
' Data1.Show()
DataGridView1.DataSource = final_table()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Data2.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Data3.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Data4.Show()
End Sub
Private Function final_table() As DataTable
table = 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
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = final_table()
End Sub
Private Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click, Button6.Click, Button7.Click, Button8.Click
Dim rows = table.Rows.Cast(Of DataRow).Where(Function(x) x.Item("Address").Equals(sender.Text))
If rows.Count = 0 Then
Me.DataGridView1.DataSource = Nothing
Else
Me.DataGridView1.DataSource = rows.CopyToDataTable
End If
End Sub
End Class
