Cara Mengkoneksikan dan Membuat Form Login VB.Net dengan MySQL XAMPP (PHPMYADMIN) di 7 64 Bit
Assalamualaikum Wr. Wb Mas / Mbak
Kali ini saya akan memposting "Bagaimana Cara Untuk Mengkoneksikan VB.Net Dengan MySQL XAMPP (PHPMYADMIN) ?"
Pertanyaan-pertanyaan :
1. Bang Apa sih VB itu?
Jawab : " VB itu kepanjangannya Visual Basic, yang merupakan sebuah bahasa pemrogaman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrogaman (COM)." (Dikutip : https://id.wikipedia.org/wiki/Visual_Basic ).
2. Bang klo vb.net itu apa ?
Jawab : "Sebuah aplikasi untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa Basic."(Dikutip : https://id.wikipedia.org/wiki/Visual_Basic_.NET ).
oke sudah paham kah atau masih bingung ???
mari lanjutkan bang "Bagaimana Cara Untuk Mengkoneksikan VB.Net Dengan MySQL XAMPP (PHPMYADMIN) ?"
Jawab : "
Langkah-langkah untuk mengkoneksikan VB.Net dengan MySQL XAMPP (PhpMyAdmin) sebagai berikut :
1. Kita Download dan install dulu Aplikasi yang di perlukan untuk memulainya :
3. Langkah selanjutnya mari kita buat source kode untuk koneksi databasenya.
Kali ini saya akan memposting "Bagaimana Cara Untuk Mengkoneksikan VB.Net Dengan MySQL XAMPP (PHPMYADMIN) ?"
Pertanyaan-pertanyaan :
1. Bang Apa sih VB itu?
Jawab : " VB itu kepanjangannya Visual Basic, yang merupakan sebuah bahasa pemrogaman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrogaman (COM)." (Dikutip : https://id.wikipedia.org/wiki/Visual_Basic ).
2. Bang klo vb.net itu apa ?
Jawab : "Sebuah aplikasi untuk mengembangkan dan membangun aplikasi yang bergerak di atas sistem .NET Framework, dengan menggunakan bahasa Basic."(Dikutip : https://id.wikipedia.org/wiki/Visual_Basic_.NET ).
oke sudah paham kah atau masih bingung ???
mari lanjutkan bang "Bagaimana Cara Untuk Mengkoneksikan VB.Net Dengan MySQL XAMPP (PHPMYADMIN) ?"
Jawab : "
Langkah-langkah untuk mengkoneksikan VB.Net dengan MySQL XAMPP (PhpMyAdmin) sebagai berikut :
1. Kita Download dan install dulu Aplikasi yang di perlukan untuk memulainya :
- XAMPP (https://www.apachefriends.org/index.html ) Download Dan Install
- Microsoft Visual Studio 2010 ( Bisa Di Cari Sendiri Aplikasinya)
- MySQL Connector / Net 6.9.8 (https://downloads.mysql.com/archives/c-net/ ).
- MySQL ODBC 5.3.6 (X86, 64 Bit) .MSI Instller (https://downloads.mysql.com/archives/c-odbc/).
2. setelah di install semua aplikasinya mari kita jalankan
- Pertama kita buka dulu control panel XAMPP lalu kita start koneksi APACHE dan MYSQL
- selanjutnya buka perambaan WEB (Chrome, Mozila Firefox) untuk membuka halaman PhpMyAdmin dengan mengetikkan Pada kolom alamat perambaan WEB "localhost/phpmyadmin"
- Buatlah sebuah Database Untuk menyimpan data yang nanti akan di buat,
Langkah Pertama
Langkah Kedua
Langkah Ketiga
- Lalu Isi login_siswa dengan cara
- Klik Insert >> lalu masukkan data pada kolom Value
3. Lalu Kita Koneksikan VB.Net dengan MySQL XAMPP (PhpMyAdmin)
- Buka Dulu Aplikasi Visual Basic yang tadi sudah kita Install
- Buatlah sebuah "Project Baru >> lalu pilih Visual Basic >> Windows Forms Application >> Berilah Nama "Login" >> OK
New Project
Visual Basic >> Windows Forms Application
- Di dalam Tab Control "Solution Explorer" ada nama dari project kita.
- Pilih lah project Login.vbproj >> Klik Kanan >> lalu pilih Properties
Project Login
- Lalu Muncul sebuah Jendela Baru
- Pilih References >> Klik ADD >> akan Muncul Jendela pop up >> Pilih Tab .NET >> lalu Cari Mysql.Data (Version : 6.9.8.0, Runtime : v4.0) >> OK
- Sampai Sini kita sudah dapat awal untuk mengkoneksikan vb.net dengan Mysql XAMPP (PhpMyAdmin)
- Kembali Ke Tab Control "Solution Explorer" ada nama dari project kita.
- Pilih lah project Login.vbproj >> Klik Kanan >> lalu pilih add >> lalu Pilih Module
Module
- Akan muncul Jendela baru >> Berilah nama "Module1.vb"
- Lalu di dalam Module.vb tulis lah program sebagai berikut :
Imports MySql.Data.MySqlClient
Module Module1
'perintah yang akan di masukkan kedalan code form pemanggilan koneksi database
Public conn As MySqlConnection
Public cmd As MySqlCommand
Public rd As MySqlDataReader
Public da As MySqlDataAdapter
Public ds As DataSet
Public str As String
Public re As DataTableReader
Public cari As DataTable
'Koneksi VB.net Dengan Database Mysql
Sub Koneksi()
conn = New MySqlConnection
conn.ConnectionString = "server=localhost;user id=root;persistsecurityinfo=True;database=Login;port=3306;password="
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Catch ex As Exception
MsgBox("Koneksi Gagal" & Err.Description)
End Try
End Sub
End Module
Module1.vb
4. Lalu kita kembali lagi ke "Form1.vb(design)" untuk mendesain tampilan form login kita.
- Kita menggunakan Toolbox : GroupBox, Label, ComboBox, TextBox, dan Button.
Drag Drop pada toolbox yang tersedia di bagian kiri jendela aplikasi ke Form1.vb
Tampilan Form1.vb
- Berikan Penamaan untuk tampilan Label dan Button, Caranya :
- Klik satu bagian label yang sudah kita drag drop >> lalu masuk pada Properties di kanan bawah pada jendela aplikasi >> cari tulisan : Text >> editlah label1 sesuai dengan yang kita inginkan. lanjutkan untuk penamaan tampilan untuk yang button juga.
- lalu klik di bagian ComboBox >> Masuk lagi ke Properties >> Cari tulisan Name >> Editlah combobox1 menjadi cbhak
- ulangi proses yang sama seperti cara combobox untuk Textbox dan Button.
- textbox1 : txtusername, textbox2 : txtpassword, button1 : btnlogin, button2 : btnrefresh, button3 : btn keluar.
- Tambahkan Item pada Combobox caranya :
- Klik Combobox pada Form1.vb >> pilih Properties >> Lalu Pilih Item>>lalu pilih gambar kotak kecil dengan titik tiga di dalamnya>> masukkan data Administrator dan Siswa
- Nb : Administrator dan Siswa
5. Lalu buatlah dua form baru untuk pilihan Hak Akses Login
- Kembali Ke Tab Control "Solution Explorer" ada nama dari project kita.
- Pilih lah project Login.vbproj >> Klik Kanan >> lalu pilih add >> lalu Pilih Windows Form
Windows Form
- Berilah nama form tersebut Siswa.vb dan Admin.vb .
- Pada form Siswa.vb berilah label dengan Saya SISWA
- Pada form Admin.vb berilah label dengan Saya ADMINISTRATOR
form Siswa.vb
form Admin.vb
6. Lalu kembali ke Form1.vb >> Klik 2x desain Form1 agar kita dapat menuliskan source code untuk desain Form1.vb kita. Lalu masukkan Source Code sebagai berikut :
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
txtusername.MaxLength = 8
txtpassword.PasswordChar = "*"
txtusername.Clear()
txtpassword.Clear()
End Sub
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If cbhak.SelectedItem = "Administrator" Then
If txtusername.Text = "" Or txtpassword.Text = "" Then
MsgBox("Data Belum Lengkap, Pastikan Semua Field Di Isi")
Exit Sub
Else
If txtusername.Text = "" Then txtusername.Focus() : Exit Sub
If txtpassword.Text = "" Then txtpassword.Focus() : Exit Sub
'perintah untuk mencari nama tertentu
cmd = New MySqlCommand
cmd.Connection = conn
str = " SELECT username,password FROM login_siswa WHERE username= '" & txtusername.Text & "' AND password = '" & txtpassword.Text & "'"
cmd.CommandText = str
rd = cmd.ExecuteReader
If rd.HasRows Then
MessageBox.Show("Selamat Anda Berhasil Login", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
admin.Show()
Me.Hide()
Else
'agar dapat mengulang ketika salah memasukkan username dan password
cmd.Dispose()
rd.Dispose()
MessageBox.Show("Login Gagal, Username dan Password Tidak Sesuai", "Login Gagal", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
'hapus semua field
txtpassword.Text = ""
txtusername.Text = ""
'Focus di username
txtusername.Focus()
End If
End If
ElseIf cbhak.SelectedItem = "Siswa" Then
If txtusername.Text = "" Or txtpassword.Text = "" Then
MsgBox("Data Belum Lengkap, Pastikan Semua Field Di Isi")
Exit Sub
Else
If txtusername.Text = "" Then txtusername.Focus() : Exit Sub
If txtpassword.Text = "" Then txtpassword.Focus() : Exit Sub
cmd = New MySqlCommand
cmd.Connection = conn
str = " SELECT username,password FROM login_siswa WHERE username= '" & txtusername.Text & "' AND password = '" & txtpassword.Text & "'"
cmd.CommandText = str
rd = cmd.ExecuteReader
If rd.HasRows Then
MessageBox.Show("Selamat Anda Berhasil Login", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
siswa.Show()
Me.Hide()
Else
'agar dapat mengulang ketika salah memasukkan username dan password
cmd.Dispose()
rd.Dispose()
MessageBox.Show("Login Gagal, Username dan Password Tidak Sesuai", "Login Gagal", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
'hapus semua field
txtpassword.Text = ""
txtusername.Text = ""
'Focus di username
txtusername.Focus()
End If
End If
End If
End Sub
Private Sub btnrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefresh.Click
cbhak.SelectedIndex = -1
txtusername.Text = ""
txtpassword.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
End Class
7. Lalu kita coba Run aplikasi yang telah kita buat tadi..
RUNNING SUCCESS......
-------------------------------------------------------------------------------------------------------------------------
RUNNING SUCCESS
--------------------------------------------------------------------------------------------------------------------------
dan ini file yang telah kita buat di atas <Download Disini>
Gimana Udah Mengerti Belum...
Hehehe
Nantikan Kelanjutannya ya... nanti di tambah lagi ada edit hapus dan simpan....
Terima Kasih Sudah Mampir ya :)
Edit, hapus , simpan nya gimana kak script nya
BalasHapusgood job gan
BalasHapussolder temperatur