Koneksi Visual Basic 6.0 (VB6) dengan SQL Server

Pada postingan ini penulis akan memcoba membahas koneksi Visual Basic 6.0 (VB6) dengan Database SQL Server khususnya dengan menggunakan ADODB.

Kenapa dengan mencoba membahas ADODB??  karena menurut penulis ADODB lebih powerfull, dan sepertinya akan sedikit menambah kemampuan berlogika dibandingkan dengan cara koneksi lainnya yang tinggal klik sana klik sini :D

OK...Untuk pertama-tama buka Visual Basic 6.0 nya



1. Design Form nya dengan 4 label , 4 textbox dan 1 CommandButton

Label1 = Name : Label1 ; Caption : IP computer====TextBox1= Name : TIP ; text = 'kosongkan

Label2 = Name : Label2 ; Caption : Nama Database====TextBox2= Name : TNameDB ; text = 'kosongkan

Label3 = Name : Label3 ; Caption : User Database====TextBox3= Name : TUDB ; text = 'kosongkan

Label4 = Name : Label4 ; Caption : Password Database====TextBox4= Name : TPwdDB ; text = 'kosongkan

CommandButton1 = Name=CommandButton1; Caption : Koneksi

Contoh Design Form Penulis

2. Setelah selesai tambahkan REFERENCE Microsoft Activex Data Objects 2.8 Library

• Klik PROJECT di toolbar Visual Basic 6.0
• Klik REFERENCES
• Cari option MICROSOFT ACTIVEX DATA OBJECTS 2.8 LIBRARY
• Beri tanda checklist
• Klik OK

3. Setelah selesai menambahkan references, Kita Tambahkan Modul pada Project kita.

• Klik PROJECT di Toolbar Visual Basic 6.0
• Pilih Add Modul

4. Mulai dah kita "coding"

Ketik Atau Silahkan Copy Paste coding berikut pada MODUL yang telah kita tambahkan tadi :

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

'koneksi ke sql server
Public Sub koneksi()
Dim konek as String
On Error GoTo keliru
konek = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=False;server=" & Form1.TIP.Text & "\sqlexpress;database=" & Form1.TnameDB.Text & ";uid=" & Form1.TUDB.Text & ";pwd=" & Form1.TPwdDB.Text & ""

If conn.State = adStateOpen Then
conn.Close
Set conn = New ADODB.Connection
conn.Open (konek)
MsgBox "koneksi berhasil"
Else
conn.Open (konek)
MsgBox "koneksi berhasil"
End If
Exit Sub

keliru:
MsgBox "Koneksi ke Database Server gagal!!, coba periksa koneksinya", vbCritical, "Kesalahan Koneksi!"
End Sub

 Ketik Atau silahkan Copy Paste coding berikut di Form1 Project kita :

Private Sub Command1_Click()
koneksi
End Sub

  Selesaaiii...Project kita untuk koneksi Visual Basic 6.0 (VB6) dengan Sql Server


Untuk sample project nya menyusul ya :)