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