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 :

ImportsSystem.Data.OleDb

ImportsSystem.Drawing

Public Class Form6

    Dim CONN AsOleDbConnection

    Dim DA AsOleDbDataAdapter

    Dim DS As New DataSet

    Dim CMD AsOleDbCommand

    Dim DR AsOleDbDataReader

    Sub Koneksi()

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

        CONN.Open()

    End Sub

    Private SubButton1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.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 ToDGV.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 ClassForm1

    Public conn As OleDbConnection

    Public da As OleDbDataAdapter

    Public ds As DataSet

    Public cmd As OleDbCommand

    Public dr As OleDbDataReader

    Public Sub koneksi()

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

        conn.Open()

    End Sub

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

        Callkoneksi()

        da = NewOleDbDataAdapter("select * from tblbarang", conn)

        ds = NewDataSet

        da.Fill(ds)

        DGV.DataSource = ds.Tables(0)

        DGV.ReadOnly = True

        Dimketerangan As String= "Total ----------->"

        Forkolom As Integer= 3 To DGV.ColumnCount - 1

            Dimtotal As Integer= 0

            Dimmax As Integer= DGV.Rows.Count - 1

            ForEach row AsDataGridViewRow 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 AsOleDbConnection

    Public da AsOleDbDataAdapter

    Public ds As DataSet

    Public cmd AsOleDbCommand

    Public rd AsOleDbDataReader

    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 Subform1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        Call Koneksi()

        Call Tampilkan()

    End Sub

    Private SubTextBox1_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) HandlesTextBox1.KeyPress

        If e.KeyChar = Chr(13) Then

            TextBox2.Focus()

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

        End If

    End Sub

    Private SubTextBox2_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) HandlesTextBox2.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 SubButton1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.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 :