CARA MUDAH MEMANGGIL DATA MENGGUNAKAN (ENTER) PADA VISUAL BASIC 6.0

Oleh peistar

Sunday, 1 May 2016

Bagikan :

Tweet

Berkaitan dengan posting sebelumnya untuk memanggil data pada Form Input ini sangatlah mudah, karna Coding Program untuk memanggil data ini hampir sama dengan Coding Simpan perbedaanya kita menggunakan Fungsi EOF dan KeyAscii. KeyAscii ini bertujuan untuk memanggil data menggunakan Keyboard Enter/Tombol Enter pada komputer. Cara kerja KeyAscii ini nantinya pada saat kita memasukan data induk pada Form Input Program, kemudian kita dapat menekan tombol Enter untuk menampilkan data – data yang dimiliki oleh data induk tersebut.

Adapun langkah – langkah pengerjaanya dapat saudara lihat dibawah ini :

- Pertama : Pada Text1 pada Form Input Program kita dapat Klik 2 kali kemudian nantinya kita akan menuju pada halaman Coding Program seperti gambar dibawah ini.

- Kedua : Pada Procedure Private Sub Text1_Change() kita dapat rubah Procedurenya dengan menggunakan perintah KeyPress dengan cara, klik Procedure pada halaman Coding pojok kanan atas kemudian klik dan pilih KeyPress maka akan tampil Private Sub Text1_KeyPress (KeyAscii As Integer).

Private Sub Text1_Change()

Private Sub Text1_KeyPress (KeyAscii As Integer).

- Ketiga : Pada halaman Coding Program Private Sub Text1_KeyPress (KeyAscii As Integer) kita dapat meletakan Coding seperti gambar dibawah ini.

Coding Panggil Data

Coding Panggil Data :

If KeyAscii = 13 Then

Set Rs = New ADODB.Recordset

Rs.Open "Select * from Barang where Kd_Barang = '" & Text1.Text & "'", con, adOpenDynamic, adLockOptimistic

If Not Rs.EOF Then

Text1.Text = Rs.Fields("Kd_Barang")

Text2.Text = Rs.Fields("Nama_Barang")

Text3.Text = Rs.Fields("Satuan")

Text4.Text = Rs.Fields("Harga_Beli")

Text5.Text = Rs.Fields("Harga_Jual")

Rs.Update

End If

End If

Catatan : Untuk Field Tabel harus sesuai dengan posisi input data yang ingin kita tampilkan, pastikan Nama Tabel dan Field diisi dengan benar.

Demikianlah tutorial yang singkat ini semoga bermanfaat bagi kita semua akhir kata penulis ucapkan terimakasih atas kunjungan saudara. Wasssaaaallllaaaaammmmm...!!!!!

 Baca Juga :

- CARA MUDAH MEMBUAT TOMBOL SIMPAN MENGGUNAKAN VISUAL BASIC6.0.

- CARA MUDAH MENAMPILKAN DATA MENGGUNAKAN DATA GRID PADAVISUAL BASIC 6.0.

Tag : Pemrograman Visual Basic 6.0