Membuat Form Login konek Ms.acces

Membuat form login connect ms.acces

1.       Buka visual basic 6

2.       Pilih standart exe

3.       Klik Add > form  di menu project properties

4.       Lalu muncul  tampilan menu add form > new > pilih Log in Dialog

Maka akan muncul tampilan form login sederhana

5.       Lalu masukan coding dibawah ini

�membuat variable yang berfungsi mengkoneksikan ADODB

Public connect As New ADODB.Connection    

�membuat variable recordset

Public RSL As New ADODB.Recordset

�membuat sub variable yang berfungsi mencari database (.mdb) dan mengkoneksikannya

Sub koneksilogin()

Set connect = New ADODB.Connection

Set RSL = New ADODB.Recordset

connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\database\Login.mdb"

End Sub

�variable untuk mengkosongkan textbox

Sub bersih()

Text1 = ""

Text2 = ""

End Sub

Private Sub Command2_Click()

�menampilkan pesan pertanyaan jika keluar

pesan = MsgBox("Batal Login...?", vbYesNo)

If pesan = vbYes Then End

End Sub

Private Sub Commandok_Click(Index As Integer)

Call koneksilogin

If Text1 = "" Or Text2 = "" Then

    MsgBox "Data Login Belum Lengkap"

    Exit Sub

Else

    RSL.Open "Select * from login where username ='" & Text1 & "' and password='" & Text2 & "'", connect

    If RSL.EOF Then

        MsgBox "Login Salah!"

        Call bersih

        Text1.SetFocus

    Else

        MsgBox "Login Berhasil!"

        Call bersih

        Loading.Show

        MDIForm1.Show

           

    End If

End If

Unload Me

End Sub

6.       Setelah coding berhasil lakukan desain form login semenarik mungkin

NB: �Setelah pembuatan Form Selesai maka Buatlah database Login.mdb di folder yang bernama database dan save project ini di dekat folder database