Untuk memulai project Visual Basic .net dengan database Mysql, pastikan kalian teah menginstal software - software pendukungnya, diantaranya :
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"
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.
#Perhatikan nama dari "User Id, Password, Database#
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
- Visual basic.net
- Xampp atau sejenisnya
- Mysql_conector : sebagai konektornya, jika belum ada, bisa download DISINI
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
