Koneksi Form Login ke Database access 2007 di Visual Basic 6.0

Berikut cara mengoneksikan form login ke database access :

1. Pertama buatlah database untuk menampung username dan pasword dengan nama login.mdb. Isinya username dan pasword. Tempatkan database tersebut pada satu folder dengan project yang akan kita buat.

2. Buat sebuah projek dengan satu form dan satu modul. Form tersebut kita gunakan sebagai login.

Buat komponen-komponen sebagai berikut :

a. 2 Label  ( Ubah Captionnya menjadi Username dan Password )

b. 2 TextBox  ( Ubah Textnya menjadi kosong )

c. 1 Command Button ( Ubah Captionnya menjadi LOGIN )

3. Tambahkan komponen Microsoft ADO Data Control 6.0 terlebih dahulu dengan Ctrl + T

4. Seting references : Klik menu project --> references --> Microsoft activeX data objects 2.0 library.

5. Setelah itu buatlah modul dengan coding seperti berikut :

Global conn As ADODB.Connection

Global rspasien As ADODB.Recordset

Global rsobat As ADODB.Recordset

Global rsterapi As ADODB.Recordset

Sub koneksi()

Set conn = New ADODB.Connection

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

conn.CursorLocation = adUseClient

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

End Sub

Perhatikan tulisan \login.mdb sesuaikan dengan nama database penampung username dan pasword teman-teman. 

6. Setelah itu, klik dua kali form 1 untuk memanggil modul yang kita buat diatas, masukkan coding seperti berikut : 

Private Sub Form_Load()

koneksi

End Sub

7. Klik dua kali command button LOGIN, masukkan coding seperti 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 ("Anda Berhasil Login !!!")

            Form1.Hide

            Else

                MsgBox "Username dan Password yang Anda Masukkan Salah, Silahkan Coba Lagi !!!", vbCritical

                Exit Sub

      End If

End If

End Sub 

8. Sebelum menjalankan program form loginnya silahkan isi database secara manual terlebih dahulu.

9. Supaya Password yang kita ketikkan bisa tampil dengan tanda bintang, ubahlah property pada text2 ( Password ) pada bagian passwordchar dengan tanda *. 

Sumber : http://www.abdusatri.com/2014/10/membuat-form-login-di-vb-dengan-database.html

Author : Basuki RNC

Share this

Related Posts