Menampilkan foto ke dalam datagridview

Dalam pembuatan aplikasi sering kali orang menginginkan menampilkan foto ke dalam datagridview. Kebanyakan orang menampilkan foto itu kedalam sebuah picturebox. Dalam picturebox foto hanya dapat ditampilkan satu buah saja, sedangkan dalam datagrdview foto dapat ditampilkan sebanyak kebutuhan. Untuk menampilkan foto dalam datagridview ikutilah langkah-langkah di bawah ini :

Pertama buatlah sebuah project baru

Lalu buatlah sebuah form seperti gambar di bawah ini (hanya datagridview dan button1)

Setelah itu buatlah atau copy coding di bawah ini :

Imports System.Data.OleDb

Imports System.Drawing

Public Class Form6

    Dim CONN As OleDbConnection

    Dim DA As OleDbDataAdapter

    Dim DS As New DataSet

    Dim CMD As OleDbCommand

    Dim DR As OleDbDataReader

    Sub Koneksi()

        CONN = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=dbkoperasi.mdb")

        CONN.Open()

    End Sub

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

        DGV.Columns.Clear() 

        Call Koneksi()

        DA = New OleDbDataAdapter("Select Nama,lokasi from TBLanggota", CONN)

        DS = New DataSet

        DS.Clear()

        DA.Fill(DS)

        DGV.DataSource = DS.Tables(0)

        Dim Cols As New DataGridViewImageColumn()

        DGV.Columns.Add(Cols)

        On Error Resume Next

        For baris As Integer = 0 To DGV.RowCount - 1

            DGV.Rows(baris).Cells(2).Value = Image.FromFile(DGV.Rows(baris).Cells(1).Value)

            Cols.HeaderText = "foto"

            Cols.Name = "Cols"

        Next

    End Sub

End Class

Adapun hasilnya dapat dilihat pada gambar dibawah ini :

menampilkan jumlah total di dalam datagridview

Sebagian orang menganggap atau menginginkan pengolahan data dalam program sama degan data di excel. Padahal sebenarnya dalam program tidak semudah yang dibayangkan. Misalnya kita ingin menjumlahkan data dari atas ke bawah dengan excel cukup dengan menulis rumus =SUM(A1:B5). Tetapi didalam program anda harus bekerja keras untuk menemukan hasil tersebut.

Pada kesempatan kali ini saya akan menjelaskan bagaimana cara menampilkan jumlah total data dan hasilnya disimpan di bagian bawah datagridview

Pertama buatlah sebuah project baru

Kedua buatlah form seperti gambar di bawah ini (hanya sebuah datagridview saja)

Lalu ketiklah atau copy coding  berikut ini :

Imports System.Data.OleDb

Public Class Form1

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public dr As OleDbDataReader

    Public Sub koneksi()

        conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=database.mdb")

        conn.Open()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call koneksi()

        da = New OleDbDataAdapter("select * from tblbarang", conn)

        ds = New DataSet

        da.Fill(ds)

        DGV.DataSource = ds.Tables(0)

        DGV.ReadOnly = True

        Dim keterangan As String = "Total ----------->"

        For kolom As Integer = 3 To DGV.ColumnCount - 1

            Dim total As Integer = 0

            Dim max As Integer = DGV.Rows.Count - 1

            For Each row As DataGridViewRow In DGV.Rows

                total = total + row.Cells(kolom).Value

            Next

            DGV.Rows(max).Cells(2).Value = keterangan

            DGV.Rows(max).Cells(kolom).Value = total

        Next

    End Sub

End Class

Membuat format angka - uang dalam vb.net

Format angka uang sangat diperlukan dalam pembuatan aplikasi yang mengandung data angka. Sebagai contoh angka 1234567890 sangat sulit ditentukan berapa jumlahnya. Berbeda dengan 1,234,567,890. Untuk membuat format angka uang sebenarnya ada banyak pola. Salah satunya akan saya jelaskan disini.

1. Pertama buatlah sebuah project baru
2. Kemudian buatlah form dengan bentuk seperti gambar di bawah ini

Form diatas  terdiri dari textbox, button dan datagridview

Setelah membuat form, ketiklah atau copy coding dibawah ini (selamat mencoba semoga berhasil)

Imports System.Data.OleDb

Public Class form1

    Public Conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public rd As OleDbDataReader

    Public Sub Koneksi()

        Conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=PENJUMLAHAN.mdb")

        Conn.Open()

    End Sub

    Sub Tampilkan()

        da = New OleDbDataAdapter("Select * from TABLE1", Conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds)

        DGV.DataSource = (ds.Tables(0))

        DGV.Columns(0).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(1).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(2).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DGV.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DGV.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        DGV.ReadOnly = True

    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Koneksi()

        Call Tampilkan()

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox2.Focus()

            TextBox1.Text = FormatNumber(TextBox1.Text, 0) 'ini format angka

        End If

    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox2.Text = FormatNumber(TextBox2.Text, 0) ' ini format angka

            TextBox3.Text = Val(Microsoft.VisualBasic.Str(TextBox1.Text)) + Val(Microsoft.VisualBasic.Str(TextBox2.Text))

            TextBox3.Text = FormatNumber(TextBox3.Text, 0) 'ini format angka

            Button1.Focus()

        End If

    End Sub

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

        cmd = New OleDbCommand("insert into TABLE1 values ('" & Microsoft.VisualBasic.Str(TextBox1.Text) & "','" & Microsoft.VisualBasic.Str(TextBox2.Text) & "','" & Microsoft.VisualBasic.Str(TextBox3.Text) & "')", Conn)

        cmd.ExecuteNonQuery()

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox1.Focus()

        Call Tampilkan()

    End Sub

End Class

hasil coding :