Cara Buat Form Login VB6 dengan Database Ms.Access

Cara Buat Form Login VB6 dengan Database Ms.Access
Selamat datang kembali, disini kita akan membuat form login pada VB6 dan menggunakan 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                text              10
                     Password    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














Selamat mencoba, Selamat mencoba dan semoga bermanfaat.
Sumber: belajardasarvisualbasic.blogspot.co.id/