Membuat Koneksi dan coding VB6 ke MySQL dan Menu Login dengan Validasi

Postingan kali ini adalah bagaimana cara mengkoneksikan VB6 ke database MySQL, dalam tutorial ini juga ada langkah-langkah dalam pembuatan menu login sehingga hasil dari koneksi nanti dapat langsung kita tes di menu login.

Pertama-tama buatlah database di MySQL, sebagai contoh saya membuat database "Mukhlas" dengan tabel "user" menggunakan phpMyAdmin

Klik gambar untuk memperbesar

Berikut ini pengaturan field pada tabel user :

Nama Field	Type	Value	Extra	Primary Key
ID_User	Integer	3	auto_increment	yes
Nama	Varchar	30
Password	Varchar	30
Level	Varchar	20

Untuk mencobanya nanti, isikan beberapa data di dalam database, Misal :

Nama Field	Data / Nilai
ID_User	1
Nama	Admin
Password	Admin
Level	Admin

Klik gambar untuk memperbesar

Kemudian buatlah sebuah project di VB6

Klik gambar untuk memperbesar

Saya menggunakan dua form, satu form utama dan satu lagi form login

untuk form login saya gunakan 1 form, 2 label, 2 textbox, 2 command button
untuk form utama terserah anda saja

Form login :

• frmLogin
• txtNama
• txtPassword
• cmdOK
• cmdExit

 Form Utama

• frmUtama

Kemudian buatlah module pada project VB6 Anda.

Klik gambar untuk memperbesar

kemudian ketikkan coding berikut di module Anda

'==========================================================
Public strkoneksi As String

Public conn As New ADODB.Connection

Public rsUser As New ADODB.Recordset

 Public Function Koneksi() As Boolean

'settingan koneksi

On Error GoTo er

'koneksi string ke mysql konektor

strkoneksi = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & "localhost" & ";DATABASE=" & "Mukhlas" & ";UID=" & "root" & ";PWD=" & "admin" & ";PORT=" & "3306" & ";OPTION=3"

If conn.State = adStateOpen Then conn.Close

conn.Open strkoneksi

conn.CursorLocation = adUseClient

 'buka tabel database

    rsUser.Open "SELECT ID-User,Nama,Password,Level FROM user", strkoneksi, adOpenKeyset, adLockOptimistic

If conn.State = adStateOpen Then

    Koneksi = True

    Exit Function

Else

    Koneksi = False

    Exit Function

End If

Exit Function

er:

Koneksi = False

' MsgBox "Gagal Loading Database", vbInformation, "Database Error"

End Function

'==========================================================

Klik gambar untuk memperbesar

Sekarang cobalah tekan F5 pada VB6 anda, dan jika terjadi error seperti gambar dibawah ini

Klik gambar untuk memperbesar

Hal ini terjadi karena VB6 tidak mengenai type ADODB.Connection
Untuk itu kita harus menambahkan preferences library pada VB6 agar dapat mengenali type tersebut.
Untuk menambah library klik  Project -> Preferences

Klik gambar untuk memperbesar

Kemudian cari dan centang Microsoft ActiveX Data Objects 2.6 Library

Klik gambar untuk memperbesar

Kemudian klik OK
Sekarang coba tekan lagi F5 dan pastikan tidak ada error, jika sudah tidak ada error kita lanjut ke tahap selanjutnya, Close dulu hasil F5 program.

kemudian ketikkan baris kode berikut ke form login

'==========================================================
Private Sub cmdExit_Click()

    End

End Sub

Private Sub cmdOK_Click()

Call Koneksi

    If txtNama.Text = "" Then

        MsgBox "NAMA USER MASIH KOSONG !", vbCritical + vbOKOnly, "Error"

        txtNama.SetFocus

    ElseIf txtPassword.Text = "" Then

        MsgBox "PASSWORD MASIH KOSONG !", vbCritical + vbOKOnly, "Error"

        txtPassword.SetFocus

    Else

        SQL = ""

        SQL = "SELECT * FROM user " _

            & "WHERE Nama='" & txtNama.Text & "' " _

            & " AND Password='" & txtPassword.Text & "'"

            Set rsPeriksa = conn.Execute(SQL)

                  

        If Not rsPeriksa.BOF Then

            Unload Me

            frmUtama.Show

        Else

                MsgBox "ANDA BUKAN USER YANG BERHAK!", vbCritical + vbOKOnly, "Error"

        End If

    End If

End Sub

Private Sub Form_Load()

End Sub

'==========================================================

Sekarang coba tekan F5 lagi dan coba lakukan login menggunakan Nama “Admin” dan password “Admin”.

Untuk memudahkan Anda, Ane sediakan file yang sudah jadi sesuai tutorial diatas.

Silahkan klik DISINI

Databasenya download DISINI

Selamat Mencoba.