VB 6 : Test Koneksi Ke Database Server

Public Koneksi As New ADODB.Connection


Private Sub Command1_Click()

Dim ConnString As String

Dim db_name As String

Dim db_server As String

Dim db_port As String

Dim db_user As String

Dim db_pass As String

' Jebakan error

On Error GoTo buat_koneksi_Error

' isi variabel

db_name = "latihan"

db_server = "localhost"

db_port = "3306"

db_user = "root"

db_pass = "kucing"


'Bikin string koneksi

stringKoneksi = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"

' Open Connection

With Koneksi

.ConnectionString = stringKoneksi

.Open

    End With

    MsgBox "Terkoneksi"


    On Error GoTo 0

    Exit Sub

buat_koneksi_Error:

    MsgBox "Error, Periksa apakah server dihidupkan", vbInformation, "Periksa Server"

End Sub



Private Sub Form_Unload(Cancel As Integer)

If Koneksi.State = adStateOpen Or Koneksi.State = adStateConnecting Then

Koneksi.Close

Set Koneksi = Nothing

End If



End Sub