CARA MEMBUAT LOGIN DI VISUAL BASIC

1         1. Siapkan 2 form dimana 1 form untuk login dan 1 form  lagi untuk menampilkan menu utama

2         2. Buatlah database dimana database yang saya buat yaitu dengan rincian sbb :

a.       Nama Database      :  Database1
b.   Nama Tabel            : login

c.       Field : -  username  : admin

-   Password  :  123

3    3.    Desain form sebagai berikut :

4         4. Selanjutnya pembuatan koneksi yaitu sbb :

Global conn As ADODB.Connection

Global rslogin As ADODB.Recordset

Sub koneksi()

    Set conn = New ADODB.Connection

    conn.Provider = "microsoft.jet.oledb.4.0"

    conn.CursorLocation = adUseClient

    conn.Open App.Path & "\Database1.mdb"

   

End Sub

5       5. Selanjutnya Klik 2x pada Command SIG IN dan masukkan script berikut :

Private Sub Command1_Click()

If Text1.Text <> "" And Text2.Text <> "" Then

    Set rslogin = New ADODB.Recordset

   

        rslogin.LockType = adLockOptimistic

        rslogin.CursorType = adOpenDinamic

        rslogin.Open "select* from Login where username = '" & Text1.Text & "' and password ='" & Text2.Text & "'", conn, , , adCmdText

            If Not rslogin.EOF Then

            MsgBox ("Login Anda Berhasil")

            Form2.Show

            Else

                MsgBox "User Name dan password Salah Silahkan Ulangi Kembali", vbCritical

                Exit Sub

            End If

        End If

End Sub

6       6. Kemudian  klik 2x pada form dan masukan script sbb:

  Private Sub Form_Load()

  koneksi

  End Sub

7       7.  Siip kemudian Jalankan program anda.