Membuat Koneksi Database Aplikasi Rental Mobil VB 6.0

Ini adalah tahap #KeEmpat dalam membuat Aplikasi Rental Mobil Dengan Visual Basic 6.0 Database SQL Server. Jika pada tahap sebelumnya anda telah bisa membuat Database dan Tabel dengan SQL Server, pada tahap ini kita akan membuat sebuah script atau koding dimana koding ini adalah koding untuk mengkoneksikan kedalam database DB_RENTALMOBIL yang sebelumnya kita buat.

Sebelum mengikuti tutorial ini, pastikan anda sudah mengikuti tahap sebelumnya :
1. Membuat Project Baru Aplikasi Rental Mobil VB 6.0 Database SQL Server
2. Membuat Form Menu Utama Aplikasi Rental Mobil VB 6.0 Database SQL Server
3. Membuat Database dan Tabel - Aplikasi Rental Mobil VB 6.0 Database SQL Server

Jika sudah mempelajari diatas, silahkan ikuti langkah dibawah :
Buka komputer anda
Buka Project Aplikasi Rental Mobil sebelumnya :

Jika anda lihat gambar diatas, maka anda telah sukses membuat FormMenuUtama.
Kemudian Klik Project - Add Modules

Klik Open
Anda bisa Klik Save Module1
Kemudian pada Module1 anda masukan koding dibawah ini :

Public Koneksi As New ADODB.Connection
Public RSADMIN As ADODB.Recordset
Public RSPELANGGAN As ADODB.Recordset
Public RSMOBIL As ADODB.Recordset

Public Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSADMIN = New ADODB.Recordset
Set RSPELANGGAN = New ADODB.Recordset
Set RSMOBIL = New ADODB.Recordset
Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_RENTALMOBIL;Data Source=TMEDIA001"
End Sub

Note :
Untuk nama yang kami tandai dengan warna biru, silahkan samakan dengan nama komputer anda.

Dengan langkah diatas, anda telah sukses membuat Module Koneksi Database pada database yang telah kita buat pada Tahap ke-3

Silahkan Klik LINK INI untuk mengikuti Tahap-5