Memulai Project dengan MySql + Visual basic.net (vb.net) #catatan

 Untuk memulai project Visual Basic .net dengan database Mysql, pastikan kalian teah menginstal software - software pendukungnya, diantaranya :

1. Visual basic.net
2. Xampp atau sejenisnya
3. Mysql_conector : sebagai konektornya, jika belum ada, bisa download DISINI

 Langkah - langkah memulai projectnya adalah berikut yang arus dipersiapkan :
 1. Database
     Setelah kamu install yang namanya Xampp atau semacamnya, lalu buatlah databasenya
2. Tabel
kemudian setelah membuat database, buatlah tabelnya, kemudian buat field atau kolom-kolomnya. misal saya membuat tabel siswa, kemudian saya buat fieldnya yaitu nis, nama, alamat, tanggallahir. kemudian tentuan type datanya.


Setelah langkah-langkah diatas maka di lanjutkan di bawah ini.
1.DSN
untuk langkah setting DNS bisa klik disini  :
 Pastikan anda telah meembuat koneksinya, kalau tidak saat program dijalankan akan kerjadi massage untuk mengecek koneksi ke databasenya.

2. Koneksi
koneksi ini adalah langkah ke dua setelah anda membuat DNS, dan kalau anda belum membuat koneksi nya, otomatis gak bisa load data donk y, heheheheee.
 di bawah ini contoh Koneksi yang saya buat di salah satu project VB.net dengan database MySql, nama filenya "ModuleKon.vb"

Imports System.Data
Imports System.Data.Odbc
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports MySql.Data.MySqlClient
Module ModuleKon
    Public konek As New OdbcConnection
    Public DA As OdbcDataAdapter
    Public DS As DataSet
    Public DR As OdbcDataReader
    Public CMD As OdbcCommand
    Sub bukaDB()
        Try
            konek = New OdbcConnection("DSN=localhost;MultipleActiveResultSets=true")
            If konek.State = ConnectionState.Closed Then
                konek.Open()
            End If
        Catch ex As Exception
            MsgBox("Koneksi ke Database Bermasalah, Silahkan periksa koneksi anda")
        End Try
    End Sub

    Sub clear_login()
        LoginForm.txtuser.Text = ""
        LoginForm.txtpass.Text = ""
        LoginForm.txtuser.Focus()
    End Sub

End Module

#Perhatikan nama dari DNS nya
pada source code koneksi diatas,DSNnya saya tulis localhost. jadi nanti saat mengisi jendela DSN configuration saya isi textbox DSN dengan ---> localhost.

Selanjutnya di bawah ini contoh

Imports System.Data
Imports System.Data.Sql
Imports MySql.Data.MySqlClient

Public Class ClassConn
    Protected login = New DataTable
    Protected SQL As String
    Protected CN As MySqlConnection
    Protected CMD As MySqlCommand
    Protected DA As MySqlDataAdapter
    Protected DS As DataSet
    Protected DT As DataTable

    Public Function OpenConn() As Boolean
        CN = New MySqlConnection("Server=localhost;User Id=root;password=;Database=bbg")

        CN.Open()
        If CN.State <> ConnectionState.Open Then
            Return False
        Else
            Return True
        End If

    End Function
    Public Sub CloseConn()
        If Not IsNothing(CN) Then
            CN.Close()
            CN = Nothing

        End If
    End Sub
    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not OpenConn() Then
            MsgBox("Koneksi gagal...!!!", MsgBoxStyle.Critical, "Acces Failed")
            Return Nothing
            Exit Function

        End If
        CMD = New MySqlCommand(Query, CN)
        DA = New MySqlDataAdapter
        DA.SelectCommand = CMD
        DS = New DataSet
        DA.Fill(DS)
        DT = DS.Tables(0)
        Return DT
        DT = Nothing
        DS = Nothing
        DA = Nothing
        CMD = Nothing
        CloseConn()

    End Function
    Public Sub ExecuteNonQuery(ByVal Query As String)
        If Not OpenConn() Then
            MsgBox("Koneksi gagal..!!!", MsgBoxStyle.Critical, "Acces Failed")
            Exit Sub

        End If
        CMD = New MySqlCommand
        CMD.Connection = CN
        CMD.CommandType = CommandType.Text
        CMD.CommandText = Query
        CMD.ExecuteNonQuery()
        CMD = Nothing
        CloseConn()

    End Sub
End Class

#Perhatikan nama dari "User Id, Password, Database#

• kalau diatas saya menggunakan User Id= root, jadi nanti saat mengisi jendela DSN configuration, isi dengan ----> root, 

• kemudian pada koneksi diatas, password tidak saya isi, jadi saat mengisi jendela DSN configuration textbox password saya kosongkan, 

• kemudian pada Database diatas, saya isi dengan bbg, itu artinya saya akan mengoneksikan project saya dengan database bbg yang telah saya buat sebelumnya. jadi, saat mengisi jendela DSN configuration saya isi textboxnya dengan -----> bbg.

3. Project
    Kalau project kan udah pasti ya, :) :D namanya juga mau buat aplikasi hehehe...
dibawah ini contoh project untuk menilai kelayakan karyawan yang yang layak ata tidak untuk di usulkan atau di promosikan.
Metode dari aplikasi di bawah ini menggunaan Metode Topsis.




Sekian semoga bermanfaat, kurang lebihnya mohon kritik dan saran tulis komen di bawah ini ya, :) selamat berjuang. :D

Continue reading Memulai Project dengan MySql + Visual basic.net (vb.net) #catatan