Koneksi Visual Basic 6.0 dengan SQL server 2000

Kali in CodingCenter Akan berbagi skrip koneksi untuk mengkoneksikan form yang kita buat di visual basic 6 ke database SQL Server, sehingga dengan ini kita hanya memanggil fungsi koneksi yang sudah kita buat ke dalam form yang ingin kita tampilkan data dari database nya, pertama-tama untuk membuat sebuah fungsi yang bisa digunakan di semua form project kita, cara membuat fungsi tersebut dengan cara membuat Module. Klik Kanan pada Nama project yang kita buat pada tab Project Explorer--> sorot Add --> klik Module. seperti gambar dibawah ini:

Kemudian ketikan skrip dibawah ini kedalam modul:

Public conn As New ADODB.Connection
Public sql As String
Public konek As String
Public rs As New ADODB.Recordset

---

'koneksi ke sql server

Public Sub koneksi()
On Error GoTo keliru
konek = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
            "Persist Security Info=False;server=.;database=penjualan;uid=sa;pwd=."

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

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

Mohon maaf jika ada kesalahan, Jika ada pertanyaan silakan ditanyakan lewat komentar atau Kontak penulis di instagram @tricivic. 
Terimakasih..

Read more »

Posted in: SQL Server,Visual Basic