Monday, May 22, 2017

[VISUAL BASIC.NET] Menampilkan Data Ke DataGridView dan ListView

Langkah-langkah :
1. Buat Database, Table, dan isi record menggunakan SQL Server 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
create database DBLatihan;

use DBLatihan;

create table Barang(
Kode_Barang char(5) primary key not null,
Nama_Barang varchar(30),
Harga_Beli numeric(9),
Harga_Jual numeric(9),
Jumlah_Barang smallint,
Satuan varchar(10)
);

insert into Barang values('01','KOPI',1000,1500,100,'DUS');
insert into Barang values('02','KECAP',2000,3000,100,'BOTOL');
insert into Barang values('03','GARAM',3000,4000,100,'PAK');

SELECT * FROM Barang;

2. Tambahkan DataGridView, ListView, dan Button pada user interface

3. Berikut adalah source code-nya : 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.Data.SqlClient

Public Class Form1
    Dim conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim str As String

    Sub koneksi()

        str = "Data Source=USER-PC\AMIK;Initial Catalog=DBLatihan;Integrated Security=True"
        conn = New SqlConnection(str)

        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            koneksi()
            da = New SqlDataAdapter("SELECT * FROM BARANG", conn)
            ds = New DataSet
            ds.Clear()
            da.Fill(ds, "DataBarang")
            'isi data ke datagridView
            DataGridView1.DataSource = (ds.Tables("DataBarang"))
            'isi data ke ListView
            ListView1.Items.Clear()
            ListView1.FullRowSelect = True
            ListView1.GridLines = True
            ListView1.MultiSelect = False
            ListView1.View = View.Details
            ListView1.Columns.Add("Kode Barang", 75, HorizontalAlignment.Left)
            ListView1.Columns.Add("Nama Barang", 150, HorizontalAlignment.Left)
            ListView1.Columns.Add("Harga Beli", 100, HorizontalAlignment.Left)
            ListView1.Columns.Add("Harga Jual", 100, HorizontalAlignment.Left)
            ListView1.Columns.Add("Jumlah Barang", 100, HorizontalAlignment.Left)
            ListView1.Columns.Add("Satuan", 100, HorizontalAlignment.Left)
            For i = 0 To ds.Tables(0).Rows.Count - 1
                With ListView1
                    .Items.Add(ds.Tables(0).Rows(i).Item(0))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(1))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(2))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(3))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(4))
                    .Items(i).SubItems.Add(ds.Tables(0).Rows(i).Item(5))
                    If (i Mod 2 = 0) Then
                        .Items(i).BackColor = Color.LightSteelBlue
                    Else
                        .Items(i).BackColor = Color.Lavender
                    End If
                End With
            Next
        Catch ex As Exception
        End Try

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class

4. Run untuk mengeksekusi source code diatas
on

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)