Source Code Membuat Form Login VB 6.0 dengan Memilih Database

Source Code Membuat Form Login VB 6.0 dengan Memilih Database

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Source Code Membuat Form Login VB 6.0 dengan Memilih Database.

Pada pembelajaran VB 6.0 kali ini kami akan membahas Cara Login Program atau Aplikasi VB 6.0 Dengan Memilih Database Terlebih Dahulu. Fungsi pembelajaran ini dapat anda implementasikan untuk anda yang bertanya menggunakan Aplikasi namun database ada di Server Komputer.


Membuat Form Login VB 6.0 dengan Memilih Database

Berikut langkah-langkahnya :
1. Pastikan anda teleh mempunyai database terlebih dahulu
2. Membuat Form dengan VB 6.0 dan membuat kodingnya

#1
Buatlah sebuah Database dengan nama DBAplikasi.mdb (nama terserah namun harus .mdb)
Kemudian pada database .mdb tersebut buatlah Tabel : ADMIN
 Membuat Form dengan VB 6.0, Login VB 6.0 Dengan Memilih Database
Kemudian masukan Data pada Tabel ADMIN Tersebut :

#2
Buatlah 2 Buah Form ( FormMenuUtama dan FormLogin)
Pada Form Login design form seperti gambar dibawah ini :
 Membuat Form dengan VB 6.0, Login VB 6.0 Dengan Memilih Database

Kemudian masukan koding dibawah :
Dim conn As New ADODB.Connection
Private Sub Command3_Click()
With CommonDialog1
    .ShowOpen
    LokasiDB = .FileName
End With
End Sub
Sub OpenDB()
    Set conn = New ADODB.Connection
    Set RSAdmin = New ADODB.Recordset
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & LokasiDB & "' "
End Sub
 Private Sub Command1_Click()
    Dim KodeAdmin As String
    Dim NamaAdmin As String
    If LokasiDB = "" Or Text1 = "" Or Text2 = "" Then
    MsgBox "Silahkan Pilih Database Access dan masukan Kode Admin dan Password"
    Else
    Call OpenDB
    RSAdmin.Open "Select * from Admin where kodeAdmin ='" & Text1 & "' and passwordAdmin='" & Text2 & "'", conn
        If RSAdmin.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text3.SetFocus
        Else
            Unload Me
            FormMenuUtama.Show
    End If
    End If
End Sub
Private Sub Form_Load()
Text2.PasswordChar = "X"
End Sub
Private Sub Command2_Click()
End
End Sub

Jalankan Program anda :
- Browse dan Pilih Database yang anda buat diatas
- Masukan Kode Admin : ADM001 dan Password : admin
- Kemudian Klik Login
Cukup mudah bukan ?
Tag : Membuat Form dengan VB 6.0, Login VB 6.0 Dengan Memilih Database
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Source Code Membuat Form Login VB 6.0 dengan Memilih Database"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel