Membuat Form Search VB .Net 2010

Apa kabar para programer yang saya muliakan,,,aiiiittzzzzz.....
Puji Syukur alhamdulillah kepada Allah SWT karena berkat rahmat dan hidayahnya sampai saat ini saya diperkenankan untuk membuat posting yang berjudul Membuat Form Search VB .Net 2010.
OK langsung saja langkah - langkahnya sebagai berikut:

• Sebelum anda mengikuti lebih lanjut tutorial ini anda harus membaca dan paham terlebih dahulu dengan postingan saya sebelumnya yang berjudul Insert, Update, Delete Vb Net 2010 Database Access. Atau untuk lebih cepatnya anda Download langsung saja aplikasi Insert, Update, Delete Vb Net 2010 Database Access di SINI.
• Setelah Download buka file project yang bernama Posting4.sln.
• Buka form Barang, dimana tampilan form tersebut seperti berikut:

• Selanjutnya tambahkan 1 Label dan 1 Textbox. Ubah Text Label dengan Cari Barang dan ubah nama Texbox dengan nama txtcari. Berikut gambarnya:

• Buka SourceCode Form tersebut dengan klick tombol View Code pada Windows Solution Explorer yang terletak di pojok kanan atas seperti berikut

• Selanjutnya Copykan Souce Code dibawah ini

Private Sub txtcari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcari.TextChanged

        Dim SqlQuery As String = "SELECT * FROM barang WHERE nama_barang like'%" & txtcari.Text & "%'"

        Dim SqlCommand As New OleDbCommand

        Dim SqlApter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With SqlApter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        dgvbarang.Rows.Clear()

        For i = 0 To TABLE.Rows.Count - 1

            With dgvbarang

                .Rows.Add(TABLE.Rows(i)("id_barang"), TABLE.Rows(i)("nama_barang"), TABLE.Rows(i)("merk"), TABLE.Rows(i)("jenis"), TABLE.Rows(i)("harga"))

            End With

        Next

    End Sub

• Paste Code tersebut diatas Code End Class   yang terletakdi bawah sendiri. Contoh sebagai berikut

• Setelah itu jalan kan program. Coba anda ketikan kolom cari barang dengan nama barang yang anda cari. Misalkah saya ketikan flash, maka tampilan DataGridView akan memfilter dan hanya menampilkan data yang bernama flash

Sekian tutorial Membuat form Seacrh kali ini. Jika masih terdapan kesulitan atau pogram anda masih error terus. Silahkan Download Hasil Jadinya digambar gambar ini.

Jangan lupa kritik dan salannya bila anda masih menemukan kesulitan dan butuh bantuan saya.

Semoga bermanfaat. Terima Kasih........

Kunjungi juga Artikel lainnya :

Membuat Form Login

Menampilkan data ke Listview

Menampilkan data ke DataGridView

Membuat form Insert

Membuat form Insert, Update, Delete

Tutorial Java Lenkap

Insert, Update, Delete Vb Net 2010 Database Access

Insert, Update, Delete Vb Net 2010 Database Access -
Apa kabar para programer sekalian, alhamdulilah atas kesempatan yang diberikan Allah swt yang diberikan kepada saya untuk bisa membuat posting yang berjudul Insert, Update, Delete Vb Net 2010 Database Access. Sebelumnya saya sudah membuat posting yang berjudul Membuat Form Insert VB Net 2010 Database Access.
Untuk membuat form Insert, Update, Delete Vb Net 2010 Database Access ikuti langkah - langkah sebagai berikut.

• Buatlah form dengan nama Barang di VB net seperti berikut.

• Form diatas terdiri dair 5 Label, 5 TextBox, 4 Bottom dan 1 DataGridView. Ubah nama textbox, bottom dan  Datagridviewnya sesuai nomer dan tulisan merah yang ada disamping gambar form diatas.
• Untuk membuat database dan menampilkan database ke dalam DataGridView silahkan baca dulu Menampilkan Database Ke DataGridView VB.net 2010
• Jika sudah berhasil membuat database dan menampilkannya ke dalam DataGridView, selanjutnya ganti semua coding yang ada pada form dengan coding dibawah ini :

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public strsql As String

    Public acsconn As New OleDb.OleDbConnection

    Public acsdr As OleDbDataReader

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            MsgBox("Membuka DataBase")

        Else

            MsgBox("close")

        End If

        Me.RefreshDataView()

        Me.BtnDelete.Enabled = False

        Me.BtnUpdate.Enabled = False

    End Sub

    Sub RefreshDataView()

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        dgvbarang.Rows.Clear()

        For i = 0 To TABLE.Rows.Count - 1

            With dgvbarang

                .Rows.Add(TABLE.Rows(i)("id_barang"), TABLE.Rows(i)("nama_barang"), TABLE.Rows(i)("merk"), TABLE.Rows(i)("jenis"), TABLE.Rows(i)("harga"))

            End With

        Next

    End Sub

    Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInsert.Click

        Try

            Dim SqlQuery As String = "Insert Into barang (id_barang, nama_barang,merk, jenis, harga) Values ('" & Me.txtid_barang.Text & "','" & Me.txtnama.Text & "','" & Me.txtmerk.Text & "','" & Me.txtjenis.Text & "','" & Me.txtharga.Text & "')"

            Dim SqlCommand As New OleDbCommand

            With SqlCommand

                .CommandText = SqlQuery

                .Connection = conn

                .ExecuteNonQuery()

            End With

            MsgBox("Satu Data Barang sudah disimpan ")

            Me.RefreshDataView()

            Me.bersih()

            Me.BtnDelete.Enabled = False

            Me.BtnUpdate.Enabled = False

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

    Sub bersih()

        txtid_barang.Text = ""

        txtnama.Text = ""

        txtmerk.Text = ""

        txtjenis.Text = ""

        txtharga.Text = ""

    End Sub

    Private Sub Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click

        Try

            Dim SqlQuery As String = "UPDATE barang SET nama_barang = '" & txtnama.Text & "', merk = '" & txtmerk.Text & "',jenis = '" & txtjenis.Text & "', harga = '" & txtharga.Text & "' WHERE ID_barang = '" & txtid_barang.Text & "';"

            Dim SqlCommand As New OleDbCommand

            With SqlCommand

                .CommandText = SqlQuery

                .Connection = conn

                .ExecuteNonQuery()

            End With

            MsgBox("Data berhasil di Ubah")

            Me.BtnDelete.Enabled = False

            Me.BtnUpdate.Enabled = False

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub dgvbarang_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvbarang.MouseClick

        Dim dgv As DataGridView = CType(sender, DataGridView)

        Dim colom0 As DataGridViewCell = dgvbarang.SelectedCells(0)

        Dim colom1 As DataGridViewCell = dgvbarang.SelectedCells(1)

        Dim colom2 As DataGridViewCell = dgvbarang.SelectedCells(2)

        Dim colom3 As DataGridViewCell = dgvbarang.SelectedCells(3)

        Dim colom4 As DataGridViewCell = dgvbarang.SelectedCells(3)

        Dim selCell0 As Integer = colom0.ColumnIndex

        Dim selCell1 As Integer = colom1.ColumnIndex

        Dim selCell2 As Integer = colom2.ColumnIndex

        Dim selCell3 As Integer = colom3.ColumnIndex

        Dim selCell4 As Integer = colom3.ColumnIndex

        txtid_barang.Text = dgvbarang.CurrentRow.Cells(selCell0).Value.ToString()

        txtnama.Text = dgvbarang.CurrentRow.Cells(selCell1).Value.ToString()

        txtmerk.Text = dgvbarang.CurrentRow.Cells(selCell2).Value.ToString()

        txtjenis.Text = dgvbarang.CurrentRow.Cells(selCell3).Value.ToString()

        txtharga.Text = dgvbarang.CurrentRow.Cells(selCell4).Value.ToString()

        Me.BtnUpdate.Enabled = True

        Me.BtnDelete.Enabled = True

        Me.BtnInsert.Enabled = False

    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

        Me.bersih()

        Me.BtnDelete.Enabled = False

        Me.BtnUpdate.Enabled = False

        Me.BtnInsert.Enabled = True

    End Sub

    Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click

        Try

            Dim SqlQuery As String = "DELETE FROM barang WHERE ID_barang = '" & txtid_barang.Text & "'"

            Dim SqlCommand As New OleDbCommand

            With SqlCommand

                .CommandText = SqlQuery

                .Connection = conn

                .ExecuteNonQuery()

            End With

            MsgBox(" Satu Data Terhapus... ")

            Me.BtnInsert.Enabled = True

            Me.BtnUpdate.Enabled = False

            Me.BtnDelete.Enabled = False

            Me.RefreshDataView()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

End Class

• Jalankan aplikasinya, jika berhasil tampilan form akan seperti dibawah ini.

Jika tampilan aplikasi anda seperti gambar di atas dan tidak ada error. Saya acungin jempol buat anda.

Tapi buat yang masih Error dari pada bingung nich saya kasih yang udah mateng alias program yang udah jadi. Silahkan download From Insert Update delete Vb net 2010 di SINI. Terima kasih atas kunjungan dan kesempatannya bisa membaca posttingan saya kali ini. Semoga bisa membantu.

Baca juga Postingan sebelumnya :

- Membuat Form Login Vb .net Access

- Menampilkan Database ke ListView

- Menampilkan Database Ke DataGridView VB.net 2010

- Membuat Form Insert VB Net 2010 Database Access

Membuat Form Insert VB Net 2010 Database Access

Apakabar para calon calon programer dunia,,, ciaaah

Sebelumnya saya sudah menjelaskan bagaimana cara menampilkan database ke Datagrideview. Untuk kali ini saya akan menjelaskan bagaimana cara membuat form insert Vb net 2010 ke dalam database Access.

Berikut ini langkah - langkahnya.

• Buatlah Form sebagai berikut dengan nama Barang

• Ganti nama Textbox dan DataGridView seperti yang tertulis dalam gambar diatas
• Buatlah database dengan nama db_barang.mdb. Buat table dengan nama barang dengan rincian atribut sebagai berikut :

• Isi tabel tersebut dengan beberapa data. misal sebagai berikut

• Letakkan database tersebut didalam folder project anda\bin\debug\db_barang.mdb. Direktori tersebut biasa terletak di Documents\Visual Studio 2010\Projects\<Nama Ptoject>\bin\debug\.
• Selanjutnya membuat tabel di dalam DataGridView. Cara pembuatannya sama dengan postingan saya sebelumnya yang berjudul Menampilkan Database Ke DataGridView VB.net 2010. Jadi disini saya tidak akan mengulangnya kembali.
• Next Copykan Codeing berikut didalam Form Vb net 2010 anda:

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public strsql As String

    Public acsconn As New OleDb.OleDbConnection

    Public acsdr As OleDbDataReader

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            MsgBox("Membuka DataBase")

        Else

            MsgBox("close")

        End If

        Me.RefreshDataView()

    End Sub

    Sub RefreshDataView()

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        dgvbarang.Rows.Clear()

        For i = 0 To TABLE.Rows.Count - 1

            With dgvbarang

                .Rows.Add(TABLE.Rows(i)("id_barang"), TABLE.Rows(i)("nama_barang"), TABLE.Rows(i)("merk"), TABLE.Rows(i)("jenis"), TABLE.Rows(i)("harga"))

            End With

        Next

    End Sub

    Private Sub Insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Insert.Click

        Try

            Dim SqlQuery As String = "Insert Into barang (id_barang, nama_barang,merk, jenis, harga) Values ('" & Me.txtid_barang.Text & "','" & Me.txtnama.Text & "','" & Me.txtmerk.Text & "','" & Me.txtjenis.Text & "','" & Me.txtharga.Text & "')"

            Dim SqlCommand As New OleDbCommand

            With SqlCommand

                .CommandText = SqlQuery

                .Connection = conn

                .ExecuteNonQuery()

            End With

            MsgBox("Satu Data Barang sudah disimpan ")

            Me.RefreshDataView()

            Me.bersih()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

    Sub bersih()

        txtid_barang.Text = ""

        txtnama.Text = ""

        txtmerk.Text = ""

        txtjenis.Text = ""

        txtharga.Text = ""

    End Sub

End Class

PENJELASAN :

         Coding untuk mengkoneksikan dengan database

         Coding untuk membuka keneksi ke database

         Perintah untuk mengambil data dari dalam DataBase tabel barang

         Untuk menampilkan data Database ke dalam DataGridView

         Perintah untuk memasukan Data yang tertulis pada textbox dan combobox kedalam database

• Jika sudah memasukan Coding tersebut jalankan aplikasi. berikut tampilan form yang sudah selesai

• Coba masukkan 1 Data seperti Gambar berikut

• Kick Insert, jika berhasil maka data bari akan masuk kedalam dataGridbarang

Demikian Tutorial dari saya, cukup mudah bukan???

Jika ada yang kesulitan dan error trus hehehe,,,tenang saja saya sediakan link download program sudah jadi alisa sudah matang dan siap sandap. Silahkan download di SINI.

Semoga bisa membantu. Jangan lupa baca juga tutorial lainnya :

Menampilkan Database Ke DataGridView VB.net 2010

Menampilkan Database ke ListView

Membuat Form Login Vb .net Access

Menampilkan Database Ke DataGridView VB.net 2010

Obral Blckberry z 10 Murah Banget

Pada Postingan sebelumnya saya sudah menjelakan bagaimana cara untuk menampilkan Database ke dalam ListView. Pada kesempatan kali ini saya akan menjelaskan bagaimana cara menampilkan data dari database kedalam DataGridView menggunakan database Access dan VB.net 2010. OK langsung eksekusi saja gak usah banyak bicara.

• Buat Form di VB net 2010 anda berimana form Barang

Gambar form Barang

• Berikan DataGridView pada ToolBox ke form Barang

Gambar DataGridView pada Toolbox

• Kemudian ganti nama DataGridView dengan DGVDetail
• Buatlah database dengan nama db_barang.mdb. Buat table dengan nama barang dengan rincian atribut sebagai berikut :

Gambar type data colom tabel access

• Isi tabel tersebut dengan beberapa data. misal sebagai berikut

Gambar isi data tabel

• Letakkan database tersebut didalam folder project anda\bin\debug\db_barang.mdb. Direktori tersebut bisa terletak di Documents\Visual Studio 2010\Projects\<Nama Ptoject>\bin\debug\.
• Selanjutnya membuat tabel di dalam DataGridView. Klick gambar pada no 1 kemudian pilih Add Coloumn

Gambar Add coloumn pada DataGridView

• Coloumn 1 

PERHATIAN

Pada Kolom Name : Berikan nama sesuai Colom yang ada pada database

Misal : Pada database Colom pertama bernama id_barang, maka untuk kolom Name isikan id_barang juga.

Pada Kolom Header text : Berikan nama yang akan tampil pada Header Colom

• Klik Add untuk membuat Coloumn nama_barang, merk, jenis dan harga.
• Jika Sudah membuat semua kolom yang dibutuhkan, tampilan Datagridview akan seperti berikut :

Gambar DataGrid yang sudah diberu Coloumn

• Selanjutnya Copykan Source Code Berikut:

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public cmd As New OleDbCommand

    Public strsql As String

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        Else

            MsgBox("close")

        End If

        Me.RefreshDataView()

    End Sub

    Sub RefreshDataView()

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        DGVDetail.Rows.Clear()

        For i = 0 To TABLE.Rows.Count - 1

            With DGVDetail

                .Rows.Add(TABLE.Rows(i)("id_barang"), TABLE.Rows(i)("nama_barang"), TABLE.Rows(i)("merk"), TABLE.Rows(i)("jenis"), TABLE.Rows(i)("harga"))

            End With

        Next

    End Sub

End Class

Penjelasan :

              : Koneksi Database Access db_barang.mdb

              : Membuka koneksi database

              : Memanggil sub RefreshDataView untuk menampilkan data ke DataGridView

              : Perintah SQL untuk mengambil data pada tabel barang

              : Menampilkan data dari database kedalam Datagrid

• Jalankan aplikasi, jika berhasil tampilan akan seperti berikut :

Tampilan Saat berhasil dijalankan

Selesai sudah Tutorial yang saya berikan ini. Mudah bukan,,,,

Bagi yang lagi malas tidak usah kawatir saya sediakan aplikasiyang sudah jadi, silahkan download di SINI.

Sekian tutorial sederhana saya, karena suatu yang istimewa dimulai dari kesederhanaan.
Selain Datagrid baca juga artikel saya Menampilkan Database Ke dalam Listview.

INGAT : Jangan malas untuk Coding.

Menampilkan Database ke ListView

Obral komputer, laptop dan aksesorise Murah Banget

Pada kesempatan hari ini saya akan menjelaskan cara Menampilkan Database ke ListView Visual Studio 2010. Database yang digunakan kali ini adalah MS. Access. Berikut tampilan hasil jadinya :

Cukup mudah cara pembuatannya dan kali ini saya akan menjelaskan Step by step secara lengkap :

• Buatlah project terlebih dahulu, beri mana terserah anda
• Buatlah form yang terdiri dari satu Listview, ganti nama listview tersebut dengan nama ListViewBarang

• Buatlah database dengan nama db_barang.mdb. Buat table dengan nama barang dengan rincian atribut sebagai berikut :

• Letakkan database tersebut didalam folder project anda/bin/debug/db_barang.mdb
• Isi tabel tersebut dengan beberapa data. misal sebagai berikut

• Jiika sudah membuat database, Copykan Code berikut kedalam form yang anda buat tadi :

Imports System.Data.OleDb

Public Class Barang

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_barang.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Public ubah_b As Integer = 0

    Private Sub Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            MsgBox("Database terhubung")

        Else

            MsgBox("close")

        End If

        Me.LoadListView()

    End Sub

    Sub LoadListView()

        ListViewBarang.FullRowSelect = True

        ListViewBarang.MultiSelect = False

        ListViewBarang.View = View.Details

        ListViewBarang.Columns.Clear()

        ListViewBarang.Items.Clear()

        ListViewBarang.Columns.Add("ID", 50, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Nama Barang", 200, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Merk", 50, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Jenis", 100, HorizontalAlignment.Left)

        ListViewBarang.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        Dim SqlQuery As String = " SELECT * FROM barang "

        Dim SqlCommand As New OleDbCommand

        Dim sqlAdapter As New OleDbDataAdapter

        Dim TABLE As New DataTable

        With SqlCommand

            .CommandText = SqlQuery

            .Connection = conn

        End With

        With sqlAdapter

            .SelectCommand = SqlCommand

            .Fill(TABLE)

        End With

        On Error Resume Next

        For i = 0 To TABLE.Rows.Count - 1

            With ListViewBarang

                .Items.Add(TABLE.Rows(i)("id_barang"))

                With .Items(.Items.Count - 1).SubItems

                    .Add(TABLE.Rows(i)("nama_barang"))

                    .Add(TABLE.Rows(i)("merk"))

                    .Add(TABLE.Rows(i)("jenis"))

                    .Add(TABLE.Rows(i)("harga"))

                End With

            End With

        Next

        On Error Resume Next

    End Sub

End Class

•  Dari SourceCode diatas saya akan menjelaskan kegunaan dimana sudah saya bedakan dengan cara mewarnai bagian-bagian SourceCode tersebut

           SouceCode untuk mengkoneksikan DataSource atau Database anda

           Perintah untuk membuta Database

           Perintah untuk membuat Coloum dalam ListView

           Perintah Sql untuk mengambil data didalam tabel barang

           untuk menampilkan data dalam tabel database ke dalam Colom Listview

Setelah selesai semua coba anda jalankan aplikasinya. Jika berhasil tampilan akan seperti berikut

Cukup mudah bukan. Bagi anda-anda yang pemalas, nich saya kasih yang udh jadi.

silahkan Download di SINI. Semoga bisa membantu anda semua.
Baca Juga Cara Menampilkan Database Ke DataGrid.

Thanks. mohon kritik dan sarannya.

Membuat Form Login Vb .net Access

Didalam blog ini saya akan menjelaskan bagaimana membuat form login vb net dengan menggunakan database access. Mudah banget kuk cara membuatnya,,,

Berikut langsung saya beri gambar Form login yang ingin dibuat

Form diatas terdiri dari 2 buat textbox dan 1 button, ganti nama masing - masing textbox dan button seperti pada gambar atau sebagai berikut :

textbox1 = txtusername

textbox2 = txtpassword

button1 = btnlogin

Setelah anda membuat form, berikut membuat database untuk menyimpan usertname dan passwordnya. Database yang saya pakai adalah MS. Access. Simpan database yang anda buat dengan nama db_account.mdb didalam direktori NamaProjectAnda/bin/Debug/db_account.mdb.

Buatlah Tabel dengan nama account. Untuk format tabelnya sebagai berikut :

Jika sudah selesai membuat form dan database selanjutnya copy koding berikut ini keproject anda

Imports System.Data.OleDb

Public Class Login

    Public connstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = |datadirectory|\db_account.mdb; persist security info = false"

    Public conn As New OleDbConnection

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click

        Dim SqlQuary As String = "SELECT * FROM account WHERE username = @field1 and password = @field2"

        Dim SqlCommand As New OleDbCommand

        Dim SqlRdr As OleDbDataReader

        With SqlCommand

            .CommandText = SqlQuary

            .Connection = conn

            .Parameters.AddWithValue("@field1", txtusername.Text)

            .Parameters.AddWithValue("@field2", txtpassword.Text)

            .ExecuteNonQuery()

        End With

        SqlRdr = SqlCommand.ExecuteReader

        If (SqlRdr.Read()) Then

            Call MenuUtama.menubuka()

            Me.Close()

        Else

            MsgBox("Username dan Password SALAH")

        End If

    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conn.ConnectionString = connstring

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            'MsgBox("Welcome")

        Else

            'MsgBox("Close")

        End If

    End Sub

End Class

Cukup mudah bukan. Untuk Coding yang bertanda merah bisa anda ganti dengan mana form tujuan setelah login. Misal setelah proses login berhasil selanjutnya menampilkan form dengan nama MenuUtama, jadi tinggal ganti saja dengan MenuUtama.Show().

Berikut tutorial sederhana saya untuk membuat form login dari database access. Semoga bisa membantu.

Terima Kasih banyak,,,,,