Update Data Di VB.Net Dan MySQL.

Sekarang kita masuk ke pembahasan mengenai bagaimana cara melakukan update data dari aplikasi vb.net yang sedang dibuat ke database MySQL. Jika pada kesempatan sebelumnya kita sudah belajar mengenai cara input data siswa, menampilkan data dari MySQL ke DataGridView dan juga menampilkan data dari DataGridView pada saat di klik ke textbox, kali ini kita akan mempelajari tentang bagaimana melakukan update atau ubah data pada aplikasi siswa yang sedang kita buat tersebut.

Buka lagi project siswa di VB.Net, jika pembaca belum mengikuti tutorial ini dari awal, silahkan ikuti dulu tutorialnya dari awal ya biar gak bingung.
Untuk melakukan update data siswa, data siswa sebelumnya harus sudah ditampilkan terlebih dahulu di textbox, jadi prosesnya pilih data siswa yang ditampilkan di DGVSiswa, klik salah satu siswa yang ingin diubah datanya, nanti data siswa tersebut akan ditampilkan di textbox. Nah data siswa tersebut lah yang akan diupdate datanya.

Jika project sudah terbuka, buat sebuah subroutine baru dengan nama updateSiswa. Lalu masukan perintah seperti berikut ini :

Sub updateSiswa()

        Try

            Call koneksi()

            Dim str As String

            str = "Update siswa set NAMA = '" & txtNama.Text & "', NOTELP = '" & txtNoTelp.Text & "', ALAMAT = '" & rtbAlamat.Text & "' where NIP = '" & txtNip.Text & "'"

            cmd = New MySqlCommand(str, conn)

            cmd.ExecuteNonQuery()

            MessageBox.Show("Update Data Siswa Berhasil Dilakukan.")



        Catch ex As Exception

            MessageBox.Show("Update data siswa gagal dilakukan")

        End Try

    End Sub

Jika subroutine tersebut sudah dibuat, sekarang tinggal panggil subroutine updateSiswa tersebut pada saat tombol ubah di klik, perintahnya seperti berikut ini :

Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click

        Call updateSiswa()

    End Sub

Sekarang  coba jalankan programnya, lalu pilih salah satu data siswa yang ingin di update atau ubah datanya, lalu klik tombol ubah. Jika sukses, aplikasi akan menampilkan informasi bahwa data siswa telah berhasil di ubah, jika gagal juga akan keluar informasi bahwa data siswa gagal diubah.

Seperti itulah cara bagaimana melakukan proses ubah atau update data dari aplikasi yang di buat di VB.Net ke database yang ada di MySQL. Semoga tutorial ini dapat memberikan manfaat bagi para pembaca sekalian, sampai bertemu di kesempatan selanjutnya ya.

Read more

Menampilkan data Dari DataGridView Ke TextBox VB.Net.

Menampilkan data Dari DataGridView Ke TextBox VB.Net.

Setelah pada tutorial sebelumnya kita telah berhasil menampilkan data dari database ke DataGridView, kali ini kita akan mencoba untuk menampilkan data dari DataGridView ke Textbox ataupun komponen Toolbox lainnya. Jadi jika user mengklik data yang ada didalam DataGridView, maka nilai data yang ada di DataGridView tersebut akan ditampilkan di TextBox ataupun komponen Toolbox lainnya.

Langkah pertama, kita buka lagi project sekolah yang sebelumnya sudah kita buat. Pada dgvDaftarSiswa, pilih menu events lalu klik dua kali CellMouseClick seperti berikut ini :

Nah selanjutnya masukan perintah berikut ini kedalam CellMouseClick :

 txtNip.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(0).Value

        txtNama.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(1).Value

        txtNoTelp.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(2).Value

        rtbAlamat.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(3).Value



        txtNip.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(0).Value

        txtNama.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(1).Value

        txtNoTelp.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(2).Value

        rtbAlamat.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(3).Value

Maksud dari perintah diatas adalah saat kita meng klik data yang ada pada dgvDaftarSiswa, baris yang diklik tersebut nilainya akan di tampilkan ke txtNip, txtNama, txtNoTelp dan juga rtbAlamat.
Untuk lebih jelasnya berikut ini perintah keseluruhan dari perintah CellMouseClick untuk menampilkan data dari DataGridView ke Textbox.

Private Sub dgvDaftarSiswa_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvDaftarSiswa.CellMouseClick

        txtNip.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(0).Value

        txtNama.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(1).Value

        txtNoTelp.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(2).Value

        rtbAlamat.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(3).Value



        txtNip.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(0).Value

        txtNama.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(1).Value

        txtNoTelp.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(2).Value

        rtbAlamat.Text = dgvDaftarSiswa.Rows(e.RowIndex).Cells(3).Value

    End Sub

Sekarang coba jalankan aplikasinya, lalu klik salah satu data yang ada di dalam dgvDaftarSiswa, nanti data yang ada di DataGridView nilainya akan ditampilkan kedalam textbox seperti gambar berikut.

Seperti itulah cara bagaimana menampilkan data yang ada didalam DataGridView Kedalam Textbox. Pada pembahasan selanjutnya kita akan membahas mengenai bagaimana cara update data di VB.Net Ke database MySQL.

Read more

Menampilkan Data Dari Database MySQL Ke DataGridView VB.Net

Menampilkan Data Dari Database MySQL Ke DataGridView VB.Net 

Setelah pada postingan sebelumnya kita telah mempelajari tentang bagaimana membuat desain interface, membuat module koneksi vb.net ke MySQL dan juga cara bagaimana memasukan data kedalam database MySQL melalui sistem aplikasi yang dibuat di VB.Net.

Kali ini kita mempelajari tentang bagaimana cara menampilkan data dari database MySQL ke DataGridView yang sudah kita buat sebelumnya.

Mengatur Tampilan DataGridView. 

Langkah pertama yang akan kita lakukan untuk menampilkan data dari database ke datagridview adalah membuat sebuah subroutine untuk mengatur tampilan DataGridView agar lebih enak dilihat. Perintahnya seperti berikut ini :

Sub aturDGV()
        Try
            dgvDaftarSiswa.Columns(0).Width = 70
            dgvDaftarSiswa.Columns(1).Width = 130
            dgvDaftarSiswa.Columns(2).Width = 100
            dgvDaftarSiswa.Columns(3).Width = 150
            dgvDaftarSiswa.Columns(0).HeaderText = "NIP"
            dgvDaftarSiswa.Columns(1).HeaderText = "Nama"
            dgvDaftarSiswa.Columns(2).HeaderText = "No Telefon"
            dgvDaftarSiswa.Columns(3).HeaderText = "Alamat"
        Catch ex As Exception
        End Try
    End Sub

Jadi pada perintah diatas kita mengatur ukuran lebar dari masing-masing kolom di datagridview dan juga mengatur Header Text dari masing masing kolom tersebut sesuai dengan nama field yang ada didatabase.

Perintah Menampilkan Data Dari Database Ke DataGridView.

Selanjutnya adalah membuat perintah untuk menampilkan data dari Database kedalam DataGridView, buat sebuah subroutine dengan nama tampilSiswa, lebih lengkap perintahnya seperti berikut ini :

Sub tampilSiswa()

        Call koneksi()
        da = New MySqlDataAdapter("select NIP, NAMA, NOTELP, ALAMAT from siswa", conn)
        ds = New DataSet
        da.Fill(ds, "siswa")
        dgvDaftarSiswa.DataSource = ds.Tables("siswa")
        
        End Sub

Logika dari perintah diatas adalah kita memilih untuk menampilkan field NIP, NAMA, NOTELP dan ALAMAT yang ada pada tabel siswa untuk ditampilkan di dgvDaftarSiswa.

Jika subroutine aturDGV dan tampilSiswa sudah berhasil dibuat, selanjutnya panggil subroutine tersebut pada saat form di load, perintahnya seperti berikut ini :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilSiswa()
        Call aturDGV()
    End Sub

Oke sekarang coba jalankan lagi aplikasinya, jika berhasil maka daftar siswa yang ada dalam database akan langsung ditampilkan pada saat aplikasi pertama kali dijalankan seperti gambar berikut :

Nah data siswa sudah berhasil ditampilkan kedalam dgvDaftarSiswa, jika masih bingung silahkan lihat perintah lengkapnya dari sistem aplikasi yang sedang kita buat berikut ini :

Imports MySql.Data.MySqlClient
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilSiswa()
        Call aturDGV()
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call koneksi()
        Try
            Dim str As String
            str = "insert into siswa values ('" & txtNip.Text & "','" & txtNama.Text & "', '" & txtNoTelp.Text & "', '" & rtbAlamat.Text & "')"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()
            MessageBox.Show("Insert Data Siswa Berhasil Dilakukan")

        Catch ex As Exception
            MessageBox.Show("Insert data siswa gagal dilakukan.")
        End Try
    End Sub

    Sub tampilSiswa()

        Call koneksi()
        da = New MySqlDataAdapter("select NIP, NAMA, NOTELP, ALAMAT from siswa", conn)
        ds = New DataSet
        da.Fill(ds, "siswa")
        dgvDaftarSiswa.DataSource = ds.Tables("siswa")
        
        End Sub

    Sub aturDGV()
        Try
            dgvDaftarSiswa.Columns(0).Width = 70
            dgvDaftarSiswa.Columns(1).Width = 130
            dgvDaftarSiswa.Columns(2).Width = 100
            dgvDaftarSiswa.Columns(3).Width = 150
            dgvDaftarSiswa.Columns(0).HeaderText = "NIP"
            dgvDaftarSiswa.Columns(1).HeaderText = "Nama"
            dgvDaftarSiswa.Columns(2).HeaderText = "No Telefon"
            dgvDaftarSiswa.Columns(3).HeaderText = "Alamat"
        Catch ex As Exception
        End Try
    End Sub

End Class

Oke, sampai disini dulu pembahasan mengenai cara menampilkan data dari database ke datagridview, pada kesempatan selanjutnya kita akan membahas mengenai bagaimana cara menampilkan data yang ada pada datagridview kedalam textbox sehingga data yang ditampilkan ke textbox tersebut dapat digunakan untuk melakukan proses update data.

Read more

Insert Data Dari Aplikasi VB.Net Ke Database MySQL.

Insert Data Dari Aplikasi VB.Net Ke Database MySQL. 

Ok setelah pada tutorial sebelumnya kita telah membuat desain interface dan juga module koneksi dari vb.net ke MySQL. Sekarang kita lanjut ke tahap selanjutnya. Disini kita akan mencoba membuat perintah untuk memasukan data dari txtNama, txtNoTelp dan seterusnya kedalam database sekolah di MySQL. Untuk melakukan perintah insert data dari VB.Net ke database di MySQL, langkah pertama adalah import terlebih dahulu MySQL.Data.MySqlCLient seperti berikut :

Imports MySql.Data.MySqlClient

Lalu selanjutnya klik dua kalik btnSimpan, karena trigger dari perintah ini akan dilaksanakan jika btnSimpan diklik. Selanjutnya ketikan perintah seperti berikut ini :

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call koneksi()
        Try
            Dim str As String
            str = "insert into siswa values ('" & txtNip.Text & "','" & txtNama.Text & "', '" & txtNoTelp.Text & "', '" & rtbAlamat.Text & "')"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()
            MessageBox.Show("Insert Data Siswa Berhasil Dilakukan")

        Catch ex As Exception
            MessageBox.Show("Insert data siswa gagal dilakukan.")
        End Try
    End Sub

Logic dari perintah diatas adalah, pertama kita memanggil Subroutine koneksi yang ada pada module koneksi ke MySQL yang sebelumnya sudah dibuat, lalu membuat sebuah variable string dengan nama str dimana variable str ini merupakan variable yang akan digunakan untuk menampung perintah MySQL yang akan digunakan. Selanjutnya mengeksekusi perintah pada variable str dengan menggunakan perintah MySQLCommand. Jika sukses maka data akan tersimpan di database MySQL. Berikut ini adalah source lengkap dari sistem atau aplikasi yang sedang kita buat :

Imports MySql.Data.MySqlClient
Public Class Form1

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Call koneksi()
        Try
            Dim str As String
            str = "insert into siswa values ('" & txtNip.Text & "','" & txtNama.Text & "', '" & txtNoTelp.Text & "', '" & rtbAlamat.Text & "')"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()
            MessageBox.Show("Insert Data Siswa Berhasil Dilakukan")

        Catch ex As Exception
            MessageBox.Show("Insert data siswa gagal dilakukan.")
        End Try
    End Sub

End Class

Oke sekarang coba jalankan programnya, jika berhasil nanti akan keluar message box dengan informasi bahwa data siswa sudah berhasil ditambahkan dan jika gagal juga akan menampilkan message box yang memberikan informasi bahwa data siswa gagal ditambahkan.

Nah pada contoh diatas data siswa berhasil ditambahkan, sekarang kita coba cek di database yang ada di MySQL apakah data siswa dengan nama Muhammad Ammar yang baru ditambahkan tersebut apakah benar benar sudah masuk kedalam database atau tidak dengan menggunakan perintah select seperti berikut :
 

mysql> select * from siswa;
+----------+--------------------+--------------+-------------------------------+

| NIP      | NAMA               | NOTELP       | ALAMAT                        |

+----------+--------------------+--------------+-------------------------------+

| 10108822 | Virdane Ardiansyah | 123456789101 | JL. KH. Atim II Rangkasbitung |

| 10108823 | Muhammad Ammar     | 081211223321 | JL. Depag No 13 L.            |

+----------+--------------------+--------------+-------------------------------+

2 rows in set (0.00 sec)

mysql>

Oke data siswa yang baru sudah berhasil ditambahkan kedalam tabel siswa yang ada didalam database sekolah. Seperti itulah cara bagaimana melakukan insert data dari VB.Net ke dalam database MySQL. Pada kesempatan selanjutnya kita akan membahas mengenai bagaimana cara menampilkan data siswa kedalam datagridview yang sudah dibuat.

Read more

Membuat Module Koneksi VB.Net Dan MySQL.

Pada tutorial membuat module koneksi vb.net dan MySQL ini kita akan mempelajari tentang bagaimana cara agar system yang kita buat untuk input data siswa dapat terhubung dengan database sekolah di MySQL. Perlu diperhatikan, agar sistem yang kita buat di vb.net dapat terhubung dengan database MySQL, kita membutuhkan MySQL Connector yang bisa Anda download melalui link berikut ini : Download MySQL Connector.

Selanjutnya install MySQL Connector yang telah Anda download tersebut. Nanti konektor inilah yang akan kita gunakan untuk menghubungkan vb.net dengan database di MySQL.
Setelah Mysql Connector berhasil Diinstall, selanjutnya adalah membuat database di MySQL tersebut. Sebenarnya pada tutorial belajar MySQL di blog ini pernah dibahas bagaimana cara membuat database sekolah tersebut, jika anda belum membuat database sekolah silahkan lihat caranya disini. Dan juga cara membuat tabel siswa yang ada pada tutorial Belajar Membuat Tabel Di MySQL.

Ok jika MySQL Connector sudah berhasil diinstall dan juga database sudah berhasil dibuat, sekarang saatnya kita membuat sebuah module koneksi yang akan digunakan untuk menghubungkan VB.Net dengan Database MySQL.

Cara Membuat Module Konekis VB.Net dan MySQL.

Tambahkan konektor MySQL kedalam project dengan cara, klik menu Project – sekolah Properties.
Setelah windows project properties terbuka, pilih references lalu tekan tombol Add.
Klik tab .Net lalu cari data MySQL.Data lalu klik tombol Ok.

Sekarang kita telah berhasil menambahkan konektor MySQL kedalam project, selanjutnya adalah membuat module koneksi yang akan digunakan untuk menghubungkan VB.Net dengan database MySQL.

Membuat Module Koneksi.

Tambahkan module kedalam project dengan cara : Klik Menu Project.
Lalu pilih Add Module.

Berinama ModuleKoneksiMySQL.vb lalu klik Add.
Setelah module berhasil ditambahkan, selanjutnya adalah memasukan perintah agar module dapat digunakan untuk mengubungkan project di VB.Net dengan database MySQL. Berikut langkah-langkahnya :

Import MySQL Data Client kedalam module dengan perintah berikut :

Imports MySql.Data.MySqlClient

Selanjutnya pada bagian module koneksi, buat sebuah subroutine baru, berinama Koneksi :

Sub koneksi()

        Try

            Dim str As String = "Server=localhost;user id=root;password=marlboro;database=sekolah"

            conn = New MySqlConnection(str)

            If conn.State = ConnectionState.Closed Then

                conn.Open()

            End If



        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try



    End Sub

Pada subtourine koneksi diatas, kita membuat sebuah variable yang digunakan untuk melakukan koneksi dari vb.net ke mysql.  Pada bagian user id, masukan username MySQL Anda, lalu masukan juga password MySQL. Jika MySQL anda tidak diberi password maka kosongkan saja. Lalu pada bagian database masukan nama database yang akan digunakan.

Selanjutnya dengan menggunakan fungsi logika if, kita akan mencoba membuka koneksi MySQL yang tertutup. Fungsi try catch diatas digunakan untuk memberikan informasi atau dapat juga digunakan untuk menangani error yang terjadi.

Berikut ini adalah source code lengkap dari module koneksi yang kita buat

Imports MySql.Data.MySqlClient


Module ModuleKoneksiMySQL


    Public conn As MySqlConnection

    Public cmd As MySqlCommand

    Public rd As MySqlDataReader

    Public da As MySqlDataAdapter

    Public ds As DataSet

    Public str As String



    Sub koneksi()

        Try

            Dim str As String = "Server=localhost;user id=root;password=marlboro;database=sekolah"

            conn = New MySqlConnection(str)

            If conn.State = ConnectionState.Closed Then

                conn.Open()

            End If



        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub


End Module

Yup sekarang kita sudah berhasil membuat sebuah module koneksi VB.Net ke MySQL, module koneksi inilah yang nantinya akan kita gunakan sebagai jembatan penghubung antara system yang akan dibuat dengan database MySQL. Pada tutorial selanjutnya kita akan mempelajari bagaimana cara insert data kedalam database MySQL dengan menggunakan VB.Net.

Read more

Membuat Sistem Database Dengan VB.Net dan Database MySQL.

Yup kali ini kita akan mempelajari tentang bagaimana membuat sistem database dengan menggunakan bahasa pemrograman VB.Net dan Database MySQL. Bagi pembaca yang belum familiar dengan database MySQL, pembaca bisa mempelajari tutorialnya di sini.

Pada tutorial belajar vb.net kali ini kita membuat sebuah aplikasi untuk melakukan input data siswa dengan memanfaatkan database sekolah yang pada tutorial mysql sebelumnya sudah dibuat. Jika anda belum membuat databasenya silahkan lihat caranya di Membuat Database di MySQL.

Desain User Interface Di VB.Net.

Oke langkah pertama kita buat terlebih dahulu sebuah project baru di vb.net, lalu beri nama project tersebut dengan nama sekolah, lalu desain tampilannya untuk dapat melakukan insert, update, delete dan juga menampilkan data siswa yang ada didalam database MySQL. Untuk lebih jelasnya lihat contoh tampilannya berikut ini :

Pada tampilan diatas saya menggunakan 4 Label, 3 TextBox, 1 RichTextBox, 3 Button, 2 GroupBox dan sebuah DataGridView yang mana nanti daftar siswa akan ditampilkan di DataGridView Tersebut. Silahkan anda buat tampilannya seperti gambar diatas ya, atau jika anda ingin mengubah desainnya juga gapapa.

Selanjutnya ubah properties dari masing masing toolbox tersebut menjadi seperti berikut ini :

Nama	Properties	Nilai
TextBox1	Name	txtNip
TextBox2	Name	txtNama
TextBox3	Name	txtNoTelp
RichTextBox1	Name	rtbAlamat
Button1	Name	btnSimpan
Button2	Name	btnUbah
Button3	Name	btnHapus
DataGridView1	Name	dgvDaftarSiswa

Oke sampai disini dulu ya pembahasannya. Nanti kita sambung di tutorial Belajar VB.Net selanjutnya yang akan membahas bagaimana cara membuat module koneksi VB.Net ke Database MySQL.

Read more