Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class accnt
    Dim conn As New MySqlConnection("server=localhost; user=root; database=dbpowermeterpjx101; port=3306; password=;")
    Dim cmd As MySqlCommand
    Dim read As MySqlDataReader


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

    Private Sub newaccount()
        Try
            conn.Close()
            cmd = New MySqlCommand("INSERT INTO clientlist (account,name, address, emailadd, phone, meter, schedule) VALUES(@account,@name, @address, @emailadd, @phone, @meter, @schedule)", conn)
            conn.Open()

            With cmd
                .Parameters.AddWithValue("@account", txtaccnt.Text)
                .Parameters.AddWithValue("@name", txtname.Text)
                .Parameters.AddWithValue("@address", txtaddress.Text)
                .Parameters.AddWithValue("@emailadd", txtemailadd.Text)
                .Parameters.AddWithValue("@phone", txtphone.Text)
                .Parameters.AddWithValue("@meter", txtmeter.Text)
                .Parameters.AddWithValue("@schedule", DateTimePicker1.Text)
                .ExecuteNonQuery()
            End With
            conn.Close()
            MessageBox.Show("Done!")

            txtaccnt.Clear()
            txtname.Clear()
            txtaddress.Clear()
            txtemailadd.Clear()
            txtphone.Clear()
            txtmeter.Clear()

        Catch ex As Exception

        End Try


    End Sub

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

    End Sub
End Class