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