Membuat Form Login dengan Database Acces Menggunakan Visual Studio 2013

1.  Buka Ms.Acces 2013 untuk membuat database nya yang akan dikoneksikan ke visual studio 2013. Klik Blank Desktop Database

      2.  Kemudian Klik Create database

 
      3.  Klik View

      4.  Lalu ubah nama tabel menjadi login lalu klik ok

       5.  Ketikkan di field name username dan password dan pilih data type short text / long text,
           jika sudah selesai kembali klik View lalu yes

       6.  lalu isi username dan password, jika sudah lalu save

   
       7.  Kemudian buka Visual Studio 2013 dan klik new project

  
        8. Lalu klik windows forms application,klik ok

    
        9.  Kemudian pindahkan file Acces yang bernama database.aacd tadi kedalam folder visual 
            studio yang telah dibuat tadi cth: windowsapplication1/bin/debug lalu simpan disini.

       10.  Jika sudah lalu buat username dan password di visual studio seperti keterangan pada
             gambar

     
     11.  Tambah form baru untuk nantinyan jika di klik login akan masuk ke form yang dikoneksikan

 
      12. Kemudian kembali ke form1, form login tadi lalu tinggal kita masukkan coding
      
       Pertama masukkan dulu coding dibawah ini :

       Imports System.Data.OleDb
       Imports System.Data.Odbc
       Imports System.Data
       Public Class frmlogin
       Dim OLECMD As OleDbCommand
       Dim DA As OleDbDataReader
       Dim OLEDA As OleDbDataAdapter
       Dim CNN As OleDbConnection
       Dim DS As DataSet
       Dim LOKASIDB As String
       Dim x As Integer

      Sub koneksi()
        LOKASIDB = "Provider= Microsoft.ACE.OLEDB.12.0;Data Source=database1.accdb"
        CNN = New OleDbConnection(LOKASIDB)
        If CNN.State <> ConnectionState.Closed Then CNN.Close()
        CNN.Open()
       End Sub

        Lalu masukan coding di button Login seperti dibawah ini :

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        koneksi()
        OLECMD = New OleDbCommand("SELECT *From login WHERE username='" &       
        TextBox1.Text & "' and password='" & TextBox2.Text & "'", CNN)
        DA = OLECMD.ExecuteReader
        DA.Read()
        If DA.HasRows Then
            Form2.Show()
            Me.Hide()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
        Else
            MsgBox("Username & Password Anda Salah", MsgBoxStyle.OkOnly, "Login gagal")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
          End If
       End Sub
    End Class

   Jika menulis coding sudah selesai tinggal kita run / tekan tombol f5 untuk melihat hasilnya.
   Semoga bermanfaat!