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

2. Ms. Acces Versi 2007 atau > (*.accdb)


Public cn As ADODB.Connection
Public rsuser As ADODB.Recordset
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\penjualan.accdb; Jet OLEDB:Database Password="
    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

3. MySql

Public cn As New ADODB.Connection

Public objcmd As New ADODB.Command

Public objRst As New ADODB.Recordset

Public USRText As String

Public PWDText As String

Public PortText As String

Public strconnect As String

Public ServerAddress As String

Public DatabaseName As String

Sub cnKoneksi()

On Error GoTo ErrKon

    ServerAddress = "localhost"

    USRText = ""

    PWDText = ""

    DatabaseName = "mhs_si2011"

    PortText = "3306"

    Set cn = New ADODB.Connection

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

    strconnect = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE="  & DatabaseName & ";SERVER=" & ServerAddress & ";UID=" & USRText & ";PASSWORD=" & PWDText & ";PORT=" & PortText & ";OPTION=16387;STMT=;" & Chr$(34)

    

cn.CursorLocation = adUseClient

    cn.ConnectionTimeout = 6000

    cn.Open strconnect

Exit Sub

ErrKon:

MsgBox "Disconnected, Please Check Your Network Device.......!", vbInformation, "Network Problem"

End

End Sub

Sub SQLDisconnection()

    Set objRst = Nothing

    Set objcmd = Nothing

    cn.Close

End Sub

'Catatan : tolong sambil install MySQL ODBC, kalo mau pake versi 3.51.27 silahkan liat di Link Download trus klik daftar yang sesuai.

4. SQL Server


Public cn As New ADODB.Connection
Public objcmd As New ADODB.Command
Public rstbl_user As New ADODB.Recordset
Sub cnKoneksi()
On Error GoTo ErrKon
    Set cn = New ADODB.Connection

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

    strconnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=;Initial Catalog=pmb;Data Source=;Password="
    cn.CursorLocation = adUseClient
    cn.ConnectionTimeout = 6000
    cn.CommandTimeout = 6000
    cn.Open strconnect
    'MsgBox "Database PMB - Connected.......!", vbInformation, "OK"
Exit Sub
ErrKon:
MsgBox "Database PMB - Disconnected, Please Check Your Network Device.......!", vbInformation, "Network Problem"
End
End Sub
Sub SQLDisconnection()
    Set objRst = Nothing
    Set objcmd = Nothing
    cn.Close
End Sub
Private Sub Main()
form_login.Show
End Sub