Menampilkan Data Mysql Di ListView vb.net 2008
Sebelum membuat program terlebih dahulu buatlah sebuah database yang natinya akan kamu 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, next 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 , next 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
0 comments:
Post a Comment