Cara Membuat Form Login Sederhana VB 6 dengan MS Access

Assalamualaikum.Wr.Wb

selamat datang sobat kata suhu, ane mau share tutorial membuat form login vb6 dengan sintak yang paling sederhana sebelum ketutorial yang ini harusnya sobat buka dulu tutorial yang lalu : bisa di lihat di artikel ini.

1. Langkah nya buat terlebih dahulu buat tampilan seperti berikut

2. Kita tambahkan adodc yang mana ini berfungsi untuk mengoneksikan antara vb6 dan database ms access nya

3. Klik project lalu pilih component bisa juga menggunakan Ctrl + T

4. Maka muncul tab seperti berikut lalu cari Microsoft ADO data control bisa di simak tanda yang di block warna biru

5. Maka muncul tombol adodc seperti berikut

6. Lalu buat lah adodc seperti di gambar pertama

7. Kemudian kita koneksikan dengan cara klik kanan pada adodc yang sudah di buat

8. Sebelum kita koneksikan vb6 dan database ms access nya kita membutuhkan ms access terlebih dahulu jika belum punya buka terlebih dulu artikel ini

9. Pilih ADODC propertis dan muncul tab seperti ini

10. Klik build dan muncul tampilan berikut dan pilih yang font yang di block biru tersebut

11. Next dan muncul tampilan seperti ini dimana tempat database yang kan di koneksikan

12. Hapus bagian yang tidak di gunakan yang bisa sobat bandingakan dengan gambar ini

13. Kemudian klik text connection maka muncul pesan di bawah ini, itu menandakan bahwa vb6 dan database sudah terkoneksi

14. Kamudian kita kembali ke menu ADODC propertis kembali dengan perbedaan seperti gambar berikut

15. Pilih tombol recordsource muncul gambar seperti berikut

16. Nah untuk command type kita pilih table dan tabel or stored procedure name itu tabel mana yang akan kita koneksikan ke vb6

17. Nah klik apply lalu ok sekian cara koneksikan vb6 dan database ms access

18. Untuk scrit nya menjadi seperti ini

Private Sub cmdlogin_Click()
If Txtusername.Text = "" Or _
Texpassword.Text = "" Then
MsgBox "akun anda belum terisi"
Else
Adodc1.refresh
With adodc1.recordsource
If !username = Txtusername Or _
!password= Txtpassword.Text Then
MsgBox "akun anda benar"
menu.Show
Unload Me
End If
End with
End If
End Sub

19. Lalu masukan sintak button 2

Private Sub cmdlogout_Click()
End
End Sub

Perlu di ingat bahwa sintak hanya di font yang di cetak miring saja

cukup sekian tutorial nya mudah mudahan bermanfaat ya sob, untuk source code nya bisa di download disini dan catatan nya disini.
trima kasih sudah berkunjung, jangan lupa  berkomentar yah sebagai bahan riview ane.

Wassalamualaikum.Wr.Wb