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

    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 name, barangay, address, precinct_number FROM full_data WHERE name NOT IN (SELECT name FROM full_data_entry) AND name NOT IN (SELECT names FROM hhl) AND name NOT IN (SELECT names FROM pco) AND name NOT IN (SELECT names FROM bcc) ORDER BY barangay, address 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 = "Precint"
        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 name, barangay, address, precinct_number FROM full_data WHERE name NOT IN (SELECT names FROM hhl) ORDER BY barangay, purok 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 = "Precint"
        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 name, barangay, address, precinct_number FROM full_data WHERE name NOT IN (SELECT names FROM pco) ORDER BY barangay, purok 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 = "Precint"
        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 = "View" 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
End Class