Koneksi Visual Basic - SQL Server

Koneksi database merupakan sesuatu yang fital dalam pemrograman karena tanpa adanya koneksi semua program tidak bisa berfungsi sehingga proses ini sangatlah penting sebelum melangkah ketahapan yang selanjutnya.
Pada materi ini akan dibahas bagaimana mengkoneksikan visual basic dengan SQL server dengan menggunakan adodc dengan pola modular.

Langkah 1 :

Siapkan form Vb sebagai berikut :
Klik kanan adodc1 pilih adodc properties untuk mendapatkan koneksi maka akan tampil sebagai berikut :
Kemudian Klik build untuk memilih database yang dikehendaki
Klik next untuk memilih server dan database
Setelah server name dipilih dan database dipilih serta telah ditest koneksinnya klik OK
Setelah didapat konekisinya maka file inilah yang dibutuhkan selanjutnya :
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dblat3;Data Source=ACER
Sebetulnya langkah langkah diatas tidak diperlukan jika anda bisa menghapal file diatas
Untuk mempermudah proses koneksi sebaiknya file koneksi diatas disimpan pada modul vb caranya :

Project -> Add Module
Pada module tersebut letakkan file :
Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public KONEKSI As String
Public SQL As String

Sub main()
KONEKSI = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dblat3;Data Source=ACER
"
Set DB = New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Open KONEKSI
Form1.Show
End Sub
Sub RECORD()
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic
End Sub

Setelah file modul sudah dibuat maka adodc1 sudah tidak diperlukan lagi dan dihapus juga gpp


Script nya :
Private Sub Form_Load()
SQL = "select * from tmhs"
RECORD
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub