Cara Buat Form Login VB6 dengan Database Ms.Access

Pada postingan kali ini saya akan sedikit share mengenai cara membuat form login menggunakan VB6 dengan database Ms.Access. untuk langkah-langkahnya sebagai berikut:

- Buka Ms.Access kemudian buat database dengan nama data dengan format mdb.

- kemudian buat tabel dengan nama login, dengan rincian:

Field	Data Type	Field Size
id_pengguna	Short Text	10
password	Short Text	10

- Isi field Id_pengguna dengan admin dan password 123

- simpan databasenya, kemudian buka VB6 dan pilih standar exe.

- Buat sebuah form seperti gambar dibawah ini, dan tambahkan komponen:

- 2 textbox (kosongkan text, beri nama login dan password, pada text password - passwordchar isi dengan tanda bintang *  )

- 2 Label (caption: ID Pengguna , Password)

- 2 Command Button ( Sign In da Batal)

-  Tambahkan sebuah MDI form dan berinama FormMaster.

- Pada menu Project pilih References kemudian centang Microsoft ActiveX Data Objects 2.0 Library.

- Masukan Kode Berikut :

Public conn As ADODB.Connection
Public rs As New ADODB.Recordset
Public strsql As String

Private Sub btbatal_Click()
End
End Sub

Private Sub btlogin_Click()
Set conn = New ADODB.Connection
If conn.State = 1 Then
    conn.Close
End If
If rs.State = 1 Then
    rs.Close
End If

conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & "Persist Security Info=False;Data source=" & App.Path & "\data.mdb"
conn.Open
conn.CursorLocation = adUseClient
strsql = "select* from login"
rs.Open strsql, conn, adopendinamyc, adLockOptimistic, adCmdText

If (id_pengguna.Text = "") Or (password.Text = "") Then
MsgBox "Silahkan masukan ID Pengguna dan Password dengan benar !", vbInformation + vbOKOnly, "Isi ID Pengguna dan Password !"
Else
    x = "id_pengguna='" & id_pengguna.Text & "'"
    rs.Find x
    If rs.EOF Then
        MsgBox "ID Pengguna tidak ditemukan.." & vbCrLf & "Login Gagal..", vbCritical, "Login Gagal"
        rs.MoveFirst
    Else
        If id_pengguna.Text = rs("id_pengguna") And password.Text = rs("password") Then
            rs.Close
            conn.Close
            FormMaster.Show
            Unload Me
        Else
            MsgBox "Password salah !" & vbCrLf & "Silahkan coba lagi dengan benar dan periksa CapsLock karena berpengaruh !", vbCritical + vbOKOnly, "Login Gagal"
            rs.MoveFirst
        End If
    End If
End If
End Sub

Private Sub Form_Activate()
Me.id_pengguna.SetFocus
End Sub

- Simpan dalam satu folder bersama database access yang tadi. Jalankan programnya. Bagi yang mau download Source Codenya silahkan download [Disini].

Selamat mencoba dan semoga bermanfaat.