Membuat Form Login VB6 Database MySQL Server

Hai sahabat VB6 semuanya. Pada kesempatan kali ini dalam penulisan artikel kali ini admin akan menguraikan bagaimana caranya membuat sebuah form login dengan Visual Basic 6.0 (VB6) database MySQL Server. Pertama-tama hal yang perlu kita siapkan adalah membuat terlebih dahulu database dan tabel pada MyQL Server. Untuk nama database disini admin beri nama BelajarSQL dan nama tabelnya userlogin. Buka MySQL Command Line Client atau aplikasi yang support MySQL Server dan jalankan script perintah query pembuatan tabel userlogin dibawah ini

CREATE TABLE userlogin (
  NAMAUSER varchar(20) DEFAULT '-',
  PASS varchar(10) DEFAULT '-')

Kemudian coba kita inputkan tabel userlogin dengan NAMAUSER : admin dan PASS : coba menggunakan script perintah query dibawah ini 

INSERT INTO userlogin (NAMAUSER, PASS) VALUES  ('admin','coba')

Database dan tabel pada MySQL Server telah selesai kita buat, lanjut buka Visual Basic 6.0 (VB6) buatlah project – form kemudian tambahkan 2 (dua) buah TextBox dan 2 (dua) buah CommandButton desain dan atur tata letak komponen-komponen diatas seperti layout tampilan dibawah ini

Agar Visual Basic 6.0 (VB6) bisa terkoneksi ke MySQL Server kita perlu mengaktifkan komponen Microsoft ActiveX Data Objects 2.8 Library. Klik menu Project – References cari dan ceklis komponen tersebut pada kotak dialog References.

Tambahkan sebuah module, module ini berfungsi untuk mendeklrasikan variabel-variabel koneksi ke database MySQL Server dan sub koneksi database. Berikut dibawah ini sintaknya

Public CN As New ADODB.Connection

Public xRsPass As New ADODB.Recordset

Sub KoneksiDatabase()

Dim NServer, NUser, NPass, NDatabase As String

NServer = "localhost"

NUser = "root"

NPass = ""

NDatabase = "belajarsql"

On Error GoTo ErrKoneksi

CN.CommandTimeout = 0

If CN.State Then

   CN.Close

   CN.CursorLocation = adUseClient

   CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _

   "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _

   "UID=" & NUser & " ;PWD=" & NPass & ";OPTION=3"

   CN.Open

Else

   CN.CursorLocation = adUseClient

   CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _

   "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _

   "UID=" & NUser & " ;PWD=" & NPass & ";OPTION=3"

   CN.Open

End If

Form1.Show

Exit Sub

ErrKoneksi:

MsgBox "Koneksi database Error.. " & vbCrLf & Err.Description & Err.Number, vbCritical, "Error Koneksi Database"

End

End Sub

Double klik pada form pilih prosedur Form_Load kemudian panggil sub koneksi database

Private Sub Form_Load()

Call KoneksiDatabase

End Sub

Coba RUN/F5 jika tampil pesan error koneksi database coba sekali lagi dicek apakah user, database, server dan password MySQL Server benar atau salah. Double klik pada tombol yang bercaption Login dan copas sintak dibawah ini

Set xRsPass = New ADODB.Recordset

xRsPass.Open "SELECT * FROM userlogin WHERE PASS='" & Text2.Text & "' AND NAMAUSER='" & Text1.Text & "'", CN, 1, 3

If xRsPass.EOF Then

   MsgBox "Password dan User Salah !", vbExclamation, "Informasi"

   Text1.SetFocus

   Text1.Text = ""

   Text2.Text = ""

Else

   MsgBox "Login Sukses !", vbInformation, "Informasi "

End If

Coba RUN/F5 dan inputkan user : admin sedangkan password : coba, klik tombol Login seperti gambar dibawah ini

Semoga pembahasan artikel kali ini dapat bermanfaat dan bagi yang memerlukan source code ini bisa didownload pada LINK INI