Cara Menampilkan Isi Data Tabel Di Datagrid Dengan Visual Basic 6.0

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 :

• Tambahkan satu buah tools Datagrid pada form entri tersebut, sehingga disainya menjadi seperti gambar berikut :

• Letakkan script berikut ini pada bagian code [General] :

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

• 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 :

Private Sub Form_Load() koneksi refreshDG '<--- Script yang disisipkan End Sub

• Terakhir, cari program kosongform [Private Sub kosongform()] dan sisipkan script yang sama seperti Form_Load() diatas. Hingga menjadi seperti berikut ini :

Private Sub kosongform() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text1.Enabled = True Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False refreshDG '<--- Script yang disisipkan End Sub

Untuk lebih jelasnya, silakan sobat download contoh program nya dsini :

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.