Membuat form menu login Visual Basic 6 + MySQL

walaupun VB6 udah jadul, tapi saya tetap semangat untuk posting ini  pemrograman. Oke SEMANGAT.

Postingan kali ini adalah bagaimana cara mengkoneksikan VB6 ke database MySQL ONLINE

Buatlah sebuah project di Visual Basic 6

Klik gambar untuk memperbesar

Saya menggunakan dua form, satu form utama dan satu lagi form login
jadi selain tutorial koneksi database, postingan kali ini juga membahas tentang membuat form Login  / menu 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 anda sekalian

'==========================================================
Public redkoneksi 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
redkoneksi= "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & "SERVER DATABASE" & ";DATABASE=" & "NAMA DATABASE" & ";UID=" & "NAMA USERNAME DATABASE" & ";PWD=" & "PASSWORD DATABASE" & ";PORT=" & "PORT DATABASE" & ";OPTION=3"

If conn.State = adStateOpen Then conn.Close

conn.Open strkoneksi
conn.CursorLocation = adUseClient


'buka tabel database
    rsUser.Open "SELECT nama,Password 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 "Maaf Anda Tidak Terdaftar", vbCritical + vbOKOnly, "Error"
        End If
    End If
End Sub
//======================================================\\
Sekarang Lakukan tekan F5 Lalu Login !!!