Membuat Radio Online Channel List menggunakan visual basic 6 Microsoft access 2007

Setelah beberapa artikel membahas visual basic 2008 saya akan kembali membahas visual basic 6 namun kali ini saya akan Membuat Radio Online Channel List menggunakan visual basic 6 yang dalam hal ini menggunakan database microsoft access 2007, jadi artikel ini hanya diperuntukan bagi siapa saja yang sudah memahami konsep microsoft access 2007 yang dikoneksikan menggunakan visual basic 6.

Untuk Membuat Radio Online Channel List menggunakan visual basic 6  yang perlu dipersiapkan adalah database ms access dengan nama file radio dan didalamnya sudah dibuat satu table bernama channel dan diisi kolom nama dan url lihat gambar dibawah:

 

Kemudian buka visual basic 6 buat 1 form dengan komponen 1 text 1 button dan 1 list dan 1 windows media player seperti gambar dibawah:

 

Setelah sudah terbuat form seperti diatas kemudian klik Project pada menu bagian atas kemudian klik Preferences kemudian conteng Mictosoft ActiveX Data Objects 6.0 Library lihat gambar dibawah:

 

Selanjutnya buatlah satu module dan masukkan kode dibawah ini:

Public cn As ADODB.Connection

Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "provider = microsoft.ace.oledb.12.0; data source= " & App.Path & "\radio.accdb;Persist Security Info=False"
cn.Open
Form1.Show
End Sub

Kemudian masuk ke form1 klik 2 kali formnya hapus semua kode  dan masukkan kode dibawah ini:

 Sub lod()
Dim str As String
str = "select * from channel order by ID DESC"
Set rs = cn.Execute(str)
List1.Clear
Do While Not rs.EOF
List1.AddItem (rs!nama)
rs.MoveNext
Loop
Set rs = Nothing
End Sub

Private Sub Command1_Click()
nama = InputBox("Masukkan nama URL", "Nama URL")
Set rs = New ADODB.Recordset
rs.Open "select * from channel", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!nama = nama
rs!URL = Text1
rs.Update

rs.Close
Set rs = Nothing
MsgBox "sukses"
lod
End Sub



Private Sub Form_Load()
lod
End Sub

Private Sub List1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from channel where nama='" & List1.Text & "'", cn, adOpenKeyset, adLockOptimistic
wmp.URL = rs!URL
rs.Close
Set rs = Nothing
End Sub

Untuk tahap terakhir klik kanan tulisan Project1 (Project1.vbp) pilih Project1 Properties ganti Startup Project menjadi Sub Main kemudian klik Ok lalu simpan project yang sudah dibuat pada folder yang sama dengan database yang sudahdibikin sebelumnya dan test run maka hasilnya seperti gambar dibawah:

 

Gambar diatas adalah gambar setelah Add Channel, untuk memutar radio onilne cukup klik sekali list yang terdapat dibawah button  ADD Channel maka otomatis akan loading dan memutar radio online yang sesuai dengan nama radio yang diklik.