Membuat Form Login dengan VB 6.0 + Acces

Aa       Pemrograman , Tutorial    Comment   

Assalamualaikum saya kali ini akan memberikan tutorial sederhana tentang Visual Basic 6.0

Mari belajar.. :)

Buatlah Folder di dekstop dengan nama "login"
Buatlah Database dengan nama "Login"
Buatlah Table "petugas" dan atributnya sesuai dibawah ini

Tabel petugas



Isi Tabel petugas
Simpan dan Beri nama "Login" kemudian simpan di Folder "login" di dekstop
Buka Vb 6.0 dan buatlah design Form seperti Gambar dibawah ini

Form Login

Untuk Menambakan komponen Adodc klick Project - Commponents - Pilih - Microsoft ADO Data Control 6.0 (OLEDB) - Ok


Adodc
Untuk Source Codenya
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Sub koneksi()
Set conn = New ADODB.Connection
Set RS = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Login.mdb"

End Sub
Sub bersih()
Text1 = ""
Text2 = ""

End Sub

Private Sub Command1_Click()
Call koneksi
If Text1 = "" Or Text2 = "" Then
MsgBox "Data Login Belum Lengkap"
Exit Sub
Else
RS.Open "Select * from petugas where nama ='" & Text1 & "' and password='" & Text2 & "'", conn
If RS.EOF Then
MsgBox "Login Salah!"
Call bersih
Text1.SetFocus
Else
MsgBox "Login Berhasil!"
Call bersih
End If
End If

End Sub

Private Sub Command2_Click()
pesan = MsgBox("Batal Login...?", vbYesNo)
If pesan = vbYes Then End
End Sub
Untuk menjalankan Klick F5

Login




Selamat Mencoba.........