Memanfaatkan Property TAG dan Invisible Column untuk Menyimpan Kode/ID/Nomor/Bukti/Urut VBNET

Banyak sahabat DJIESOFT yang bertanya :

1.Bagaimana cara menyimpan kode/primary key tapi tidak ingin tampil di form (hanya nama saja) ?

2.Bagaimana cara menampilkan data tanpa kode (hanya nama saja) tapi dapat diupdate/simpan ?

3.dan pertanyaan lain yang sejenis dengan pertanyaan diatas.

Ok, jika masih bingung lihat gambar dibawah ini :

Nah, asumsinya ini adalah form karyawan : kode, nama, alamat

Nah bagaimana cara mudah dan simple untuk 'menyembunyikan' kode? agar tidak banyak SELECT QUERY hanya untuk mendapatkan kode, menggunakan varible_temp, mengunkan object yg di-visible=false, dan sebagainya. Salah satu cara yang paling mudah adalah dengan menggunakan TAG dan InVisible Column.

OK. Setiap Object di VB6 maupun VBNET Memiliki property TAG. Apa fungsinya ? adalah untuk menyimpan second information (informasi lain) pada suato object. TAG ber-type data OBJECT, jadi anda dapat menyimpan data apa saja pada property TAG ini. Contoh :

TextBox1.TAG = 99

TextBox1.TAG = "ganjil"

TextBox1.TAG = myDataTable ' (DataTable bisa masuk)

TextBox1.TAG = ListView1 ' (Listview bisa masuk)

TextBox1.TAG = myarray ' (Variable Array juga bisa masuk)

TAG ini tidak terlihat, tapi anda dapat menggunakannya secara coding seperti biasa. contoh :

MsgBox Text1.TAG

dim nilai as integer = Text1.TAG

Jadi sudah tahu maksud saya ? TAG ini kita manfaatkan untuk menyimpan Kode/ID/Nomor/Bukti/dll yang tidak ingin terlihat, contoh :

Text1.Text = "Pandji" 'nama karyawan

Text1.TAG = "K001" 'kode karwayan

Jadi pada saat CRUD data :

"INSERT INTO TB_karyawan VALUES ('"+ TxtNama.TAG +"','"+ TxtNama.Text +"','"+ TxtAlamat.Text +"')"

"UPDATE TB_karyawan SET Nama='"+ TxtNama.Text +"',Alamat='"+ TxtAlamat.Text + "' WHERE Kode='"+ TxtNama.TAG + "'"

"DELETE FROM TB_karyawan WHERE Kode='"+ TxtNama.TAG + "'"

OK, jika sudah jelas kita lanjutkan, bagaiman menampikan data-nya pada DataGridView. Tampilkan saja seperti biasa (semua kolom).Contoh :

Dim tbl As New DataTable

Using adp As NewSqlClient.SqlDataAdapter("SELECT KODE,NAMA,ALAMAT FROM TB_Karyawan", conn)

      adp.Fill(tbl)

End Using

DataGridView1.DataSource = tbl

'INI YG PENTING (INVISIBLE COLUMN)

DataGridView1.Columns(0).Visible = False

Sehingga kolom ke-0 ("KODE") tidak terlihat, dan pada saat doubleclick (data naik keatas textbox), contoh :

Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) HandlesDataGridView1.DoubleClick

     WithDataGridView1

         If.Rows.Count = 0 Then ExitSub

         TxtNama.TAG = .CurrentRow.Cells(0).Value

         TxtNama.Text = .CurrentRow.Cells(1).Value

         TxtAlamat.Text = .CurrentRow.Cells(2).Value

     End With

End Sub

Tags:
how to hide column datagridview, pengertian tag vbnet, fungsi tag vbnet, visible false datagridviewcolumn, cara hide kolom datagridview, listivew, event double click datagridview