artikel 23. Menampilkan data Mysql dengan List View vb.net

Menampilkan data Mysql dengan List View vb.net

Pada pembahasan kali ini saa akan mencoba menjelaskan bagaimana caranya agar data kita yang berda di database mysql dapat di tampilkan di porgramvb.net menggunakan toolbox List View.

Untuk tutorial kali ini saya menggunakan vs studio 2010 dengan bahasa pemrograman vb.net , dan .Net Framework 3.5.

Sebelum membuat program terlebih dahulu buatlah sebuah database yang natinya akan anda pakai di program , pada kasus ini saya membuat database dengan nama “mysqltut” dan tabel bernama “people” dengan tipe data dapat di lihat pada gambar di bawah ini .

setelah database di buat , selanjutnya kita akan membuat project vb.net , misalkan saya membuat sebuah project yang saya beri nama “MySql Tutorial”

Setelah membuat project selanjutnya kita akan memasukkan referensi tambahan yang berguna agar vb.net dapat memahami perintah-perintah mysql(mysql.data.dll)  yaitu dengan cara buka menu “project – > add reference”

 Setalah menambah referensi Mysql ,  selanjutnya  pada form default yang ada , anda tambahkan sebuah toolbox listview , sehingga tampilan form yang ada sebagai berikut .

Dan jangan lupa atur propertis dari list view tadi menjadi sebagai berikut 

pada jendela di atas pilih edit Columns , sehingga tampilan menjadi sebagai berikut

Untuk Kolom deader nya silahkan anda atur sendiri sesuai dengan data yang ada di data base (di propertis kolom header , misc -> Text)

setalah semua interface kita buat selnjutnya adalah bagian souce code pada form (klik 2 kali form) pada text editor yang tersedia masukkan code-code berikut ini

Imports MySql.Data.MySqlClient

Public Class Form1
Public sConnection As New MySqlConnection

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = “SERVER = localhost; USERID = root; PASSWORD =; DATABASE = mysqltut;”
sConnection.Open()
End If
LoadPeople()
End Sub
Public Sub LoadPeople()
Dim sqlQuery As String = “SELECT * FROM people”
Dim sqlAdapter As New MySqlDataAdapter
Dim sqlCommand As New MySqlCommand
Dim TABLE As New DataTable
Dim i As Integer

With sqlCommand
.CommandText = sqlQuery
.Connection = sConnection
End With

With sqlAdapter
.SelectCommand = sqlCommand
.Fill(TABLE)
End With

For i = 0 To TABLE.Rows.Count – 1
With lvPeople
.Items.Add(TABLE.Rows(i)(“id”))
With .Items(.Items.Count – 1).SubItems
.Add(TABLE.Rows(i)(“fname”))
.Add(TABLE.Rows(i)(“mname”))
.Add(TABLE.Rows(i)(“lname”))
End With
End With
Next

End Sub
End Class 

sumber: http://jambikid.web.id/menampilkan-data-mysql-dengan-list-view-vb-net/