👊Hay..... teman-teman pagi ini aku ingin berbagi pengetahuan yaitu cara membuat form login divb6.0 dengan database...... ok tanpa basa-basi mari kita mulai.
1. mari buka vb6.0 teman-teman...... setelah terbuka, akan terlihat form new project teman-teman pilih yang Standartd Exe pada menu New seperti gambar dibawah ini
2.klik Open setelah itu akan muncul form kosong
3. Disinilah kita bekerja.... ok :) :D
4. Drag 2 textbox dan 2 commanbutton dan 3 label Seperti Gambar dibawah
tambahkan 2 lagi TextBox tepat menimpah kedua TextBox pertama tadi
lalu pada propertis kedua text box yang baru kita tambahkan sesuaikan dengan ketentuan berikut:
1. mari buka vb6.0 teman-teman...... setelah terbuka, akan terlihat form new project teman-teman pilih yang Standartd Exe pada menu New seperti gambar dibawah ini
4. Drag 2 textbox dan 2 commanbutton dan 3 label Seperti Gambar dibawah
5. Lalu kita akan mengkoneksikan ke database
Pada Halaman ToolBox klik kana Pilih Components...
maka akan terlihat form Component
centang Microsoft ADO Data Control 6.0 (OLEDB) lalu Klik Apply --> Ok
Lalu akan terlihat Tool ADODC pada Halaman ToolBox
tarik dan letakkan pada form login teman-teman
Lalu pada ADODC Klik kanan
ADODC Properties
akan muncul Form Property Pages --> Build...
pada menu Provider pilih Microsoft Office 12.0 Access Database Engine OLE DB Provider --> Next disini kita menggunakan database Microsoft Access
lalu ketikan letak database Access yang sudah Kita buat Sebelimnya Di Cara membuat database Login dengan Microsoft Access
setelah itu pilih menu RecordSource pada Command Type -> addCmd Table pada Table or Stored Procedure Name --> Pilih tabel yang mengandung User dan password yang kita maksud
lalu Apply->ok Kita selesai mengkoneksikan databasetambahkan 2 lagi TextBox tepat menimpah kedua TextBox pertama tadi
lalu Double klik tombol Log In
Copykan kode berikut ini
If Text1.Text = Text3.Text And Text2.Text = Text4.Text Then
MsgBox "Login Sukses", vbInformation, "Perhatian"
Else
MsgBox "Login gagal", vbCritical, "Eror"
End If
lalu Double klik tombol Cancel
Copykan kode berikut ini
Private Sub Command2_Click()
Unload Me
End Sub
Setelah itu kita kembali ke design nya pada text 3 klik kanan pilih Send To Back begitu juga text4 nya supaya tidah telihat
Pada Propertis text2 Beri tanda "*" pada PasswordChar
lalu jalankan dan lihat hasilnya
dan anda login dengan username dan password yang terdapat pada microsoft acces teman-teman
Demikian untuk pagi ini semoga bermanfaat Terima Kasih