Imports MySql.Data.MySqlClient
Module connsel
    Public conn1 As MySqlConnection
    Public cmd As MySqlCommand
    Public dr As MySqlDataReader

Public Sub conns()
        conn1 = New MySqlConnection("server=10.10.0.6;user id=corpadmin;password=admincorp2024;database=caragavotersdb;port=3706")
    Try
            conn1.Open()
    Catch ex As Exception
            MessageBox.Show("Please Close to finish update 5 seconds & Open the program again. Or contact the programmer", "Loading",
MessageBoxButtons.OK, MessageBoxIcon.Error)
            conn1.Close()
            conclos()
            Return
            'End
    End Try
    End Sub
    Public Sub conclos()
        Try
            conn1.Close()
            conn1.Dispose()
            MySqlConnection.ClearAllPools()
            'connectionString.Close()
            'connectionString.Dispose()
        Catch ex As Exception

        End Try
       
    End Sub
    Function Encryptel(ByVal el As String, ByVal v As Long) As String

        Dim strAsc As String
        Dim strMain As String
        Dim i As Integer

        For i = 1 To Len(el)
            strAsc = Asc(Mid(el, i, 1))
            strMain = strMain & Chr(strAsc + 2)
        Next i

        Encryptel = strMain
    End Function

    Function Decryptel(ByVal el As String, ByVal v As Long) As String
        On Error Resume Next
        Dim strAsc As String
        Dim strMain As String
        Dim i As Integer

        For i = 1 To Len(el)
            strAsc = Asc(Mid(el, i, 1))
            strMain = strMain & Chr(strAsc - 2)
        Next i

        Decryptel = strMain
    End Function
    Sub sqlbackuperclik()
        '--host=[HOSTNAME] --user=[USER] --password=[PASSWORD] -R [DATABASE NAME]
        Process.Start("C:\xampp\mysql\bin\mysqldump.exe", " --user=corpadmin --password=admincorp2024  --host=10.10.0.6 -P 3706  caragavotersdb -r ""E:\filesss\OneDrive - MSFT\backup\b_ac_kup.sql""")
        conclos()
    End Sub
    
    Sub privmasterlis()
        If LoginForm1.Label1.Text = "a2" Then
            'masterlist.Button3.Visible = False
            masterlist.Button5.Visible = False
            masterlist.Button8.Visible = False
            masterlist.Button1.Visible = False
        Else

        End If
    End Sub



    '    INSERT INTO full_data_2 (id, number, name, address, birthday, Gender, precinct_number, barangay, municipality) SELECT name FROM masterlist2_ WHERE name NOT IN (SELECT name FROM full_data_2 GROUP BY barangay asc);
    'INSERT INTO action_2_members (campaign_id, mobile, vote, vote_date)  
    'SELECT campaign_id, from_number, received_msg, date_received
    '  FROM `received_txts`
    ' WHERE `campaign_id` = '8'

    'INSERT INTO full_data_2 (id, number, name, address, birthday, Gender, precinct_number, barangay, municipality, province, legend, d_) SELECT id, number, name, address, birthday, Gender, precinct_number, barangay, municipality, province, legend, d_ FROM masterlist2_ WHERE name NOT IN (SELECT name FROM full_data_2 GROUP BY barangay asc);




    '    UPDATE full_data  
    'SET `name`= REPLACE(`name`,  ' _', '') WHERE `vname` LIKE '%\_%';

    'SELECT  `name`,  
    'REPLACE(`name`, '_', '___') FROM full_data  WHERE `name` LIKE '%\_%';


    '    SELECT `name` FROM full_data WHERE name NOT IN (SELECT name FROM masterlist2 GROUP BY barangay asc);
    'SELECT `names` FROM pco WHERE names NOT IN (SELECT name FROM full_data GROUP BY barangay asc)

    'SELECT name, COUNT(*) c FROM table GROUP BY name HAVING c > 1;

    'SELECT name
    'FROM masterlist2
    'GROUP BY name
    'HAVING COUNT(*) > 1;

End Module