Pencarian Data Pada Listview vb 6.0

Assalamu’alaikum..wr..wb..

Sebelum lanjut membaca postingan ini, mari kita samakan kondisi terlebih dahulu. Yang perlu dilakukan adalah mempersiapkan koneksi database dengan vb lalu menampilkan isi database terseut pada sebuah listview. Sebelumnya saya sudah memposting tentang cara koneksi mySql dengan vb dan cara menampilkan isi tabel database pada listview.

Okey sekarang saya anggap sobat udah bisa nampilin data di listview. Baiklah sobat, berikut langkah-langkahnya :

1. Siapkan sebuah form yang telah terkoneksi dengan database dan sebuah listview untuk menampilkan isi tabel databasenya.

2. Klik disini untuk koneksi databse, dan klik disini untuk menampilkan isi tabel pada listview.

3. siapkan sebuah “Combo Box” untuk memberikan pilihan pencarian dan sebuah textbox untuk mengetik keyword pencarian.

4. Sama seperti tutorial sebelumnya saya masih menggunakan tabel lagu sebagai contoh yang berisi 2 field yaitu “judul lagu” dan “penyanyi”. Desain formnya kira-kira seperti gambar dibawah ini :

    

5. Tambahkan keterangan list combo box pada bagian properti-list. Caranya seperti gambar dibawah ini :

6. klik kanan pada textbox kemudian ganti procedure menjadi “Keypress” dan masukkan kode dibawah ini :

Dim Lst As ListItem

   If reset.State = adStateOpen Then reset.Close

   If comboCari.Text = "Judul" Then

        reset.Open "Select * From tb_lagu where judul like '%" & txtCari.Text & "%'", KonekDatabase, adOpenKeyset

   Else

        reset.Open "Select * From tb_lagu where penyanyi like '%" & txtCari.Text & "%'", KonekDatabase, adOpenKeyset

   End If

  

If reset.RecordCount <> 0 Then

ListView1.ListItems.Clear

Do While Not reset.EOF

Set Lst = ListView1.ListItems.Add(, , ListView1.ListItems.Count + 1 & ".")

With Lst

.SubItems(1) = reset!judul

.SubItems(2) = reset!penyanyi

End With

reset.MoveNext

Loop

Else

ListView1.ListItems.Clear

End If

7. coba jalankan program, dan ketikkan kata kunci pada kolom cari, maka listview secara otomatis akan memfilter dirinya sesuai keyword yang sobat ketikkan.

Sekian tutorial kali ini, semoga bermanfaat.

Sampai ketemu pada tutorial selanjutnya..

Read More

Cara Agar TextBox Hanya menerima Input Angka

Assalamau’alaikum wr.. Wb..

Untuk beberapa data yang hanya menerima input angka, perlu dilakukan sebuah verifikasi agar user tidak dapat sembarang menginput data. Data-data yang hanya menerima inputan angka misalnya nomor telepon, kode pos, tinggi badan dll.

Berikut caranya :

1. Siapkan sebuah textbox

2. ganti procedure texboxt tersebut menjadi “keypress”

3. Masukkan kode berikut ini :3

KeyAscii = IIf((KeyAscii > 47 And KeyAscii < 58) Or KeyAscii = 8 Or KeyAscii = 13, KeyAscii, 0)

4. Selesai

Simple kan?

Okey sobat, semoga bermanfaat..

Read More

Menampilkan Isi Database MySQL pada Listview VB 6.0

Assalamualaikum wr...wb... Pada kesempatan sebelumnya sy udah sharing mengenai cara koneksi Database MySQL dengan vb 6.0 dan saya anggap masalah koneksi database sobat udah beress... he he..

OKEY. Silahkan sobat rancang sebuah database ama tabelnya juga, masalah nama itu terserah sobat. Gak usah banyak-banyak ya, satu tabel aja cukup. Yang penting sobat langsung input aja tuh datanya sekalian, soalnya kali ini kita fokus Cuma ama nampilin data aja di listview aja dulu. Saya masih menggunakan database yang sama ama postingan sebelumnya. Kurang lebihnya kayaq dibawah ini lah :

NO	JUDUL	PENYANYI
1	Message in a bottle	The Police
2	Shape of my heart	Sting
3	I will remember	Toto
4	Lain dunia	Padi
5	Heal the world	Michael Jackson

Kalo sobat belum faham masalah koneksi vb 6.0 mySQL bisa liat disini. Baiklah kita langsung aja meluncur ke VB 6.0.

Berikut langkah-langkahnya :

1.   Buka aplikasi VB 6.0

2.   Pilih menu Project dan klik References

3.   Centang seperti gambar dibawah ini kemudian klik OK

4.   Pilih kembali menu Project dan klik Component atau bisa dengan menekan ctrl+T dan centang Microsoft Windows Common Controls 6.0 (SP6) dan kilik OK. Lebih jelasnya sobat liat gambar dibawah ini :

5.   Klik komponen Listview kemudian masukkan pada form VB sobat seperti yang dilingkari merah pada gambar dibawah ini :

6.   klilk kanan listview tersebut dan pilih properties.

7.   Pada tab General, lihat kolom View. Ganti menjadi lvwReport

8.   Setelah itu pindah ke tab Coloum Headers kemudian klik tombol Insert Coloum dan masukkan nama Field tabel sesuai yang sobat bikin. Disini saya menggunakan 3 Field yaitu (NO, Judul, dan penyanyi). Jika sudah klik Apply dan OK.

9.   Double Click form sobat untuk membuat sub Form_Load dan ketikkan “openDatabase” (tanpa tanda petik).

10. Masukkan sebuah Command Button (tombol) kedalam form sobat kemudian double click tombol tersebut dan copy-paste kode dibawah ini :

Dim LV As ListItem

Dim SQL As String

Dim Reset As New ADODB.Recordset

SQL = "SELECT * FROM tb_lagu"

Set Reset = KonekDatabase.Execute(SQL)

ListView1.ListItems.Clear

Do While Not Reset.EOF

Set LV = ListView1.ListItems.Add(, , Reset.Fields(0))

LV.SubItems(1) = Reset!judul & ""

LV.SubItems(2) = Reset!penyanyi & ""

Reset.MoveNext

Loop

Set Reset = Nothing

11. Coba Run dan klik tombol tersebut. Jika sukses tampilannya akan sepert gambar dibawah ini :

Sekian sobat.. semoga bermanfaat..

Read More

CARA KONEKSI DATABASE MYSQL DENGAN VISUAL BASIC 6.0

Assalamu’alaikum wr..wb...

Tanpa mengurangi rasa hormat saya terhadap para master yang sudah melanglang buana dalam dunia pemrograman, mungkin sudah hal biasa kalo sekedar koneksi vb 6.0 mySQL ini. Tapi disini saya Cuma ingin sharing ama sobat-sobat yang masih kebingungan untuk koneksi mySQL Vb 6.0 hehe...

Untuk koneksi databse mySQL dengan VB 6.0 memang agak sedikit lebih rumit dibandingkan dengan database Microsoft Access. Sebelum kita masuk ke form visual basic, terlebih dahulu kita buat sebuah tabel pada mysql, disini saya menggunakan phpmyadmin.  Agar tidak panjang lebar, saya anggap sobat sekalian sudah bisa membuat database pada phpmyadmin. Baiklah sobat bisa rancang tabelnya seperti dibawah ini :

  Nama database : db_latihan

  Nama tabel          : tb_lagu

Field	Jenis
judul	Varchar(20)
penyanyi	Varchar(20)

Setelah itu, mari kita tinggalkan sejenak phpmyadmin dan beralih pada form VB. Buka aplikasi microsoft visual basic 6.0  kemudian pilih Standart EXE. Sebelum mulai ngoding tambahkan References dengan cara klik menu project kemudian pilih References dan centang microsoft ActiveX Data Objects 2.8 Library. Untuk lebih jelasnya lihat gambar dibawah ini :

Setelah itu pilih kembali menu project kemudian pilih Add Module. Setelah itu copy-paste koding dibawah ini :

Option Explicit

Public KonekDatabase As New ADODB.Connection

Public reset_lagu As New ADODB.Recordset

Sub openDatabase()

    Dim SS, Port, DB, UID, PWD As String

            SS = "localhost"

            Port = "3306"

            DB = "db_latihan"

            UID = "root"

            PWD = ""

    Set KonekDatabase = New ADODB.Connection

    KonekDatabase.CursorLocation = adUseClient

    KonekDatabase.ConnectionString = "" _

        & "DRIVER={MYSQL ODBC 3.51 Driver};" _

        & "SERVER=" & SS & ";" _

        & "DATABASE=" & DB & ";" _

        & "UID=" & UID & ";" _

        & "PWD=" & PWD & ";" _

        & "OPTION="

    On Error Resume Next

    If KonekDatabase.State = adStateOpen Then

        KonekDatabase.Close

        Set KonekDatabase = New ADODB.Connection

        KonekDatabase.Open

    Else

        KonekDatabase.Open

    End If

    If Err.Number <> 0 Then

        MsgBox "SAYANG SEKALI, ANDA GAGAL MELAKUKAN KONEKSI", vbExclamation, "Info"

    Else

        MsgBox "Selamat Sobat, Anda Berhasil Melakukan koneksi dengan server MySQL..", vbInformation, "Success"

    End If

End Sub

Kemudian untuk ngeCEK apakah koneksi yang kita buat berhasil atau nggak, tambahkan sebuah ­CommandButton kemudian double klik button tersebut dan ketikkan open Database.

Jalankan aplikasi dan klik tombol button tersebut. Jika sukses maka sobat akan menerima pesan sukses, dan jika gagal sobat akan menerima pesan gagal koneksi.

Semoga berhasil J

Sekian . . . . 

Read More

Pengaplikasian Fungsi Tombol ‘ENTER’ Keyboard Pada Visual Basic 6.0

Sobat, mungkin sobat pernah menggunakan sebuah aplikasi yang apabila ingin menyimpan/menjalankan proses tertentu cukup dengan menekan tombol ‘ENTER’ pada keyboard sebagai alternatif dari menekan tombol ‘OK’ pada layar dengan mouse. Meski terlihat sangat simple, namun disamping lebih memberikan kenyamanan pada si user, hal ini juga dapat memberikan kesan profesional untuk aplikasi yang sobat bangun.

Oke langsung aja, kali ini kita akan mencoba fungsi ini dengan menggunakan Microsoft Visual Basic 6.0. Berikut contohnya :

1.  Desain form sobat seperti gambar dibawah ini :

2. Kita akan memberikan fungsi pada textbox ‘nama’, dimana apabila tombol  ditekan, maka cursor akan berpindah fokus pada textbox alamat. Caranya double klik pada textbox ‘nama’ kemudian ganti procedure-nya menjadi ‘keypress’ seperti gambar dibawah ini :

3.     Kemudian pada sub keypress tadi, ketikkan kode berikut :

           If KeyAscii = 13 Then

       Text2.SetFocus
End If

4. Kali ini kita akan memberikan fungsi pada textbox ‘alamat’, dimana tombol ENTER akan memanggil fungsi pada tombol ‘PROSES’. Double klik pada tombol ‘PROSES’ kemudian ketikkan kode berikut :

MsgBox "Nama sobat adalah : " & Text1.Text & ", Dan Alamat Sobat adalah : " & Text2.Text, vbInformation, INFO 

   5. Double klik pada textbox ‘Alamat’ kemudian ganti prosedure-nya menjadi keypress dan ketikkan kode dibawah  ini :

             If KeyAscii = 13 Then

       Command1_Click
End If

    6. Jalankan program. Ingat gunakan tombol ENTER setelah anda mengisi textbox ‘nama’ untuk berpindah ke textbox ‘Alamat’ dan tekan ENTER pada textbox ‘alamat’ untuk memproses dan lihat hasilnya. Selamat mencoba J

Read More