Cara Input Menampilkan Data Ke DataGridView

Menampilkan Data ke DataGridView  VB.NET

Huys guys kali ini saya akan memberikan coding VB.NET 2010, yang dimana coding ini berfungsi untuk menampilkan data ke DataGridView ya, Ok langsung saja.

1. silahkan kamu buka Vb.net-nya
2. buat new file
3. buat 1 buah form yang berisi
    a. 4 buah TexBox dan 4 buah Label (Nama, Kode, Alamat, no. Telpon)
    b. 3 buah tombol Button (Tambah, Ubah, Hapus)
    c. 1 buat DataGridView

Masukan Langsung Coding-nya:

Dim blnAddCus As Boolean = True

    Dim blnUbahCus As Boolean = False

    Dim blnHapusCus As Boolean = False

    Dim indx As Integer = Nothing

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox1.Focus()

    End Sub

    Sub isisDgv()

        dgvTampilCus.Columns.Add("Nama", "Nama")

        dgvTampilCus.Columns.Add("Kode", "Kode")

        dgvTampilCus.Columns.Add("Alamat", "Alamat")

        dgvTampilCus.Columns.Add("Telepon", "No. Telepon")

        dgvTampilCus.Columns(0).Width = 100

        dgvTampilCus.Columns(1).Width = 50

        dgvTampilCus.Columns(2).Width = 100

        dgvTampilCus.Columns(3).Width = 100

    End Sub

    Sub kode_customers()

        Dim TextBox2_baru As String

        TextBox2_baru = dgvTampilCus.RowCount + 1

        Me.TextBox2.Text = "C" & TextBox2_baru

    End Sub

    'validasi

    Function validasi() As Boolean

        If TextBox1.Text.Length = 0 Then

            MessageBox.Show("Nama Customers tidak boleh kosong", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TextBox1.Focus()

            Return False

        End If

        If TextBox2.Text.Length = 0 Then

            MessageBox.Show("Kode Customers tidak boleh kosong", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TextBox2.Focus()

            Return False

        End If

        If TextBox3.Text.Length = 0 Then

            MessageBox.Show("Alamat Customers tidak boleh kosong", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TextBox3.Focus()

            Return False

        End If

        If TextBox4.Text.Length = 0 Then

            MessageBox.Show("No Telepon Customers tidak boleh kosong", "Validasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

            TextBox4.Focus()

            Return False

        End If

                Return True

            End Function

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Hide()

        Form2.Show()

    End Sub

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

        Try

            If Button1.Text = "&Tambah" Then

                Me.bersih()

                enabTrue()

                TextBox2.Enabled = False

                TextBox1.Focus()

                kode_customers()

                TextBox2.Focus()

                Button1.Text = "&Simpan"

                Button4.Text = "&Batal"

                Button5.Enabled = False

                blnAddCus = True

                blnUbahCus = True

            Else

                If validasi() Then

                    Button1.Text = "&Tambah"

                    Button4.Text = "&Ubah"

                    Button5.Enabled = True

                    If blnAddCus = True Then

                        dgvTampilCus.Rows.Insert(0, New String() {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text})

                        MessageBox.Show("Berhasil tersimpan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                        bersih()

                        enabFalse()

                        TextBox2.Enabled = True

                        blnUbahCus = False

                        blnHapusCus = False

                    Else

                        If MessageBox.Show(String.Format("Apakah anda yakin akan mengubahnya menjadi'{0}'", TextBox2.Text), "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

                            If indx < 0 And indx = Nothing Then

                                MessageBox.Show("Lakukan terlebih dahulu dengan cara klik button cari atau klik di datagridviewnya", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

                            Else

                                dgvTampilCus.Item(0, indx).Value = TextBox1.Text

                                dgvTampilCus.Item(1, indx).Value = TextBox2.Text

                                dgvTampilCus.Item(2, indx).Value = TextBox3.Text

                                dgvTampilCus.Item(3, indx).Value = TextBox4.Text

                                MessageBox.Show("Berhasilah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

                            End If

                            bersih()

                            enabFalse()

                            TextBox2.Enabled = True

                            blnUbahCus = False

                            blnHapusCus = False

                        End If

                    End If

                End If

            End If

        Catch ex As Exception

            MessageBox.Show("Failed& Message")

        End Try

    End Sub

    Sub enabFalse()

        TextBox4.Enabled = False

        TextBox2.Enabled = False

        TextBox1.Enabled = False

        TextBox3.Enabled = False

    End Sub

    Sub enabTrue()

        TextBox4.Enabled = True

        TextBox2.Enabled = True

        TextBox1.Enabled = True

        TextBox3.Enabled = True

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If blnUbahCus Then

            If blnAddCus = True Then

                'batal add

                Button1.Text = "&Tambah"

                Button4.Text = "&Ubah"

                Button5.Enabled = True

                blnAddCus = False

                enabFalse()

                TextBox2.Enabled = True

                TextBox1.Focus()

                bersih()

                blnUbahCus = False

                blnHapusCus = False

            Else

                If Button4.Text = "&Ubah" Then

                    'Tambah

                    Button1.Text = "&Simpan"

                    Button4.Text = "&Batal"

                    Button5.Enabled = False

                    blnAddCus = False

                    Button4.Enabled = True

                    Button5.Enabled = False

                    Button1.Enabled = True

                    enabTrue()

                    blnUbahCus = True

                    blnHapusCus = True

                Else

                    'batal ubah

                    Button1.Text = "&Tambah"

                    Button4.Text = "&Ubah"

                    Button5.Enabled = True

                    enabFalse()

                    bersih()

                    blnUbahCus = False

                    blnHapusCus = False

                End If

            End If

        Else

            MessageBox.Show("Pilihlu data yang akan diubah", "Pilih", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If dgvTampilCus.CurrentRow.Index <> dgvTampilCus.NewRowIndex Then

            dgvTampilCus.Rows.RemoveAt(dgvTampilCus.CurrentRow.Index)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

        End If

    End Sub

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

        isisDgv()

    End Sub

    Private Sub dgvTampilCus_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvTampilCus.CellContentClick

        Dim isisDgv = dgvTampilCus.CurrentRow.Index

        With dgvTampilCus

            TextBox1.Text = .Item(0, indx).Value

            TextBox2.Text = .Item(1, indx).Value

            TextBox3.Text = .Item(2, indx).Value

            TextBox4.Text = .Item(3, indx).Value

        End With

    End Sub

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

        If (Not Char.IsNumber(e.KeyChar) AndAlso Not e.KeyChar = Microsoft.VisualBasic.Chr(Keys.Back)) Then

            MsgBox("Masukan Dengan Angka", vbCritical)

            e.Handled = True

        End If

        'End If

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        TextBox4.MaxLength = 12

    End Sub

    Private Sub dgvTampil_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvTampilCus.DoubleClick

        TextBox1.Text = dgvTampilCus.Item(0, dgvTampilCus.CurrentRow.Index).Value

        TextBox2.Text = dgvTampilCus.Item(1, dgvTampilCus.CurrentRow.Index).Value

        TextBox3.Text = dgvTampilCus.Item(2, dgvTampilCus.CurrentRow.Index).Value

        TextBox4.Text = dgvTampilCus.Item(3, dgvTampilCus.CurrentRow.Index).Value

        blnAddCus = False

        TextBox2.Enabled = False

        blnUbahCus = True

        blnHapusCus = True

        indx = dgvTampilCus.CurrentRow.Index

    End Sub

End Class

Jika sudah, silahkan kamu jalankan ya, jika masih ada yang salah atau pada bingung silahkan tinggalkan komentar di bawah.

Coding di atas sudah komplit ya. Terima kasih semoga bermanfaat.