Imports MySql.Data.MySqlClient


Public Class Form3

    Dim MySqlConn As MySqlConnection
    Dim Command As MySqlCommand
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Username As String
        Username = Form1.User
        lblUser.Text = Username

        MySqlConn = New MySqlConnection
        MySqlConn.ConnectionString = "server=localhost;userid=root;password=;database=StairwayToErrors"
        Dim Reader As MySqlDataReader

        Try
            MySqlConn.Open()
            Dim Query As String
            Query = "SELECT * FROM StairwaytoErrors.learner WHERE Username = '" & Username & "'"
            Command = New MySqlCommand(Query, MySqlConn)
            Reader = Command.ExecuteReader
            While Reader.Read
                txtName.Text = Reader.GetString("Name")
                txtEmail.Text = Reader.GetString("Email")
                txtPhone.Text = Reader.GetString("Phone")
                txtAddress.Text = Reader.GetString("Address")
                dtpDateofBirth.Text = Reader.GetString("DateofBirth")

            End While
            MySqlConn.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MySqlConn = New MySqlConnection
        MySqlConn.ConnectionString = "server=localhost;userid=root;password=;database=StairwayToErrors"
        Dim Reader As MySqlDataReader

        Try
            MySqlConn.Open()
            Dim query As String
            query = "UPDATE StairnwaytoErrors.Learner SET
            (Name = '" & txtName.Text & "', Email = '" & txtEmail.Text & "', Phone = '" & txtPhone.Text & "', Address = '" & txtAddress.Text & "',
            DateofBirth = '" & dtpDateofBirth.Text & "')"
            Command = New MySqlCommand(query, MySqlConn)

            MessageBox.Show("Data Updated")
            MySqlConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


    End Sub

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