Cara Mudah Koneksi Database SQL Server

Pada Tutorial Gratis Visual Basic 6.0 kali ini akan dibahas mengenai Cara Mudah Koneksi Database SQL Server pada Microsoft Visual Basic 6.0.
Untuk bisa mengikuti tutorial ini, pastikan anda telah menginstall :
1. VMicrosoft Visual Basic 6.0
2. Database SQL Server ( kami menggunakan versi 2008 R2 )

Berikut langkahnya :
#Membuat Database dan Tabel

Buatlah database dengan nama : DBPERPUS
Buatlah tabel dengan nama : TBL_PETUGAS
Design TBL_PETUGAS adalah seperti gambar dibawah ini :

#Membuat Form Pada VB 6.0 dan Kodingnya
Silahkan buka Microsoft Visual Basic anda
Buatlah form seperti gambar dibawah ini :

Kemudian yang terakhir adalah, masukan koding dibawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DBPERPUS;Data Source=JAVANET001"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "TBL_PETUGAS"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Untuk nama yang saya tandai warna kuning, silahkan ganti dengan nama komputer anda.