Membuat Koneksi Dengan Module Aplikasi Rental DVD

Ini adalah tahapan #Keempat dalam Membuat Project Baru Aplikasi Rental DVD Dengan VB 6.0. Pada tahap ini akan kami jelaskan mengenai Membuat Koneksi aplikasi DVD yang akan kita buat, sehingga dengan bantuan Module ini Aplikasi bisa terkoneksi dengan Database MySQL. dan untuk bisa mengikuti Tahap ini mohon untuk dipastikan anda telah mengikuti tahapan sebelumnya yaitu :

1. Membuat Project Baru Aplikasi Rental DVD Dengan VB 6.0
2. Membuat Form Menu Utama Aplikasi Rental DVD Dengan VB 6.0
3. Membuat Database dan Tabel Aplikasi Rental DVD

Jika anda sudah mengikuti langkah diatas, silahkan dilanjut mengikuti tahap dibawah ini :
Buka Project anda sebelumnya :

Klik Project - Add Module - Klik Open

Kemudian masukan Koding dibawah ini pada Module1

Public koneksi As New ADODB.Connection
Public RSAdmin As ADODB.Recordset
Public RSAnggota As ADODB.Recordset
Public RSFilm As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSAdmin = New ADODB.Recordset
Set RSAnggota = New ADODB.Recordset
Set RSFilm = New ADODB.Recordset
koneksi.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=KonekDBDVD"
End Sub

Jika anda telah membuat langkah diatas, maka pembuatan koneksi database dbdvd selesai. Selanjutnya silahkan ikuti langkah selanjutnya.

Silahkan KLIK LINK INI Untuk bisa mengikuti langkah 5 dalam membuat Aplikasi Rental DVD