Cara membuat login VB.NET dengan database MySql

Cara membuat login VB.NET dengan database MySql

VB.NET usbkiriblog   8:23 PM

Assalamualaikum, ok sekarang saya akan memberikan cara membuat Login di VB.NET menggunakan database MySql, sebelum ke kodingnya kalian harus membuat koneksi terlebih dahulu jika belum membuat koneksi nya buat dulu koneksi database ke MySql disini, ok lanjut saja ke cara yang pertama

• Tambahkan dua variable public dimodule 

1. MYSQLCMD As MySqlCommand
2. MYSQLDR As MySqlDataReader

Imports MySql.Data.MySqlClient 'ini harus ada di atas !

Module SQLControl

    Dim SERVER As String = "Localhost"
    Dim PORT As String = "3306"
    Dim UID As String = "root"
    Dim PASSWORD As String = ""
    Dim DATABASE As String = "db_latihan"

    Dim ConnectionString As String = "SERVER=" & SERVER & ";PORT=" & PORT & ";UID=" & UID & ";PASSWORD=" & PASSWORD & ";DATABASE=" & DATABASE & ""

    Public SqlCon As New MySqlConnection(ConnectionString)
    Public MYSQLCMD As MySqlCommand
    Public MYSQLDR As MySqlDataReader

End Module

• Setelah itu buat sebuah Sub Reader di Module

Sub Reader(query As String)
        Try
            MYSQLCMD = New MySqlCommand(query, SqlCon)
            MYSQLDR = MYSQLCMD.ExecuteReader
            MYSQLDR.Read()
        Catch ex As Exception
            MsgBox("Gagal, Karena " & ex.Message, MsgBoxStyle.Exclamation, "Gagal")
        End Try
End Sub

• Setelah itu buat Function baru di Module untuk mengatasi karakter yg bisa menyebabkan error query MySql, contohnya, ' \ ` "

Function EscapeString(text As String) As String
        Return MySqlHelper.EscapeString(text)
End Function

 
• Setelah di Module beres langsung buat Form untuk login 

• Double Click di tombol OK atau tombol Login untuk memasukan Koding dibawah

        If Trim(UsernameTextBox.Text) = "" Then
            MsgBox("Username Tidak boleh Kosong !", MsgBoxStyle.Information, "Login")
            UsernameTextBox.Select()
        ElseIf Trim(PasswordTextBox.Text) = "" Then
            MsgBox("Password Tidak boleh Kosong !", MsgBoxStyle.Information, "Login")
            PasswordTextBox.Select()
        Else
            Try
                SqlCon.Open()
                Reader("SELECT * FROM t_user WHERE username = '" & EscapeString(UsernameTextBox.Text) & "'")
                If MYSQLDR.HasRows = True Then
                    If MYSQLDR.Item(2) = PasswordTextBox.Text Then
                        ' = = = koding jika login berhasil = = = '
                        '  terserah mau diisi apa oleh kalian !  '
                    Else
                        MsgBox("Password Salaha !", MsgBoxStyle.Exclamation, "Salah !")
                        PasswordTextBox.Select()
                        PasswordTextBox.SelectAll()
                    End If
                Else
                    MsgBox("Username Tidak ditemukan !", MsgBoxStyle.Information, "Login")
                    UsernameTextBox.Select()
                    UsernameTextBox.SelectAll()
                End If
                SqlCon.Close()
            Catch ex As Exception
                MsgBox("Gagal, Karena " & ex.Message, MsgBoxStyle.Exclamation, "Gagal !")
                If SqlCon.State = ConnectionState.Open Then
                    SqlCon.Close()
                End If
            End Try
        End If

• Selesai, Tinggal dicoba

Note : yangg dimaksud item(2) itu adalah posisi Field Password yg ada di Table User berhubung Field password saya ada diposisi ke ketiga, jadi saya masukin 2, kenapa 2 enggk 3 ?, karena itu seperti array yg dimana posisi pertama bukan 1 melainkan nol ( 0 ) seperti gambar dibawah

Selamat mencoba, good luck 😄

Cara Menampilkan data dari database MySql ke DataGridView VB.NET

Cara Menampilkan data dari database MySql ke DataGridView VB.NET

VB.NET usbkiriblog   8:56 PM

Saya kali ini akan memberikan sebuah tutorial untuk VB.NET sesuai judulnya saya sekarang akan memberi sebuah tutorial untuk menampilkan data dari database MySql di VB.NET menggunakan sebuah Modul yang sudah saya buat dari postingan yang lalu, jika belum melihat klik disini untuk melihat Module, baiklah kita mulai saja.

• Tambahkan terlebih dahulu sebuah komponen DataGridView pada ToolBox untuk menampilkan data dari database

• Hingga terlihat kurang lebih seperti ini 

• Setelah memasukan DataGridView ke Form1 lalu kita tambahkan Variabel Public di Modul yang sudah di buat

Public SQLCMD As MySqlCommand
Public SQLDA As MySqlDataAdapter
Public SQLDS As DataSet

• Hingga Menjadi

Imports MySql.Data.MySqlClient

Module SQLControl

    Dim SERVER As String = "127.0.0.1"
    Dim PORT As String = "3306"
    Dim UID As String = "root"
    Dim PASSWORD As String = ""
    Dim DATABASE As String = "db_belajar"

    Dim ConnectionString As String = "SERVER=" & SERVER & ";PORT=" & PORT & ";UID=" & UID & ";PASSWORD=" & PASSWORD & ";DATABASE=" & DATABASE & ""

    Public SqlCon As New MySqlConnection(ConnectionString)

    Public SQLCMD As MySqlCommand
    Public SQLDA As MySqlDataAdapter
    Public SQLDS As DataSet

End Module

• Jangan lupa masukan Imports MySql.Data.MySqlClient di bagian paling atas

Imports MySql.Data.MySqlClient

• Setelah itu Double klik di form1 lalu masukan coding di bawah

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      tampilkan_data() 'ini akan error karena anda belum membuat sub baru
End Sub

• Setelah itu buatlah Sub tampil_data() di bawah End Sub dan masukan codingnya

Sub tampilkan_data()
        Try
            SqlCon.Open()

            SQLCMD = New MySqlCommand("SELECT * FROM t_user", SqlCon)
            SQLDA = New MySqlDataAdapter(SQLCMD)
            SQLDS = New DataSet
            SQLDA.Fill(SQLDS)
            If SQLDS.Tables.Count > 0 Then
                DataGridView1.DataSource = SQLDS.Tables(0)
            End If

            SqlCon.Close()
        Catch ex As Exception
            MsgBox("Gagal : " + ex.Message, MsgBoxStyle.Critical, "Gagal")
            If SqlCon.State = ConnectionState.Open Then
                SqlCon.Close()
            End If
        End Try
End Sub

• Setelah Selesai Kira-kira akan terlihat seperti ini 

Imports MySql.Data.MySqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tampilkan_data()
    End Sub

    Sub tampilkan_data()
        Try
            SqlCon.Open()

            SQLCMD = New MySqlCommand("SELECT * FROM t_user", SqlCon)
            ''yang berwarna Ungu adalah sebuah Query Untuk menampilkan data dari tabel "t_user"
            SQLDA = New MySqlDataAdapter(SQLCMD)
            SQLDS = New DataSet
            SQLDA.Fill(SQLDS)
            If SQLDS.Tables.Count > 0 Then
                DataGridView1.DataSource = SQLDS.Tables(0)
            End If

            SqlCon.Close()
        Catch ex As Exception
            MsgBox("Gagal : " + ex.Message, MsgBoxStyle.Critical, "Gagal")
            If SqlCon.State = ConnectionState.Open Then
                SqlCon.Close()
            End If
        End Try
    End Sub
End Class

• Jika semua sadah Silahkan Run Project yang tadi sampai muncul aplikasinya dan data tampil di DataGridView

Dan datapun sudah ditampilkan di DataGridView, Selamat Mencoba

Good Luck

Cara membuat koneksi database MySql di VB.NET Modul

Cara membuat koneksi database MySql di VB.NET Modul

VB.NET usbkiriblog   8:45 PM

Saya kali ini akan memberikan sebuah tutorial untuk VB.NET sesuai judulnya saya sekarang akan memberi sebuah tutorial untuk membuat koneksi database MySql di VB.NET menggunakan sebuah Modul, langsung saja.

• Tambahkan Sebuah Modul ke project kalian
• Project > Add Module
• Rename Module yang tadi ke SQLControl atau terserah kalian
• Tambahkan konektor MySql 
• Project > Add Reference > Cari "Mysql" > centang yang "MySql.Data" > OK
• Lalu Masukan coding di bawah ke Module yang udah tadi di tambahkan

Imports MySql.Data.MySqlClient 'ini harus ada di atas !

Module SQLControl

    Dim SERVER As String = "Localhost"
    Dim PORT As String = "3306"
    Dim UID As String = "root"
    Dim PASSWORD As String = ""
    Dim DATABASE As String = "db_latihan"

    Dim ConnectionString As String = "SERVER=" & SERVER & ";PORT=" & PORT & ";UID=" & UID & ";PASSWORD=" & PASSWORD & ";DATABASE=" & DATABASE & ""

    Public SqlCon As New MySqlConnection(ConnectionString)

End Module

• Ke Form1
• Tambahkan sebuah button1
• lalu double klick pada button, lalu masukan coding untuk mengetes koneksi dibawah

Try
     SqlCon.Open()
     If SqlCon.State = ConnectionState.Open Then
         MsgBox("Koneksi Berhasil", MsgBoxStyle.Information, "Berhasil !")
         SqlCon.Close()
     End If
     Catch ex As Exception
        MsgBox("Gagal : " + ex.Message, MsgBoxStyle.Critical, "Gagal !")
End Try

Pada coding diatas akan mencoba membuka koneksi database yang sudah diatur pada Module SQLControl yaitu SqlCon, jika koneksi berhasil terbuka maka akan muncul pesan "Koneksi Berhasil", jika gagal akan muncul pesan "Gagal : kode/pesan error".

Note : yang berwarna Merah adalah sebuah Variabel

Sekian dari saya selamat mencoba. 

Cara membuat search (cari data) menggunakan ZTable dan edit di Delphi ( tanpa error menggunakan kutip )

Cara membuat search (cari data) menggunakan ZTable dan edit di Delphi ( tanpa error menggunakan kutip )

Tutorial usbkiriblog   8:29 PM

Kali ini saya akan memberi tahu kalian bagaimana caranya membuat Filter Data dari DBGrid menggunakan ZTable (Zeos Lib) pada delphi, sebelum saya langsung ke kodenya saya akan memberi tahu apa fungsi dari Filter data, fungsinya adalah untuk mempercepat proses pencarian data di database apabila data yang ada pada database sangat banyak, coba kalian bayangkan apabila pada suatu database ada beribu-ribu data dan anda di suruh mencari data tertentu anda akan kesulitan mencarinya xD, ok langsung saja ke pembahasan utama kodenya ada di bawah :

var
  cari : string;
begin
cari := '*'+edit1.Text+'*';
  if edit1.Text <> '' then //Jika edit1.text tidak kosong maka lakukan
    begin
      ztable1.Filtered := false; //ztable dalam kondisi tidak terfilter
      ztable1.Filter := 'nama LIKE '+quotedstr(cari)+' or jabatan LIKE '+quotedstr(cari)+'' ;
      //quotedstr berguna untuk mengatasi inputan menggunakan kutip ( ' )
      //Perhatikan "nama" dan "jabatan" itu adalah nama field, dan proses filter akan di lakukan pada field "nama" atau "jabatan"
      ztable1.Filtered := true; //ztable dalam kondisi terfilter
    end
  else
    begin
      ztable1.Filtered := false; //ztable dalam kondisi tidak terfilter karena edit1.text kosong
    end
end;

letakan kode di atas pada even onchange pada konponen edit atau tinggal klik dua kali komponen editnya.

Selamat Mencoba :D

Cara menemukan Video yang di hidden dimanapun melalui CMD

Cara menemukan Video yang di hidden dimanapun melalui CMD

Tutorial usbkiriblog   9:20 PM

Ok sekarang saya akan memberikan tips untuk kalian tentang bagaimana caranya kita dapat menemukan video yang tersembunyi di harddisk, biasanya dilakukan di saat ada rajia video P*rn* :D di Sekolah, dan cara ini cukup mudah yang pertama buka cmd
 setelah terbuka masukan kode di bawah
Del g:\*.mkv /s /a /p
keterangn untuk /a berfungsi untuk Memilih file untuk menghapus berdasarkan atribut salah satu atributnya adalah Hidden, untuk /s berfungsi untuk Menghapus file tertentu dari semua subdirektori, untuk /p berfungsi untuk Meminta konfirmasi sebelum menghapus setiap file, untuk huruf yang "G" adalah alamat drivenya dan untuk "*.mkv" format setiap file yang berarti akan menghapus file .mkv saja, tapi tenang cara ini tidak akan menghapus satu videopun, asalkan anda mengetik "n"(tidak) setiap meminta konfirmasi, ok langsung saja praktekan langsung!! Disini saya mempunyai satu film yang sudah saya setting menjadi hidde ndan file tersebut akan tidak terlihat


 Nah sekarang buka cmd lalu masukan kode di atas tadi dan pastikan pada setiap permintaan menghapus ketik "n" agar file tidak terhapus.
 Eh langsung ketemu :D

 Mudah bukan :) Selamat mencoba :)  

catatan alamat drive dapat di ubah sesuka kalian (selama alamat drive itu ada) dan file nya juga dapat di ubah ke format file yang lain seperti mp3, exe, jpg, png, msi dll.

Cara mensetting filter MAC addres di modem bolt

Cara mensetting filter MAC addres di modem bolt

Tutorial usbkiriblog   9:05 PM

Kali ini saya akan memberikan cara agar kita dapat mensetting filter MAC addres di modem bolt, caranya cukup mudah yang pertama pastikan anda terhubung dengan wifi atau hotspot modem bolt, kedua buka browser (terserah mau yang mana) lalu masukan 192.168.1.1 pada Addres bar lalu enter, lalu anda akan di bawa ke tampilan awal Bolt lalu masukan password anda setelah itu Login

  

 Setelah Login anda akan di bawa ke Halaman Home atau utama, setelah itu pilih pengaturan.

 

Setelah itu pilih Wifi.

 

Lalu pilih MAC Address. 

   

Setelah itu baca dulu keterangan yang ada, lalu pada Filter MAC Wifi pilih Izinkan lalu masukan MAC addre yang ingin di izinkan

  

 Cara melihat MAC addresnya bisa menggunakan CMD (Command Prompt), buka cmd lalu ketikan "ipconfig/all" tanpa tanda kutip lalu Enter

  

 Setelah itu copy MAC Addressnya lalu masukan pada kolom yang tersedia lalu klik tombol Terapkan, nanti ada konfirmasi klik Ok saja  

 Dan selesai, sekarang cuma laptop kalian yang bisa terhubung ke moden bolt walaupun tanpa password :) Sekian dan selamat mencoba :)

Cara membuat Aplikasi lewat Notepad

Cara membuat Aplikasi lewat Notepad

Tutorial usbkiriblog   10:05 AM

Cara membuat aplikasi menggunakan notepad sangatlah mudah, tapi software ini sangatlah sederhana anda hanya perlu mengingat echo, goto dan if.

Yang perlu disiapkan adalah software notepad atau notpad++, yang perlu kalian ketikan di awal adalah “@echo off” yang berfungsi menghilangkan tulisan selain kata yang ada di depan echo contoh echo hai, maka yang akan di tampilkan hannya hai saja.

Oke kita langsung saja membuat aplikasi sederhana menggunakan notepad, aplikasi yang akan dibuat adalah aplikasi untuk membuat hotspot.

@echo off
title Aplikasi Sederhana untuk membuat Hotspot!!
echo Jangan menggunakan Spasi
echo Jika ingin keluar ketik "exit" tanpa tanda kutip
echo Ketikan nama SSID lalu ENTER...
set /p name=Nama:
if %name%==exit exit
cls
echo Masukan Password Minimal 8 huruf atau angka lalu ENTER...
set /p password=Password:
if %password%==exit exit
cls
echo  Menu ini untuk membuat Hostspot WIFI
echo Masukan kembali Passwordnya Minimal 8 huruf atau angka lalu ENTER...
set /p password=Password:
if %password%==exit exit
cls
netsh wlan set hostednetwork mode=allow ssid=%name% key=%password%
echo Selesai!
pause

Copy kode di atas ke notepad lalu save as dengan format .bat
ada juga Aplikasi yang sudah saya buat Aplikasi sederhana
Selamat Mencoba :)