Membuat Form Login Menggunakan VB 6.0

Progra tersebut akan saya bahas di sini siapa tahu ada mahasiswa lain yang mengalami hal yang sama. Langkah yang harus di persiapkan adalah membuat sebuah database menggunakan MS. Access. Berikan nama login.mdb. Kemudian buat sebuah tabel dengan nama login. Isikan field2nya seperti gambar di bawah ini

Field Name Field Type Field Size
USER Text 25
PASS Text 25

Setelah anda membuat tabelnya. Langkah berikut yang harus anda kerjakan adalah merancang form pada VB dengan komponen dan property seperty tabel dibawah ini
Komponen Property
Label Name : Label1Caption : USER
Label Name : Label1Caption : PASSWORD
TextBox Name : Text1Text : (dikosongkan)
TextBox Name : Text2Text : (dikosongkan)
PasswordChar : *
CommandButton Name : Command1Caption : LOGIN
CommandButton Name : Command2Caption : Keluar
Frame Name : Frame1Caption : LOGIN

Kode program yang harus anda ketikkan dapat di lihat pada gambar berikut

Tetapi jgan lupa sebelum menulis kan kodenya anda harus mencentang referece seperti gambar di bawah ini.

Kode program selengkapnya:

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

Private Sub Command1_Click()

If conn.State = 1 Then conn.Close
conn.Open “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “\login.mdb”

If RS.State = 1 Then RS.Close
RS.Open “select * from login where user= ‘” & Text1.Text & _
“‘ And pass = ‘” & Text2.Text & “‘”, conn, 3, 3
If Not RS.EOF Then
MsgBox “BERHASIL”
Else
MsgBox “Data Salah”, vbCritical, “L O G I N”
Text1.Text = “”
Text2.Text = “”
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

contoh download disini