Membuat Login dengan database Access

Sebenarnya sie awalnya aku bingung juga tentang cara membuat form login dengan database. tapi setelah mencoba-coba sampai kepala di kaki dan kaki di kepala, akhirnya bisa juga. ada banyak cara untuk membuat login dengan menggunakan database, baik dengan database access, MySQL, atau yang lainnya. tapi disini aku hanya membuat form login menggunakan database Microsoft Access.

Caranya bagaimana? caranya kamu buka aja www.google.com, terus cari disana caranya, ckikiki...
haha, nggak denk.. caranya kamu tinggal mengikuti langkah-langkah di bawah ini :

Siapkan 2 buah Label, 2 buah TextBox, 2 CommandButton, dan 1 komponen Adodc. buatlah komponen-komponen tersebut menjadi seperti gambar berikut ini :


kalau udah, buat databasenya untuk menyimpan username dan password pake Microsoft Access. atur field-fieldnya seperti gambar berikut, kemudian simpan.


kalau udah, klik kanan komponen Adodc yang ada di visual basic tadi, kemudian klik ADODC Properties.


maka akan muncul :


Pilih Build, kemudian pada tab Provider, pilih Microsoft Jet 4.0 OLE DB Provider, klick Next.


kemudian muncul :


Pada Select or enter a database name di tab Connection, cari dan masukan database yang telah kita buat tadi tersimpan. klick Test Connection, kemudian OK.


Setelah itu pilih tab RecordSource pada Property Pages, kemudian pada Command Type pilih 2 - adCmdTable dan pada Table or Stored Procedure Name Pilih nama table yang udah kamu buat tadi. kalau udah, klik OK.

Setelah itu pilih Text1, atur DataSourcenya menjadi Adodc1, seperti gambar ini :

kalau udah beres semua, silahkan tidur, halah...
kalau udah, kamu tinggal masukin aja sourcecode di bawah ini :

SourceCode :

Private Sub Command1_Click()
Adodc1.Refresh
With Adodc1.Recordset

If .RecordCount > 0 Then
If !UserName = Text1 And !Password = Text2 Then 'ngambil user dan pass
MsgBox "Login sukses mbul!!" 'menampilkan informasi
form2.Show 'ke form menu
Unload Me 'tutup form login
Else
MsgBox "goblok!! passwordmu salah mbul, ckikiki.. :p", vbOKOnly + vbCritical, "Ngawur wae koe ki"
Text1.Text = "" 'clear
Text2.Text = ""
Text1.SetFocus 'set fokus
End If
End If
End With
End Sub

Private Sub Command2_Click()
End
End Sub

kalau udah, jalankan aja programnya dengan klik icon start atau F5

kalau pengen di tambah hak akses, kamu tinggal modif di sourcecode aja, tapi jangan lupa juga tambah komponennya di form designer.
Silahkan berkreasi sendiri....

Related Posts by Categories