Cara membuat koneksi Visual Basic 6 ke SQL Server 2008. Pada Dasarnya koneksi vb ke semua database itu semua sama. Yang membedakan hanyalah koneksi stringnya.


Pertama tambahkan Components Microsoft ADO Data Control 6.0(OLEDB) dan . Caranya di menu bar agan pilih Project trus agan pilih Components atau dengan shortcut Ctrl + T kalo udah agan pilih "Microsoft ADO Data Control 6.0(OLEDB)" trus klik OK . kalo udah setelah itu agan buat module di project
Berikut coding VB6 koneksi ke SQL Server 2008 yang bisa ente buat di module gan ..


Option Explicit
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public server As String
Public namadb As String
Public user As String
Public password As String
Public username As String
Public name As String



Sub koneksi()
server = ".\SQLEXPRESS"
namadb = "dbalfian"
user = ""
password = ""


If Conn.State = adStateOpen Then Conn.Close
Conn.ConnectionString = "Provider=SQLNCLI10;Server=" & server & ";Database=" & namadb & ";Trusted_COnnection=yes"
End Sub


Sub bukakoneksi()
Call koneksi
Conn.Open
End Sub


Public Sub eksekusiSQL(SQLstr As String)
Conn.Execute SQLstr
End Sub


Public Sub OpenRecordset(SQLstr As String)
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQLstr, Conn, adOpenKeyset, adLockOptimistic, adCmdText


End Sub


Agan copy semua coding di atas, trus agan paste di module project VB agan ..
Trus menyesuaikan nama database agan yang sudah agan buat di SQL Server 2008 agan bisa ganti syntax di bawah ini,



Sub koneksi()
server = ".\SQLEXPRESS"
namadb = "dbalfian"
user = ""
password = ""


Ketr : Agan ganti namadb = "dbalfian" *ganti dbalfian dengan nama database agan.


Setelah selesei membuat module agan, kita buat tes koneksinya dulu gan , caranya buat form baru, di formnya kasih button 1 dan ganti captionnya menjadi Tes Koneksi . Trus agan taruh nih coding di dalem tombol yang sudah agan buat tadi.



Private Sub Command1_Click()
bukakoneksi


On Error GoTo Ern
Call bukakoneksi
MsgBox "Koneksi sukses"
Exit Sub
Ern:
MsgBox "Koneksi Gagal"
End Sub


Kalo koneksi sukses maka akan keluar Message Box "Koneksi Sukses" kalo gagal Keluarnya "Koneksi Gagal".
Lha sekian dulu gan dari ane, kalo pengen lebih detailnya tunggu postingan berikutnya .. Kalo kurang paham agan bisa tinggalkan komentar di bawah gan .. Assalamualaikum.