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 New SqlClient.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) Handles DataGridView1.DoubleClick
With DataGridView1
If .Rows.Count = 0 Then Exit Sub
TxtNama.TAG = .CurrentRow.Cells(0).Value
TxtNama.Text = .CurrentRow.Cells(1).Value
TxtAlamat.Text = .CurrentRow.Cells(2).Value
End With
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Zoemalang's community

ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

YoYo Games Blog Feed

Ujung malang adalah Sebuah desa yang hilang terganti dengan ujung harapan

Dealer Termurah

Menjual Segala Jenis Motor Baru Di Indonesia Cash Maupun Kredit

%d blogger menyukai ini: