Cara Menampilkan Isi Data Tabel Di Datagrid Dengan Visual Basic 6.0 | Gho Blog's - Pada kesempatan ini saya akan menjawab pertanyaan dari salah satu visitor yang menghubungi admin via email. Pertanyaannya adalah bagaimana caranya agar data yang sudah diinputkan bisa dilihat kembali?
Salah satu cara yang paling sederhana adalah dengan menambahkan tools Datagrid pada form dan menabah beberapa baris script agar setiap data yang terentri bisa muncul secara update.
Untuk lebih memahaminya, saya mengambil contoh dari posting yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Silakan sobat download terlebih dahulu projectnya dan ikuti langkah-langkah berikut ini :
Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!
Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!
- Tambahkan satu buah tools Datagrid pada form entri tersebut, sehingga disainya menjadi seperti gambar berikut :
- Letakkan script berikut ini pada bagian code [General] :
- Kemudian sisipkan script berikut pada bagian Form_Load() agar pada saat program di running, data dari tabel akan muncul di Datagrid, sehingga script Form_Load() menjadi seperti berikut :
- Terakhir, cari program kosongform [Private Sub kosongform()] dan sisipkan script yang sama seperti Form_Load() diatas. Hingga menjadi seperti berikut ini :
Untuk lebih jelasnya, silakan sobat download contoh program nya dsini :
Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!
Sekian dulu jawaban dari saya pada posting yang berjudul Cara Menampilkan Isi Data Tabel Di Datagrid Dengan Visual Basic 6.0. Semoga bermanfaat dan dapat menjawab pertanyaan sobat yang lain.
7 komentar :
klo mau menampilkan di grid data dri database terkini/terakhir bagaimana srkip nya mas?...makasih
@wisnu wiyardani: yg menjadi patokan adalah primary key nya...
biasanya, record terakhir menggunakan primary key dengan bilangan yg lebih besar dari record sebelumnya...
contoh query nya seperti ini :
"SELECT * FROM namatabelnya ORDER BY primary_key_nya DESC LIMIT 1"
penjelasan nya kurang lengkap min
klw bisa jelasinnya dari dasar dan menggunakan gambar
@Anonim:seprtinya agan gak bca posting ini dr awal, diatas udh sya jlsin kl posting ini adalh posting lnjutan, klo agan ikutin dr awl, agan psti ngrti step2 nya mskipun posting minim gmbr...
Thanks you
, , , adCmdText
itu maksud nya apa ya kak ? bikin cmd baru lagi ato apa ? terimakasih
@Betrii agus nurdinah: perhatiin 2 coding di bawah ini,, berbeda tp fungsi sama... :
--Coding 1---------------------------
Sub refreshDG()
Set rsmhs = New ADODB.Recordset
rsmhs.LockType = adLockOptimistic
rsmhs.CursorType = adOpenDynamic
rsmhs.Open "select * from tmhs", conn, , , adCmdText
Set DataGrid1.DataSource = rsmhs
End Sub
------------------------------------
--Coding 2--------------------------
Sub refreshDG()
Set rsmhs = New ADODB.Recordset
rsmhs.Open "select * from tmhs", conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsmhs
End Sub
-------------------------------------
cb perhatiin dimana bedanya..?
adcmdtext memiliki fungsi yg sama saat adOpenDynamic dan adLockOptimistic di deklarasikan di awal.
nah, fungsi adLockOptimistic dan adOpenDynamic bs dicari tau sendiri aja...,, bnyk koq di google...
makasih..
Posting Komentar
Berhubung Makin Banyaknya Komentar Yang Tidak Mematuhi Peraturan, Maka Setiap Komentar Yang Masuk Akan Di Moderasi (Diterbitkan Atas Persetujuan) Oleh Admin Terlebih Dulu.
Aturan Berkomentar
1. Silakan Berkomentar Dengan Baik Dan Sopan.
2. Komentar Sesuai Topik Artikel
3. Mohon Untuk Tidak Mencantumkan Link Aktif Pada Komentar.
4. Mohon Untuk Tidak Promosi Produk Disini (Dianggap Spam).
5. Komentar Menggunakan Akun Personal (mis. Akun Google), Bukan Akun Nama Produk Barang (Dianggap Promosi) dan Nama yang Mengarah ke URL Tertentu (Dianggap Spam).
6. Bila Komentar Tidak Sesuai Aturan Diatas Maka Komentar Tidak Diterbitkan Dan Akan Saya Hapus.
Spam = Delete...!!
Promosi = Spam = Delete...!!
Komentar Yang Sesuai Aturan akan Diterbitkan Selambat-Lambatnya Dalam 1x24 Jam.
-->Untuk Pertanyaan Yang Dirasa Penting (Urgent) Silakan Contact Saya Melalui Email Pada Link Berikut Ini : Contact Us
<-- Thank's -->