Cara menggunakan toolbox DataGridView di VB.net

Cara menggunakan toolbox DataGridView di VB.net

DataGridView di VB.net adalah sebuah toolbox di VB.net yang digunakan untuk menampilkan data dalam bentuk grid. toolbox ini dapat dikoneksikan dengan berbagai jenis database, dan menampilkan isi dari tabel atau query melalui perintah SQL.

Di artikel kita akan membahasa cara manipulasi data di DataGridView, berikut langkah-langkanya :

  • Buat project baru dengan namatoolboxDataGridviewVBnet
  • DiForm1tambahkan toolbox serta atur tataletak toolbox tersbut seperti gambar berikut :
  • Aturlah propeties toolbox sebagai berikut :
    Toolbox Properties Value
    Label1 Text NIS
    Label2 Text Nama
    Label3 Text Kelas
    groupBox1 Text Detail Data
    groupBox2 Text Cari Data
    groupBox5 Text Hapus Data
    radioButton1 Text
    Checked    		 NIS
    True
    radioButton2 Text Nama
    Button1 Text Insert
    Button2 Text Edit
    Button3 Text Hapus semua
    Button4 Text Hapus baris
    Button5 Text Cari

    berikut desain Form1 setelah di atur properties toolbox-nya

Cara add kolom data DataGridView

  • KlikForm1kemudian dibagian eventsLoadisikan kode berikut : 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         With DataGridView1.Columns             .Add("nis", "NIS")             .Add("nama", "Nama")             .Add("kelas", "Kelas")         End With End Sub

Cara insert data DataGridView

  • KlikButton1kemudian dibagian eventsClickisikan kode berikut : 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         If Button1.Text = "Insert" Then             TextBox1.Clear()             TextBox2.Clear()             TextBox3.Clear()             TextBox1.Select()             Button1.Text = "Simpan"             GroupBox1.Text = "Data Baru"         Else             With DataGridView1                 Dim indekBaru = .NewRowIndex                 .Rows.Insert(indekBaru, TextBox1.Text, TextBox2.Text, TextBox3.Text)                 .CurrentCell = DataGridView1(.CurrentCell.ColumnIndex, indekBaru)             End With             Button1.Text = "Insert"             GroupBox1.Text = "Detail Data"         End If     End Sub

Cara menampilkan data di textbox dari DataGridView

  • KlikDataGridView1kemudian dibagian eventsCellClickisikan kode berikut: 
    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick         Dim baris = DataGridView1.CurrentRow.Index         With DataGridView1             TextBox1.Text = .Item(0, baris).Value             TextBox2.Text = .Item(1, baris).Value             TextBox3.Text = .Item(2, baris).Value         End With End Sub

Cara edit data DataGridView

  • KlikButton2kemudian dibagian eventsClickisikan kode berikut : 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click         If Button2.Text = "Edit" Then             TextBox1.Select()             Button2.Text = "Simpan"             GroupBox1.Text = "Edit Baru"         Else             With DataGridView1                 Dim idx = .CurrentRow.Index                 .Rows.RemoveAt(idx)                 .Rows.Insert(idx, TextBox1.Text, TextBox2.Text, TextBox3.Text)                 .CurrentCell = DataGridView1(.CurrentCell.ColumnIndex, idx)             End With             Button2.Text = "Edit"             GroupBox1.Text = "Detail Data"         End If     End Sub

Cara cari data DataGridView

  • KlikButton5kemudian dibagian eventsClickisikan kode berikut : 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click         Dim kolom As Integer = 0         Dim cari As String = TextBox4.Text + "*"         Dim data As String         Dim cek As Boolean         If RadioButton1.Checked = True Then             kolom = 0         End If         If RadioButton2.Checked = True Then             kolom = 1         End If         For xloop As Integer = 1 To DataGridView1.RowCount - 1             data = DataGridView1.Rows(xloop - 1).Cells(kolom).Value             cek = UCase(data) Like UCase(cari)             If cek = True Then                 DataGridView1.CurrentCell = DataGridView1.Item(kolom, xloop - 1)                 Exit Sub             End If         Next     End Sub

Cara hapus data DataGridView

Semua semua data

  • KlikButton3kemudian dibagian eventsClickisikan kode berikut : 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click         DataGridView1.Rows.Clear()     End Sub

Hapus baris

  • KlikButton4kemudian dibagian eventsClickisikan kode berikut : 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click         DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)     End Sub