Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Imports Microsoft.Reporting
Imports Microsoft.Reporting.WinForms
Imports System.Drawing.Printing
Public Class printLeadersnoMem

    Private Sub printLeadersnoMem_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Public sCon As MySqlConnection = New MySqlConnection
    Public sComand As MySqlDataAdapter = New MySqlDataAdapter
    Public ds As DataSet = New DataSet
    Dim scrollVal As Integer
    Dim pagingAdapter As MySqlDataAdapter
    Dim pagingDS As DataSet
    Dim pagingDS2 As DataSet
    Private sRecord_Count As Integer
    Dim conn As MySqlConnection
    Dim cmd As MySqlCommand
    Dim dr As MySqlDataReader
    Dim connectionString As New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
    Private Sub conns()
        Try
            conn = New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
            conn.Open()
        Catch ex As Exception
            MessageBox.Show("Please Close to finish update 5 seconds & Open the program again. Or contact the programmer", "hhl no connection",
  MessageBoxButtons.OK, MessageBoxIcon.Error)
            End
        End Try
    End Sub
    Private Sub a1()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT names, barangay, purok, pcc FROM hhl WHERE names NOT IN (SELECT pco FROM full_data_entry GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
            .Columns(3).HeaderCell.Value = "PCC"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub
    Private Sub a2()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT names, barangay, purok, bcc  FROM pco WHERE names NOT IN (SELECT pcc FROM hhl GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
            .Columns(3).HeaderCell.Value = "BCC"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub
    Private Sub a3()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT names, barangay, purok FROM bcc WHERE names NOT IN (SELECT bcc FROM pco GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub


    Private Sub b1()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT names, barangay, purok, pcc FROM hhl WHERE names NOT IN (SELECT name FROM full_data  GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
            .Columns(3).HeaderCell.Value = "PCC"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub
    Private Sub b2()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT names, barangay, purok, bcc  FROM pco WHERE names NOT IN (SELECT name FROM full_data  GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
            .Columns(3).HeaderCell.Value = "BCC"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub
    Private Sub b3()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT names, barangay, purok FROM bcc WHERE names NOT IN (SELECT name FROM full_data  GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub
    Private Sub b4()
        Call conns()
        Dim cmd1 As New MySqlCommand("SELECT name, barangay, address FROM full_data_entry WHERE name NOT IN (SELECT name FROM full_data  GROUP BY barangay asc)", conn)
        Dim da As New MySqlDataAdapter
        Dim dt As New DataTable
        da.SelectCommand = cmd1
        dt.Clear()
        da.Fill(dt)
        DataGridView1.DataSource = dt
        conn.Close()
        With DataGridView1
            .Columns(0).HeaderCell.Value = "Name"
            .Columns(1).HeaderCell.Value = "Barangay"
            .Columns(2).HeaderCell.Value = "Purok"
        End With
        conclos()
        DataGridView1.Sort(DataGridView1.Columns(1),
        System.ComponentModel.ListSortDirection.Ascending)
    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "HHL" Then
            a1()
        ElseIf ComboBox1.Text = "PCC" Then
            a2()
        ElseIf ComboBox1.Text = "BCC" Then
            a3()
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "HHL" Then
            b1()
        ElseIf ComboBox2.Text = "PCC" Then
            b2()
        ElseIf ComboBox2.Text = "BCC" Then
            b3()
        ElseIf ComboBox2.Text = "Recruites" Then
            b4()
        End If
    End Sub

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

    End Sub
End Class