[a.ahmed]

PHP كود :

Imports System.Data.OleDb

Public Class Form21

    Dim Conn As New OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Data Source=|DataDirectory|\Data.accdb")
    Dim DataSetTable As New DataSet

    Dim SQLTable As String = "Select * From EmpInfo"

    Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call LoadData()
    End Sub

    Public Sub LoadData()

        DataSetTable.Clear()
        Dim DataAdapterXDell As New OleDbDataAdapter(SQLTable, Conn)
        DataAdapterXDell.Fill(DataSetTable, "EmpInfo")

        Call DataGrid_Formats()
    End Sub

    Public Sub DataGrid_Formats()

        DataGridView1.DataSource = DataSetTable
        DataGridView1.DataMember = "EmpInfo"
        DataGridView1.Refresh()


        DataGridView1.Columns(0).HeaderText = "الترقيم"
        ''DataGridView1.Columns(0).Width = 150
        DataGridView1.Columns(1).HeaderText = "الاسم"
        DataGridView1.Columns(2).HeaderText = "اللقب"
        DataGridView1.Columns(3).HeaderText = "تاريخ الميلاد"
        DataGridView1.Columns(4).HeaderText = "هاتف الولي"
        DataGridView1.Columns(5).HeaderText = "العنوان"
        DataGridView1.RowHeadersWidth = 30
        DataGridView1.Columns(0).Width = 150
        DataGridView1.Columns(1).Width = 200
        DataGridView1.Columns(2).Width = 150
        DataGridView1.Columns(3).Width = 150
        DataGridView1.Columns(4).Width = 150
        DataGridView1.Columns(5).Width = 150
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox6.TextChanged
        SQLTable = "SELECT * FROM EmpInfo WHERE FirstName LIKE '%" & TextBox6.Text & "%' "
        DataSetTable.Clear()
        Dim DataAdapters As New OleDbDataAdapter(SQLTable, Conn)
        DataAdapters.Fill(DataSetTable, "EmpInfo")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.ReportViewer1.LocalReport.DataSources.Clear()
        Form2.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", DataSetTable.Tables("EmpInfo")))
        Form2.ReportViewer1.LocalReport.ReportEmbeddedResource = Me.GetType().Namespace & "." & "Report1.rdlc"
        Form2.ReportViewer1.RefreshReport()
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        SQLTable = "SELECT * FROM EmpInfo "
        DataSetTable.Clear()
        Dim DataAdapters As New OleDbDataAdapter(SQLTable, Conn)
        DataAdapters.Fill(DataSetTable, "EmpInfo")

        Form2.ReportViewer1.LocalReport.DataSources.Clear()
        Form2.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", DataSetTable.Tables("EmpInfo")))
        Form2.ReportViewer1.LocalReport.ReportEmbeddedResource = Me.GetType().Namespace & "." & "Report1.rdlc"
        Form2.ReportViewer1.RefreshReport()
        Form2.Show()
    End Sub

End Class