Rabu, 06 November 2013

Cara Koneksi VB6 Ke Database SQL Server 2008


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 = "dbfitrah"
user = ""
password = ""


Keterangan : Agan ganti namadb = "dbfitrah" *ganti dbfitrah 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". 

Sekian dulu gan dari ane, kalo pengen lebih detailnya tunggu postingan berikutnya .. Kalo kurang paham agan bisa tinggalkan komentar di bawah gan

Assalamualaikum.

0 komentar:

Posting Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah