Membuat Form Login VB.net dengan Database Access (Koneksi VB.net dengan Database Access)

Langkah-langkah membuat Membuat Form Login VB.net dengan Database Access .

100% work 

pendahauluan

banyak form login tapi rata" tidak bisa setelah saya coba" dan saya menemukan cara mudah serta
penjelasan logic aplikasinya . =)

1. Membuat Form (Menggunakan VB.net / visual basic 2010)
2. Membuat Database (Access 2003/2007)
3. Mengkoneksikan VB.net/ visual basic 2010 ke Access
4. Membuat syntax .

1.Membuat Form (Menggunakan VB.net / visual basic 2010)

1. Buka Visual Basic 2010
2. Save dengan Nama LOGIN
3. Tentukan Lokasi Penyimpanan (contoh D:\)
4. Buat form 2 form (Form Login dan Form Kosong)

NB: Guna dari Form kosong adalah untuk mengetest apabila form login berhasil masuk akan tampil form kosong tersebut .

ini adalah contoh form login buatan saya :D
sebenernya ga musti harus seperti itu .
anda cukup membuatnya sederhana

1 buah groupbox ~> beri nama pada text (Masukan Nama Dan Password)
di dalam groupbox anda beri :

2 buah Label = Nama dan Password
2 buah textbox = textbox1 dan textbox2
2 buah button = Login dan Batal

Nama control	Propertis	Nilai
Groupbox1	Name	Masukan Nama Dan Password
Textbox1	Name	TxtNama
TextBox2	Name	TxtPassword
Label1	Text	Nama
Label2	Text	Password
button1	Name	CmdLogin
	Text	Login
button2	Name	CmdBatal
	Text	Batal

Atur Propertis seperti contoh di atas .
sehingga mengubah form seperti

setelah selesai membuat form di atas . kita akan membuat database :D

GO GO GO !! FIRE IN THE HOLE !!



question : Fariz setiawan
https://twitter.com/fariz_setiawan

2. Membuat Database (Access 2003/2007)

1. buka ms.access
2. pilih penyimpanan di lokasi folder anda membuat program form di dalam folder
   (D:\LOGIN\Bin \Debug)
3. buat table dengan nama TUSER
4. buat 2 Field (Nama [tetx]  dan Password [text] )
5. isi Field Nama sesuka anda
6. isi Field Password sesuka anda
7. save

Tahap membuat database Selesai ;D

Lanjuttttttttttt gan...!! :)


question : Fariz setiawan
https://twitter.com/fariz_setiawan

3. Mengkoneksikan VB.net/ visual basic 2010 ke Access

Sudah saya jelaskan pada blog saya sebelumnya klik untuk anda mempelajari cara melihat link koneksi database

http://farizsetiawan.blogspot.com/2012/12/koneksi-vbnet-dengan-database-access.html

Nb: apabila anda merasa sulit anda bisa mengetik manual . apabila anda menggunakan access 2003 dan database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEST.mdb;Persist Security Info=False

apabila anda menggunakan access 2007 dengan lokasi penyimpanan Database anda berada di (D:\LOGIN\Bin \Debug) Link anda adalah

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\LOGIN\bin\Debug\TEST.accdb;Persist Security Info=False

(di PASTE di Connection syntax lihat contoh syntax di bawah ~>  Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False" )

4. Membuat syntax

untuk tahap ini anda tidak perlu menggunakan Modul atau Class (untuk para pemula)
anda hanya perlu memahami logic nya

dan anda jg bisa membuat Modul / Class setelah memahami Logic dari syntax tersebut

Tulis Syntax berikut :

Imports System.Data.OleDb

Public Class LOGIN

    Dim Con As New OleDbConnection

    Sub clear()

        TxtNama.Text = ""

        TxtPassword.Text = ""

    End Sub

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

'***PASTE LINK KONEKSI DATABASE DI BAWAH ( DI DALAM TANDA " " )***

----------------------------------------------------------------------------------------------------------------------------------------'

        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LOGIN\bin\Debug\TEXT.mdb;Persist Security Info=False"

    End Sub

    Private Sub CmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBatal.Click

        Call clear()

    End Sub

    Public Function ask()

        Dim dt As New DataTable

        Dim ds As New DataSet

        Dim da As New OleDbDataAdapter(" select * from TEXT", Con)

        ds.Tables.Add(dt)

        Con.Open()

        da.Fill(dt)

        For Each datarow In dt.Rows

            If TxtNama.Text = datarow.item(0) And TxtPassword.Text = datarow(1) Then

                Con.Close()

                Return True

            End If

        Next

        Con.Close()

        Return False

    End Function

    Sub Proses()

        If ask() = True Then

            Me.Hide()

----------------------------------------------------------------------------------------------------------------------------------------

            'form2 adalah form kosong yang anda buat guna apabila berhasil login akan tampil form 2'

 ----------------------------------------------------------------------------------------------------------------------------------------        

            Form2.ShowDialog()

        Else

            MessageBox.Show("Username atau password salah. periksa kembali", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Call clear()

        End If

    End Sub

    Private Sub CmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLogin.Click

        TxtNama.Focus()

        Proses()

    End Sub

------------------------------------------------------------------------------------------------------------

    'di bawah ini adalah untuk enter = CmdLogin'

atau

'apabila enter di keyboard = login '

------------------------------------------------------------------------------------------------------------

    Private Sub TxtPassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtPassword.KeyDown

        If e.KeyCode = Keys.Enter Then

            Proses()

            e.SuppressKeyPress = True

        End If

    End Sub

    Private Sub TxtNama_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtNama.KeyDown

        If e.KeyCode = Keys.Enter Then

            Proses()

            e.SuppressKeyPress = True

        End If

    End Sub

End Class

MUdahh Kan ?! (yaiyalah copyPaste) :D

selamat mencoba :)


pertanyaan :

twitter : @fariz_setiawan

email : derasmelintas@gmail.com

goodLuck ;)

created by autodidak Programer