Cara membuat button login jika databasenya menggunakan mysql server pada VB net

Cara membuat login pada VB.net 

dengan database mysql server

Pada pertemuan kemarin saya sudah membahas tentang cara membuat module koneksi dengan database menggunakan mysql server. Kali ini akan saya lanjutkan dengan cara membuat login pada VB net. Oke langdung saja ikuti langkah-langkah berikut.

• Sebelumnya baca dulu : Cara membuat module koneksi pada vb net.

1. Buat form baru dengan cara klik project => add windows form => berinama login => add. lihat gambar di bawah.

2. Desain form login seperti gambar di bawah

3. Buat lagi form baru untuk tampilan pertama setelah login => desain seperti gambar di bawah => buat posisi awal tampilan berada di tengah layar (perhatikan bagian kanan bawah yang di lingkari) => WindowsDefaultLocation ganti dengan CenterScreen.

4. Klik 2x pada form login => isi koding seperti berikut.

Imports System.Data.MysqlClient

Public Class login

    Sub login()
        cmd = New MysqlCommand("select * from tbl_login where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
    End Sub

    Sub kosong()
        TextBox1.Text = ""
        TextBox2.Text = ""

        TextBox1.Focus()
    End Sub

    Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call koneksi()
        TextBox1.Focus()
    End Sub


5. Klik 2x pada button login => isikan koding sebagai berikut.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call login()
        If dr.HasRows Then
            Me.Hide()
            Form1.Show()
        Else
            MsgBox("Username/password yang anda masukan salah")
        End If
    End Sub


6. Klik 2x pada button batal => isikan koding sebagai berikut.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Call kosong()
    End Sub
End Class

Untuk lebih jelasnya lihat gambar di bawah.

7. Setelah itu jalankan program/start => isikan username dan password => maka akan tampil tampilan utama seperti yang kita buat di langkah 3 tadi. Jika anda melakukan cara di atas dengan benar, pasti akan sukses.

Selanjutnya akan saya teruskan dengan pembuatan SIMPAN, EDIT, DELETE, PENCARIAN. Sekian dan semoga bermanfaat. Terimakasih.

Cara membuat module koneksi jika databasenya mysql server

Oke pertemuan kemarin saya sudah bahas tentang pembuatan simpan, edi, delete, batal, dan pencarian dari awal pembuatan database sampai selesai. sekarang saya akan bahas tentang cara membuat module koneksi dengan database mysql server.

Baca : Cara membuat simpan, edit, delete, batal, dan pencarian dengan database menggunakan ms.access.

Oke langsung saja. Cara membuat module koneksi pada VB net, ikuti langkah-langkah berikut.


1. Instal dulu 'mysql-connector-net' pada komputer / pc anda. Klik disini untuk download softwarenya.

2. Buat dulu databasenya di mysql server. Baca : cara membuat database di mysql server. 

3. Setelah buat database, buka VB netnya. Jangan lupa disini anda aktifkan XAMPP yang gunanya untuk mengakses mysql server. Lihat contoh gambar XAMPP berikut.

4. Setelah VBnetnya terbuka, klik project (atas) => add module => add. Lihat gambar di bawah.

5. Sebelum mengisikan koding, pasang dulu mysql-connector-net yang tadinya sudah di instal ke VB net dengan cara klik project (atas) => add reference => extension => scroll kebawah, pilih dan centang mysql.data => ok. Dengan cara ini anda sudah memasang mysql-connector-net ke vb net anda.

6. Setelah klik add module, maka akan muncul lembaran baru untuk mengisikan koding. Copy paste koding berikut di dalam kotak module tersebut.

  Imports System.Data.mysqlclient

     Module Module1
         Public conn As mysqlConnection
         Public da As mysqlDataAdapter
         Public ds As DataSet
         Public cmd As mysqlCommand
         Public dr As mysqlDataReader

         Public Sub koneksi()
             conn = New mysqlConnection("server=localhost; database=kampus; uid=root; password=")
             conn.Open()
         End Sub
         End Module



Catatan:
Tulisan yang saya tandai biru adalah nama databasenya.

7. Koding untuk module koneksi sudah selesai. Untuk mencobanya, anda buat form baru => klik 2x form tersebut => tambahkan 'call koneksi()' tanpa tanda petik dan 'import mysql.data.mysqlclient' tanpa tanda petik. Lebih jelasnya lihat gambar berikut.

8. Jalankan program. Jika pada waktu klik start dan tidak terjadi eror pada program anda, maka koneksi database ke vb net sudah berhasil, sebaliknya jika terjadi eror pada waktu klik start maka ada kesalahan. Jika anda melakukan langkah di atas dengan benar, pasti akan sukses. untuk selanjutnya saya akan bahas menu login, tampilkan data ke datagridview vb net, simpan, edit, delete, batal, pencarian dengan databasenya menggunakan mysql server. Oke sekian dan semoga bermanfaat. Terimakasih.

SIMPAN, EDIT, HAPUS, BATAL, DAN PENCARIAN pada Vb net (FULL dari awal pembuatan database hingga selesai)

SIMPAN, EDIT, DELETE, BATAL, PENCARIAN TAHAP 2

Kelanjutan dari button simpan, sekarang kita bahas button edit dan hapusnya yang mana databasenya menggunakan ms.access. Ok langsung saja. Agar anda tahu alurnya baca dulu : Cara membuat program simpan, edit, delete, batal, dan pencarian.

Dan ini adalah tampilan formnya :

Ini adalah kelanjutanya. Ikuti langkah-langkah berikut.

1. Klik 2x button perbarui pada form => copy paste koding berikut ke dalam tombol perbarui.

 If TextBox1.Text = "" Then
            MsgBox("Cari data yang ingin de perbarui")
        Else
            Try
                If RadioButton1.Checked = True Then
                    pilihan = RadioButton1.Text
                Else
                    If RadioButton2.Checked = True Then
                        pilihan = RadioButton2.Text
                    End If
                End If
                If dr.HasRows Then
                    Dim edit As String = "update tbl_daftar set nama='" & TextBox2.Text & "', alamat='" & TextBox3.Text & "', tgl_lahir='" & TextBox4.Text & "', jenis_kelamin='" & pilihan & "', status='" & ComboBox1.Text & "', telp='" & TextBox7.Text & "', NIK='" & TextBox8.Text & "', jabatan='" & TextBox9.Text & "', tgl_masuk='" & TextBox10.Text & "' where ID='" & TextBox1.Text & "'"
                    cmd = New OleDbCommand(edit, conn)
                    cmd.ExecuteNonQuery()
                End If
            Catch ex As Exception
            End Try
        End If
        Call tampilgrid()
        Call kosong()

Ini adalah contoh gambarnya :

2. Untuk button edtinya sudah selesai. Sekarang untuk button hapusnya, klik 2x button hapus pada formnya, copy paste koding ini ke dalam button hapus.

 If TextBox1.Text = "" Then
            MsgBox("pilih data yang akan di hapus")
            Exit Sub
        End If
        If Not dr.HasRows Then
            MsgBox("ID tidak terdaftar")
            TextBox1.Focus()
            Exit Sub
        End If
        If MessageBox.Show("yakin ingin hapus ?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            Dim hapus As String = "delete from tbl_daftar where ID= '" & TextBox1.Text & "'"
            cmd = New OleDbCommand(hapus, conn)
            cmd.ExecuteNonQuery()
            Call kosong()
            Call tampilgrid()
        Else
            Call kosong()
            Call tampilgrid()
            Me.Show()
        End If

Ini adalah contoh gambarnya :

3. Nah sekarang coba jalankan program atau tekan F5 pada keyboard. Jika anda mengikuti cara di atas dengan bernar, pasti program berjalan dengan baik. Jika masih ada yang bingung dan ingin bertanya, silahkan tulis komentar di bawah. Akan saya bantu sebisa mungkin. Sekian dan semoga bermanfaat. Terimakasih.

SIMPAN, EDIT, HAPUS, BATAL, DAN PENCARIAN pada VB.net (FULL dari awal pembuatan database hingga selesai)

Cara membuat SIMPAN, EDIT, DELETE, BATAL, PENCARIAN TAHAP 1 pada VB.net

Sebelumnya kita sudah membahas tentang cara membuat module koneksi dan menu login.
Sekarang kita lanjutkan dengan membuat menu simpan, edit, delete, batal, dan pencarian. Dimana
ke empat tombol inilah yang masih di bingungkan oleh pengguna vb.net.

Banyak teman saya menanyakan pada saya cara membuat ke empat tombol tersebut. Sudah saya jawab tapi teman satunya tanya lagi. Capek jawab akhirnya saya buat artikel ini. Jadi ketika saya di tanya lagi, saya suruh buka blog ini aja :). Perlu di ingat sebelum kita buat program yang berhubungan dengan database, kita membutuhkan module koneksi untuk menghubungkan database ke vb.net. Sebenarnya bisa juga menggunakan class tapi saya lebih suka menggunakan module karena lebih mudah.

Langsung saja ke pembahasan. Cara membuat program simpan, edit, delete, batal, dan pencarian pada vb.net ikuti langkah di bawah ini :

• Sebelum membuat koding kita logikakan dulu seperti ini. Jika tampil1 di tampilkan maka tombol perbarui di matikan (tidak bisa di klik). Jadi jika textbox1 tidak menemukan ID dari database, maka tombol perbarui tidak bisa di tekan. Yang bisa di klik adalah tombol simpan, hapus, kosongkan, tutup.

• Jika semua textbox dalam keadaan kosong di klik button simpan, maka akan muncul messagebox (data harus di isi).

• Jika semua textbox dalam keadaan kosong di klik button hapus, maka akan muncul messagebox (harus pilih data yang akan di hapus) dan ketika akan menghapus data ada pemberitahuan "yakin ingin hapus data ini?" jika pilih "yes" maka akan di hapus jika pilih "no" maka tidak di hapus dan data pada textbox di kosongkan.

1. Buka vb.net => buat form baru (kita umpamakan saja form ini adalah tampil1) => desain
tampilan dan berinama seperti gambar di bawah (tulisan warna merah adalah nama dari masing-masing).

2. Klik 2x pada tampil1 => isi koding seperti berikut (karena saya menggunakan database
ms.access, maka pakai oledb. nnt akan saya share juga jika menggunakan database sql).

Imports System.Data.OleDb

Public Class tampil1

    Dim pilihan As String

#Region "sub"
    Sub tampilgrid()
        da = New OleDbDataAdapter("select * from tbl_daftar", conn)
        ds = New DataSet
        da.Fill(ds)
        dgv.DataSource = ds.Tables(0)
        dgv.ReadOnly = True
    End Sub


    Sub ketemu()
        TextBox1.Text = dr.Item(0)
        TextBox2.Text = dr.Item(1)
        TextBox3.Text = dr.Item(2)
        TextBox4.Text = dr.Item(3)

        If dr.Item(4) = "Laki-laki" Then
            RadioButton1.Checked = True
        Else
            If dr.Item(4) = "Perempuan" Then
                RadioButton2.Checked = True
            End If
        End If

        ComboBox1.Text = dr.Item(5)
        TextBox7.Text = dr.Item(6)
        TextBox8.Text = dr.Item(7)
        TextBox9.Text = dr.Item(8)
        TextBox10.Text = dr.Item(9)
    End Sub


    Sub carikode()
        cmd = New OleDbCommand("select * from tbl_daftar where ID= '" & TextBox1.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
    End Sub

    Sub kosong()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        RadioButton1.Checked = False
        RadioButton1.Checked = False
        ComboBox1.Text = ""
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        TextBox10.Clear()
        Button4.Enabled = False
        Button1.Enabled = True
        TextBox1.Focus()
    End Sub


    Sub tampilbaru()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        RadioButton1.Checked = False
        RadioButton1.Checked = False
        ComboBox1.Text = ""
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        TextBox10.Clear()
        TextBox2.Focus()
    End Sub

#End Region
   
    Private Sub tampil1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
        Call koneksi()
        Call tampilgrid()
        TextBox1.Focus()
        Button4.Enabled = False
    End Sub


2. Klik 2x pada button simpan dan isikan koding seperti berikut :

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Data ada yang kosong")
        Else
            Try
                If RadioButton1.Checked = True Then
                    pilihan = RadioButton1.Text
                Else
                    If RadioButton2.Checked = True Then
                        pilihan = RadioButton2.Text
                    End If
                End If
                Call carikode()
                If Not dr.HasRows Then
                    Dim simpan As String = "insert into tbl_daftar values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & pilihan & "', '" & ComboBox1.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "')"
                    cmd = New OleDbCommand(simpan, conn)
                    cmd.ExecuteNonQuery()
                End If
                Call kosong()
                Call tampilgrid()
            Catch ex As Exception
            End Try
        End If
    End Sub


3. Klik 2x pada button kosongkan dan isikan koding seperti berikut :

    Private Sub txtkosong_Click(sender As Object, e As EventArgs) Handles txtkosong.Click
        Call kosong()
    End Sub

4. Klik 2x pada button tutup dan isikan koding sebagai berikut :

    Private Sub txttutup_Click(sender As Object, e As EventArgs) Handles txttutup.Click
        Me.close()
    End Sub

5. Klik 2x pada textbox1. Buat text changednya (kanan atas) jadi keypress dan isikan koding sebagai berikut :
(logikannya jika setelah mengisikan ID pada textbox 1 tekan enter dan menemukan baris maka panggil ketemu. Jika tidak menemukan baris maka panggil tampilbaru).

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Call carikode()
            If dr.HasRows Then
                Call ketemu()
                Button1.Enabled = False
                Button4.Enabled = True
            Else
                Call tampilbaru()
                Button4.Enabled = False
                Button1.Enabled = True
            End If
        End If

    End Sub

End Class

6. Setelah semua selesai buat koding seperti di atas, jalankan program / start dan klik button simpan. Maka data yang anda simpan akan masuk ke database anda. Untuk kelanjutan pembuatan button edit dan hapus, KLIK DISINI.

Karena artike ini sudah terlalu panjang, untuk button edit dan delete saya pisahkan dengan artikel lainnya. Sekian dan semoga bermanfaat. Terimakasih. 

Cara membuat login pada VB.net 

dengan mudah

Setelah pembuatan module koneksi selesai, selanjutnya ke pembuatan menu login. Langsung saja ke pembahasan. Ikuti langkah-langkah di bawah ini.

Cara membuat module koneksi

1. Buat form baru dengan cara klik project => add windows form => berinama login => add. lihat gambar di bawah.

2. Desain form login seperti gambar di bawah

3. Buat lagi form baru untuk tampilan pertama setelah login => desain seperti gambar di bawah => buat posisi awal tampilan berada di tengah layar (perhatikan bagian kanan bawah yang di lingkari) => WindowsDefaultLocation ganti dengan CenterScreen.

4. Klik 2x pada form login => isi koding seperti berikut.

Imports System.Data.OleDb

Public Class login

    Sub login()
        cmd = New OleDbCommand("select * from tbl_login where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
    End Sub

    Sub kosong()
        TextBox1.Text = ""
        TextBox2.Text = ""

        TextBox1.Focus()
    End Sub

    Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call koneksi()
        TextBox1.Focus()
    End Sub


5. Klik 2x pada button login => isikan koding sebagai berikut.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call login()
        If dr.HasRows Then
            Me.Hide()
            Form1.Show()
        Else
            MsgBox("Username/password yang anda masukan salah")
        End If
    End Sub


6. Klik 2x pada button batal => isikan koding sebagai berikut.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Call kosong()
    End Sub
End Class

Untuk lebih jelasnya lihat gambar di bawah.

7. Setelah itu jalankan program/start => isikan username dan password => maka akan tampil tampilan utama seperti yang kita buat di langkah 3 tadi.

Selanjutnya akan saya teruskan dengan pembuatan SIMPAN, EDIT, DELETE, PENCARIAN. Sekian dan semoga bermanfaat. Terimakasih.

Cara menampilkan data dari database ke datagridview pada VB.net

 Cara menampilkan data dari database
ke datagridview pada VB.net dengan mudah

Sebelum kita membahas cara menampilkan data pada datagridview, buat dulu database dan module koneksi. Cara membuat module koneksi pada VB.net.


Cara menampilkan data dari database ke datagridview vb.net. Ikuti langkah-langkah di bawah ini :

1. Buat form baru => desain seperti gambar di bawah ini => klik 2x pada form => isikan koding seperti berikut.

 

    Imports System.Data.OleDb

Public Class Form1

    Sub tampilgrid()
        da = New OleDbDataAdapter("select * from tbl_daftar", conn)
        ds = New DataSet
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)
        DataGridView1.ReadOnly = True
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call koneksi()
    End Sub


2. Klik button tampilkan dan isi koding sebagai berikut.

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

Atau lebih jelasnya lihat gambar di bawah ini.

3. Klik start maka akan muncul data dari database ke form VB.net anda.

Selanjutnya akan saya teruskan dengan membuat tombol SIMPAN, EDIT, HAPUS, PENCARIAN.
Sekian dan semoga bermanfaat. Terimakasih.

Cara membuat module koneksi pada vb.net dengan mudah

Cara membuat module koneksi pada vb.net

Dilanjutkan ke pembuatan module koneksi. Modul koneksi di gunakan untuk menghubungkan antara database dan vb.net agar data yang ada pada database bisa di akses ke vb.net. Sebelum pembuatan module koneksi, buat dulu databasenya. Cara membuat database pada ms.access.

Langsung saja ke pembahasan. Cara membuat module koneksi pada vb.net. Ikuti langkah-langkah di bawah ini.

1. Buka aplikasi vb.net. Disini saya menggunakan visual studio 2012 / vb.net 2012.

2. Setelah membuka, buat lembaran module koneksi dengan cara klik project => add module => lihat gambar di bawah.

3. Maka akan muncul jendela baru seperti gambar di bawah ini => klik add

4. Desain tampilan form1 seperti gambar di bawah. Form1 di gunakan untuk tampilan pertama setelah login.

5. Isi koding pada module koneksi sebagai berikut.

     Imports System.Data.OleDb

     Module Module1
         Public conn As OleDbConnection
         Public da As OleDbDataAdapter
         Public ds As DataSet
         Public cmd As OleDbCommand
         Public dr As OleDbDataReader

         Public Sub koneksi()
             conn = New OleDbConnection("provider=microsoft.ace.oledb.12.0; data source=tutorial- vb.accdb")
             conn.Open()
         End Sub
         End Module

Atau lebih jelasnya lihat gambar di bawah ini.

6. Setelah itu klik 2x pada form1 => isi koding seperti berikut.

     Imports System.Data.OleDb

     Public Class Form1

          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
              Call koneksi()
          End Sub
          End Class

Atau lebih jelasnya lihat gambar di bawah ini. (arti load di atas adalah ketika form1 di tampilkan. jadi ketika form1 di tampilkan maka "panggil koneksi" yg di buat di module koneksi tadi.

7. Klik start / F5 => Jika setelah di klik start tidak terjadi error, maka module koneksi sudah benar => lihat gambar di bawah.

Selanjutnya akan saya teruskan dengan pembuatan menu login dan menampilkan data pada datagridview. Sekian dan semoga bermanfaat. Terimakasih.

Cara membuat database pada ms.access

Sebelum membuat aplikasi di VB.NET, kita buat dl databasenya. Disini saya menggunakan ms.access untuk databasenya. Anda bisa gunakan sqlyog, localhost, dll. Saya memilih menggunakan ms.eccess karena nanti pada saat proses penyelesaian, aplikasi yang di buat ini akan di jadikan sebuah aplikasi agar seseorang yang memakai aplikasi ini tinggal instal saja. Dan pada proses inilah akan lebih mudah daripada menggunakan sql. Karena ms.access tidak membutuhkan XAMPP.

Langsung saja saya mulai langkah-langkah pembuatan database pada ms.access.

1. Buka ms.access => berinama database yang anda buat dengan akhiran .accdb => creat. Lihat gambar di bawah.

2. Klik kanan pada table1 => design view => berinama tabel yang anda buat => seperti contoh di bawah saya membuat tbl_daftar => ok

3. Isikan seperti gambar di bawah => perhatikan angka yang di lingkari => angka ini adalah batasan jumlah karakter yang anda ketikan pada menu yang anda pilih => jika sudah selesai => double click tbl_daftar => maka akan muncul kotak kecil pemberitahuan seperti gambar di bawah => yes.

4. Inputkan data-datanya seperti gambar di bawah ini.

5. Jika sudah selesai menginputkan data seperti di atas, tutup ms.accessnya.

Pembuatan database pada ms.access sudah selesai. nanti akan di lanjutkan dengan pembuatan module koneksi pada vb.net. Module koneksi di butuhkan untuk mengkoneksikan vb.net dengan database.


Sekian dan semoga bermanfaat. Terimakasih.