Source Code Input Data NIK & Nama Pegawai

Imports MySql.Data.MySqlClient

Public Class InputDataPegawai

    Dim koneksi As MySqlConnection = New MySqlConnection("Data Source=localhost;Database=belajar;User ID=root;Password=kucing;")
    Dim perintah As MySqlCommand
    ' Dim ds As DataSet = New DataSet()
    Dim DataAdapter1 As MySqlDataAdapter = New MySqlDataAdapter()
    Dim dt As DataTable = New DataTable



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolTestKoneksi.Click

        ' koneksi = New MySqlConnection()

        ' koneksi.ConnectionString = "server=localhost;" & "uid=root;" & "pwd=kucing;" & "database=belajar;"

        Try

            koneksi.Open()

            MessageBox.Show("Koneksi Berhasil Terbuka")

            koneksi.Close()




        Catch myerror As MySqlException

            MessageBox.Show("Gagal Terkoneksi Ke Database: " & myerror.Message)

            koneksi.Close()

        Finally

            koneksi.Dispose()



        End Try

    End Sub

    Private Sub tombolSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolSimpan.Click

        ' Perintah SQL yg terdapat didalam variabel "perintah"
        ' Perintah ini berfungsi untuk menginput data ke dalam kolom-kolom di tabel MySQL, dengan mengisi textbox
        perintah = New MySqlCommand("insert into pegawai (id,NIK,NamaPegawai) values (@id,@NIK,@NamaPegawai)", koneksi)


        ' Menginput data ke kolom id
        perintah.Parameters.AddWithValue("@id", textID.Text)

        ' Menginput data ke kolom NIK
        perintah.Parameters.AddWithValue("@NIK", textNIKPegawai.Text)

        ' Menginput data ke kolom NamaPegawai
        perintah.Parameters.AddWithValue("@NamaPegawai", textNamaPegawai.Text)

        'Membuka koneksi ke server MySQL
        koneksi.Open()


        perintah.ExecuteNonQuery()

        ' Menutup koneksi ke serverMySQL
        koneksi.Close()

        'Lebih menutup koneksi ke server, dengan menghapusnya dari memori komputer
        koneksi.Dispose()


        'Baris-baris kode dibawah untuk membersihkan seluruh isian textbox, setelah isian itu disimpan ke server
        textID.Text = ""
        textNIKPegawai.Text = ""
        textNamaPegawai.Text = ""


    End Sub

    Private Sub tombolRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolRefresh.Click


        'perintah SQL yg akan dijalankan di data adapter melalui SelectCommand
        'data adapter berfungsi untuk membaca data dari MySQL
        perintah = New MySqlCommand("SELECT * FROM pegawai", koneksi)

        'koneksi ke database di buka
        koneksi.Open()

        'Mensetting agar data adapter menjalankan program sesuai apa yg ada di perintah
        DataAdapter1.SelectCommand = perintah

        'data yg terdapat di data adapter diisikan ke data table
        DataAdapter1.Fill(dt)

        'DataGrid menampilkan data yg bersumber dari data table
        TampilanDataGrid.DataSource = dt



        'koneksi ke database ditutup
        koneksi.Close()

        koneksi.Dispose()




    End Sub

    Private Sub tombolHapusDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombolHapusDataGrid.Click

        'Membersihkan semua data di data grid sehingga data yang ditampilkan di data grid tidak ganda
        TampilanDataGrid.DataSource.clear()

    End Sub
End Class