Koneksi Database VB.6 (ADODB)

Berikut adalah Script untuk melakukan koneksi ke VB.6 Sebelum melakukan mengetikkan perintah koneksi, pastikan mengaktifkan Microsoft Activex Data Objects 2.8 Library terlebih dahulu pada menu Projects > References

1. Ms. Acces 2003 atau < (*.mdb)

Public cn As ADODB.Connection

Sub cnKoneksi()

On Error GoTo ErrKon

    Set cn = New ADODB.Connection

'----------------------> Ket : Baris miring dan di Blok harap disatukan dalam satu baris 

   strconnect = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & App.Path & "\db\nilai.accdb; Jet OLEDB:Database Password=xxxxxx"

    cn.CursorLocation = adUseClient

    cn.ConnectionTimeout = 6000

    cn.Open strconnect

    'MsgBox "Database - Connected.......!", vbInformation, "OK"

Exit Sub

ErrKon:

MsgBox "Database Tidak terhubung, cek database atau jaringan anda.......!", vbExclamation, "Masalah Koneksi"

End

End Sub

Private Sub main()

frm_nilai.Show

End Sub