Text Box Seperti Radio Button di DataGridView

Pada kasus tertentu, kita sering membutuhkan pilihan pada kolom tertentu untuk menentukan apakah data sudah di verifikasi atau belum. Sebagai contoh : Misalkan terdapat Soal Ujian Pilihan Benar atau salah atau Benar keduanya. Atau Ceklist Formulir atau data barang yang harus di cek oleh Ceker. Untuk lebih lanjut kita langsung ke permasalahan dengan contoh kasus dibawah ini :

user harus melakukan ceklist pada salah satu kolom Ya, Tidak atau Tidak Perlu. Sementara sifat Chekbox adalah bisa melakukan ceklist semuanya. Tapi kita menginginkan perlakuannya seperti Radio Button, Ceklist harus dilakukan pada salahsatunya.

Ini List Programnya.. Agar sifat checkbox diatas seperti radio Button :

Private Sub Datagridview1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dglist.CellContentClick
        Dim firstCheckboxColIndex = 2
        Dim secondCheckboxColIndex = 3
        Dim ThirdCheckboxColIndex = 4
        Select Case e.ColumnIndex
            Case firstCheckboxColIndex
                DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(3).Value = False
                DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(4).Value = False              
            Case secondCheckboxColIndex
                DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(2).Value = False
                DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(4).Value = False              
            Case ThirdCheckboxColIndex
                DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(2).Value = False
                DirectCast(sender, DataGridView).Rows(e.RowIndex).Cells(3).Value = False            
        End Select
    End Sub

Keterangan List Program :
Ketika kita ceklist kolom 2, maka kolom 3 dan 4 akan bernilai false
Ketika kita ceklist kolom 3, maka kolom 2 dan 4 akan bernilai false
Ketika kita ceklist kolom 4, maka kolom 2 dan 3 akan bernilai false

hasilnya akan seperti dibawah ini :

Demikian Metodnya..semoga bisa membantu.

Metoda pencarian kata dengan textbox di datagridview

Dalam suatu aplikasi, biasanya ada pencarian kata dalam daftar/list yang ditampilkan dalam suatu Grid. Misalnya pencarian Nama, Alamat, Nomor Invoice dsb. Dalam hal ini penulis akan membahas pencarian dimana user mengetikan kata dalam sebuah textbox, sementara kursor didatagrid akan mencari kata yang sama sesuai dengan kata dalam textbox. Baiklah kita asumsikan bahwa kita sudah mempunyai aplikasi dan data yang akan ditampilkan seperti gambar dibawah ini :




proses pencarian gambar diatas adalah pencarian Nomor Akun. ketika kita mengetikan Nomor Akun yang kita inginkan, kursor yang berwarna biru di dalam grid akan menunjukkannya. Listing Programnya adalah sebagai berikut :

 Private Sub txtFind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFind.TextChanged
 
        Dim xloop1 As Integer
        Dim sPola As String
        Dim sbuka As String
        Dim SBetul As Boolean


        sPola = txtFind.Text + "*"


        For xloop1 = 1 To Gridme.RowCount - 1
            sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value
            SBetul = UCase(sbuka) Like UCase(sPola)

            If SBetul = True Then
                Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)
                Exit Sub
            End If
        Next
    End Sub

keterangan Listing Program :

    sPola = txtFind.Text + "*" : string yang akan dicari
    sbuka = Gridme.Rows(xloop1 - 1).Cells(0).Value : string pembanding dalam Grid dengan alamat cell = 0
    SBetul = UCase(sbuka) Like UCase(sPola) : Proses pembandingan kata yang dicari dengan pembanding

     If SBetul = True Then
           Gridme.CurrentCell = Gridme.Item(0, xloop1 - 1)
           Exit Sub
     End If
    : Jika sBetul = true, maka kursor akan diam row yang sama dengan kata yang dicari

hasilnya akan seperti ini,





demikian cara pencarian dengan menggunakan textbox. semoga bermanfaat.

Cara Ekspor DataGridView ke Excel

Dalam beberapa aplikasi, banyak yang menginginkan hasil pengolahan data yang ditampilkan di grid. langsung di Printout menggunakan excel. selain mudah untuk di print juga dapat diedit jika terjadi kesalahan input. di sini kita akan membahas itu. dan ini List Prognya.

Imports System.Data

Imports System.Data.SqlClient

Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles Button1.Click

        Dim cnn As SqlConnection

        Dim connectionString As String

        Dim sql As String

        connectionString = "data source=servername;" & _

        "initial catalog=databasename;user id=username;password=password;"

        cnn = New SqlConnection(connectionString)

        cnn.Open()

        sql = "SELECT * FROM Product"

        Dim dscmd As New SqlDataAdapter(sql, cnn)

        Dim ds As New DataSet

        dscmd.Fill(ds)

        DataGridView1.DataSource = ds.Tables(0)

        cnn.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button2.Click

        Dim xlApp As Excel.Application

        Dim xlWorkBook As Excel.Workbook

        Dim xlWorkSheet As Excel.Worksheet

        Dim misValue As Object = System.Reflection.Missing.Value

        Dim i As Integer

        Dim j As Integer

        xlApp = New Excel.ApplicationClass

        xlWorkBook = xlApp.Workbooks.Add(misValue)

        xlWorkSheet = xlWorkBook.Sheets("sheet1")

        For i = 0 To DataGridView1.RowCount - 2

            For j = 0 To DataGridView1.ColumnCount - 1

                xlWorkSheet.Cells(i + 1, j + 1) = _

                    DataGridView1(j, i).Value.ToString()

            Next

        Next

        xlWorkSheet.SaveAs("C:\vbexcel.xlsx")

        xlWorkBook.Close()

        xlApp.Quit()

        releaseObject(xlApp)

        releaseObject(xlWorkBook)

        releaseObject(xlWorkSheet)

        MsgBox("You can find the file C:\vbexcel.xlsx")

    End Sub

    Private Sub releaseObject(ByVal obj As Object)

        Try

            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

            obj = Nothing

        Catch ex As Exception

            obj = Nothing

        Finally

            GC.Collect()

        End Try

    End Sub

End Class

Demikian ekspor data ke excel. silahkan dicoba !!!

Memasukkan Hasil Input di TextBox ke DataGridView dengan sort Descending

Kontrol DataGridView digunakan untuk menampilkan data. Baik Data dari hasil query maupun dari textbox. Kita akan membahas bagaimana caranya memasukkan data ke datagridview dari textbox dengan hasil berurut secara descending. Jadi setiap data yang diinput baru akan ditempatkan di baris pertama.
 
Kita buat form dan komponennya lihat gambar :

 
 dan ketik list Programnya sebagai berikut :  

Public Class Form2  
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        gridme.Rows.Add(1)

        gridme.Rows(gridme.RowCount - 2).Cells(0).Value = CStr(gridme.RowCount - 1)
        gridme.Rows(gridme.RowCount - 2).Cells(1).Value = TextBox1.Text
        gridme.Rows(gridme.RowCount - 2).Cells(2).Value = TextBox2.Text
        gridme.Rows(gridme.RowCount - 2).Cells(3).Value = TextBox3.Text
        gridme.Rows(gridme.RowCount - 2).Cells(4).Value = TextBox4.Text
        gridme.Rows(gridme.RowCount - 2).Cells(5).Value = TextBox5.Text  

        gridme.Sort(New comparer)
        gridme.Update()


    End Sub


   Public Class comparer Implements System.Collections.IComparer

      Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
          Dim dataX As DataGridViewRow = DirectCast(x, DataGridViewRow)
          Dim dataY As DataGridViewRow = DirectCast(y, DataGridViewRow)


'sort descending
          Return CInt(dataY.Cells(0).Value).CompareTo(CInt(dataX.Cells(0).Value))

     End Function
  End Class 
End Class  

 
Ini adalah hasil akhirnya.
selamat mencoba.

DataGridView adding rows and columns in VB.NET

The DataGridView control is designed to be a complete solution for displaying tabular data with Windows Forms. The DataGridView control is highly configurable and extensible, and it provides many properties, methods, and events to customize its appearance and behavior. The DataGridView control is used to display data from a variety of external data sources. Alternatively, you can add rows and columns to the control and manually populate it with data. The following vb.net source code shows how to manually create Columns and Rows in a DataGridView.

DataGridView1.Columns(Index).Name = "Column Name"

Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "Product ID"
DataGridView1.Columns(1).Name = "Product Name"
DataGridView1.Columns(2).Name = "Product_Price"

Dim row As String() = New String() {"1", "Product 1", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "Product 2", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "Product 3", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Product 4", "4000"}
DataGridView1.Rows.Add(row)
End Sub
End Class

Delete row in DataGridView

we will discuss how to delete a row in DataGridView. its very easy way of typing the following syntax:
Private Sub DataGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
  Dim id As String = e.Row.Cells("ISBN").FormattedValue.ToString() 'Taking value to the ISBN field
  Dim name As String = e.Row.Cells("Title").FormattedValue.ToString()
'Displays a dialog windows
Dim result As DialogResult = MessageBox.Show("Are you sure you want to delete ISBN " & id & " - " & name & "?", "Delete?", MessageBoxButtons.OKCancel)
'If the Cancel button that is selected then the process will be deleted.
If result = DialogResult.Cancel Then
e.Cancel = True
End If