Nah sekarang kita belajar bagaimana menampilkan data.. Kemarin saya sudah membuat tutorial mengenai bagaimana cara menambahkan data, mengubah data, dan menghapus data . Sudah dicoba belum ?? Nah kalau belum silahkan untuk ke TKP :D :D
Lho kok data harus di tampilkan ?? Jawabannya Ya iya lah harus di tampilkan, supaya si User (Pengguna) mengetahui isi dari suatu aplikasi database nya, kalau gak di tampilkan bagaimana dia mengetahui isi dari suatu database ?? Masa dia harus membuka database dari engine database nya sih ?? hehehe….. Nah untuk menampilkan semua data yang ada didatabase kita bisa menggunakan Control DataGridView dan Control ListView. Berikut akan di terangkan bagaimana codingnya :D
1.
1. Buat database baru dengan nama bebas sesuai selera.. hehe … :D dan simpan lalu buat table baru dengan nama anggota dan atur fieldnya sebagai berikut :
Database untuk tutorial-tutorial ini dapat didownload disini
2. Setelah itu lalu buat project baru di Visual Studio 2008 dan beri nama Database2 lalu database yang telah kita buat tersebut di copy ke folder bin –> debug dalam aplikasi yang telah dibuat baru oleh kita diatas.
3. Buat tampilan sebagai berikut :
- DataAdapter disini adalah OleDbDataAdapter Fungsinya yaitu merepresentasikan Data yang ada didalam database sesuai dengan query select yang di tentukan.
- DataTable adalah adalah objek yang fungsinya merepresentasikan data yang ada dalam database dalam bentuk table atau Singkatnya adalah Array 2 Dimensi dimana table itu kan memiliki kolom dan baris, jadi di dataTabel ini di refresentasikan .
1: Dim da As OleDbDataAdapter = Nothing
2: Dim dt As New DataTable
3: Sub DataGird()
4: Try
5: da = New OleDbDataAdapter("select * from anggota", conn)
6: da.Fill(dt)
7: DataGridView1.DataSource = dt
8: Catch ex As Exception
9: MessageBox.Show("Koneksi Erros: " + ex.Message)
10: End Try
11: End Sub
5. Silahkan isi lengkap codenya sebagai berikut :
1: Imports System.Data.OleDb
2: Public Class Form1
3: Dim conn As OleDbConnection = Nothing
4: Dim da As OleDbDataAdapter = Nothing
5: Dim dt As New DataTable
6: Sub DataGird()
7: Try
8: da = New OleDbDataAdapter("select * from anggota", conn)
9: da.Fill(dt)
10: DataGridView1.DataSource = dt
11: Catch ex As Exception
12: MessageBox.Show("Koneksi Erros: " + ex.Message)
13: End Try
14: End Sub
15: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
16: Dim ConnString As String
17: ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"
18: Try
19: Conn = New OleDbConnection(ConnString)
20: Conn.Open()
21: Me.Text = "Menambah Anggota [Connected]"
22: DataGird()
23: conn.Close()
24:
25: Catch ex As OleDbException
26: MessageBox.Show("Koneksi Erros: " + ex.Message)
27: End Try
28: End Sub
29: End Class
Coba jalankan.. Running Maksudnya atau tekan F5.. hehehehe :D berhasil kan ?? :D
6. Nah sekarang kita akan belajar untuk menampilkan data di listview. ini codenya :
1: Private Sub TampilListView()
2: Dim str(4) As String
3: Dim itm As ListViewItem
4: da = New OleDbDataAdapter("select * from anggota", conn)
5: dt.Clear()
6: da.Fill(dt)
7:
8: ListView1.Columns.Add("Kode", 50, HorizontalAlignment.Left)
9: ListView1.Columns.Add("Nama", 150, HorizontalAlignment.Left)
10: ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
11: ListView1.Columns.Add("Kelamin", 100, HorizontalAlignment.Left)
12: ListView1.View = View.Details
13: ListView1.GridLines = True
14: ListView1.FullRowSelect = True
15: For i As Integer = 0 To dt.Rows.Count - 1
16: str(0) = dt.Rows(i).Item("id_anggota")
17: str(1) = dt.Rows(i).Item("nama")
18: str(2) = dt.Rows(i).Item("alamat")
19: str(3) = dt.Rows(i).Item("kelamin")
20: itm = New ListViewItem(str)
21: ListView1.Items.Add(itm)
22: Next
23: End Sub
7. Nah begitulah.. :D :D Nah ini code lengkapnya :
1: Imports System.Data.OleDb
2: Public Class Form1
3: Dim conn As OleDbConnection = Nothing
4: Dim da As OleDbDataAdapter = Nothing
5: Dim dt As New DataTable
6: Sub DataGird()
7: Try
8: da = New OleDbDataAdapter("select * from anggota", conn)
9: dt.Clear()
10: da.Fill(dt)
11: DataGridView1.DataSource = dt
12: Catch ex As Exception
13: MessageBox.Show("Koneksi Erros: " + ex.Message)
14: End Try
15: End Sub
16: Private Sub TampilListView()
17: Dim str(4) As String
18: Dim itm As ListViewItem
19: da = New OleDbDataAdapter("select * from anggota", conn)
20: dt.Clear()
21: da.Fill(dt)
22:
23: ListView1.Columns.Add("Kode", 50, HorizontalAlignment.Left)
24: ListView1.Columns.Add("Nama", 150, HorizontalAlignment.Left)
25: ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)
26: ListView1.Columns.Add("Kelamin", 100, HorizontalAlignment.Left)
27: ListView1.View = View.Details
28: ListView1.GridLines = True
29: ListView1.FullRowSelect = True
30: For i As Integer = 0 To dt.Rows.Count - 1
31: str(0) = dt.Rows(i).Item("id_anggota")
32: str(1) = dt.Rows(i).Item("nama")
33: str(2) = dt.Rows(i).Item("alamat")
34: str(3) = dt.Rows(i).Item("kelamin")
35: itm = New ListViewItem(str)
36: ListView1.Items.Add(itm)
37: Next
38: End Sub
39: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
40: Dim ConnString As String
41: ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Ari_TutorialDatabase.accdb"
42: Try
43: Conn = New OleDbConnection(ConnString)
44: Conn.Open()
45: Me.Text = "Menambah Anggota [Connected]"
46: DataGird()
47: TampilListView()
48: conn.Close()
49:
50: Catch ex As OleDbException
51: MessageBox.Show("Koneksi Erros: " + ex.Message)
52: End Try
53: End Sub
54:
55: End Class
8. Perhatikan dan coba running maka akan tampil sebagai berikut :
Nah untuk lebih jelasnya source codenya bisa di download disiniSalam SEMOGA MEMBANTU
0 Komentar
Post a Comment