Cara Menghapus Baris Rows Pada DataGridView

Assalamu'alaikum wr wb,

Masih dengan DataGridView Sekarang kita akan membahas bagaimana cara menghapus
data per Rows pada DataGridView,

Pertama tentunya sudah ada DataGridView yang tersedia pada Form berikut datanya dan
- Tambahkan satu Button HapusDetail yang akan berfungsi untuk menghapus data tersebut

Pertama anda harus memilih data yang ingin dihapus pada DataGridView dengan cukup klik saja untuk mengambil nilai Index dari DataGridView tersebut,

Setelah itu masukan Coding berikut pada Button HapusDetail
saya memberikan Name pada DataGridView (DGV) :

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
 Handles BtnHapus.Click           

If MessageBox.Show("Hapus Data : " & DGV.Item(1, DGV.CurrentRow.Index).Value & _
" ?", "KONFIRM", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _
Windows.Forms.DialogResult.Yes Then

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

                    DGV.Rows.RemoveAt(DGV.CurrentRow.Index)

                End If

'Coding ini untuk menghapus smua data pada DataGridView :
'DGV.Rows.Clear()

 End If

End Sub



Tentunya coding yang barusan belum terkait ke DataBase jika ingin menghapus sampai database berdasar index tersebut anda dapat meletakan Query nya diatas                     DGV.Rows.RemoveAt(DGV.CurrentRow.Index)

Contoh penghapusan berdasar Baris Table atau Rows yang sudah tersimpan dalam DataBase :

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

    Dim HapusDetail As String = "delete from detailpembelian where faktur='" & _
    TxtNofak.Text & "' and kodebarang='" & _
    DGV.Item(0, DGV.CurrentRow.Index).Value & "'"
    Cmd = New SqlCommand(HapusDetail, Conn)
    Cmd.ExecuteNonQuery()

     DGV.Rows.RemoveAt(DGV.CurrentRow.Index)

End If




Oke sampe disini dulu gan, jika ada pertanyaan atau masih belum jelas atau
mungkin masih Debug komen aja gan ditunggu yooo :D .

==========================================================================

Cara Membuat Nomor Faktur Otomatis VB.Net

Assalamu'alaikum wr wb


Apakabar nii sobat sobat Programmer yang selalu digelutin Masalah hahahaa :D

Sekarang ane mauu berbagi cara untuk membuat :
Nomor Faktur, Kode Barang, Kode Petugas atau Kode Supplier Otomatis.
Oke deh langsung aja gan ngga usah banyak Cing Cong hahay :D

Private Sub NofakMatis()

Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Rd As SqlDataReader
Dim Cmd As SqlCommand

Dim _Urutan As String
Dim _Hitung, _Cari As Long
    
Cmd = New SqlCommand("Select * from pembelian where faktur in " & _
                                        "(select max (faktur)from pembelian)", Conn)
            Rd = Cmd.ExecuteReader
            Rd.Read()
            If Not Rd.HasRows Then
               _Urutan = "00000001"
            Else
                _Cari = Rd.GetString(0)
                _Hitung = Rd.GetValue(0) + 1
                _Urutan = Format(Hitung, "00000000")
            End If
            Rd.Close()
           TxtNofak.Text = _Urutan

End Sub

NAH .. ini dia hasilnya gan,



Jika ingin menambahkan Karakter berupa String atau Sebagainya agan bisa menggunakan Source Code ini

Private Sub NofakMatis()

Dim Conn As SqlConnection
Dim Da As SqlDataAdapter
Dim Ds As DataSet
Dim Rd As SqlDataReader
Dim Cmd As SqlCommand

Dim _Urutan As String
Dim _Hitung, _Cari As Long

Cmd = New SqlCommand("Select * from pembelianNon where fakturNon in " & _
                                         "(select max (fakturNon)from pembelianNon)", Conn)
            Rd = Cmd.ExecuteReader
            Rd.Read()
            If Not Rd.HasRows Then
                _Urutan = "SIJ/" & Date.Now.Year & "/" & "000001"
            Else
                _Cari = Microsoft.VisualBasic.Right(Rd.GetString(0), 6)
                If Microsoft.VisualBasic.Left(Rd.GetString(0), 9) <> "SIJ/" & Date.Now.Year & "/" Then
                  _Urutan = "SIJ/" & Date.Now.Year & "/" & "000001"
                Else
                  _Hitung = Microsoft.VisualBasic.Right(Rd.GetString(0), 6) + 1
                  _Urutan = "SIJ/" & Date.Now.Year & "/" & Microsoft.VisualBasic.Right("000000" & Hitung, 6)
                End If
            End If
            Rd.Close()
            TxtNofak.Text = _Urutan

End Sub

NAH .. ini dia hasilnya gan ada Format Tahunnya,
 


Jangan lupa dipanggil NofakMatisnya pada FormLoad()

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

        BukaDB()
        NofakMatis()

End Sub

Makasih gan udh mampir :D jangan lupa Komennya yooo,
kalo ada Error pada Programnya komen aja gan barang kali saya bisa bantu :D
kita Sharing barang.
Sama - sama masih Belajar ehehehe :D

Cara Mengatasi Error Pada DataGridView DBNull

Assalamu'alaikum Wr.Wb

Oke setelah postingan pencarian data dengan menggunakan Like
Sekarang saya akan berbagi cara Mengatasi Error pada DataGridView saat di Click pada Rows yang Kosong atau pada GridHeader nya pada saat akan memindahkan data yang ada
pada DataGridView ke TextBox,
kita akan lakukan caranya dengan Manual tanpa Source ehehehe :D



Error nya seperti ini



 Error ada pada Enable Adding
 Klik tanda Play pada DataGridView dipojok kanan atas

 Lihat CheckBox pada Enabled Adding dengan keadaan True,
kita hanya menghilangkan Ceklis pada Enable Adding Rubah keadaan menjadi False

Maka Hasilnya akan seperti ini, Dihilangkan DBNull nya ehehehee :D



Oke Masalah Telah Terselesaikan dengan Tuntas agan agan dapat melanjutkan Coding nya hahahaa :D


Makasih gan udh mampir :D jangan lupa Komennya yooo, kalo ada Error pada Programnya komen aja gan
kita Sharing barang.
Sama - sama masih Belajar :D