[ASK] Cara Konek VB6 ke MySQL di Komputer Lain

[Darkc0der]

public Conn as ADODB.Connection

Public Sub BukaKoneksi(ByVal Buka As Boolean)

Dim constr 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



On Error GoTo buat_koneksi_Error



db_name = "absensi"

db_server = "sisminrapus"

db_port = "3306"

db_user = "root"

db_pass = ""



constr = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" & _

"" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";Protocol=UNIX;port=3306;OPTION=3"



If Buka Then

If Not Conn Is Nothing Then

If Conn.State = adStateOpen Then

Conn.Close

Conn = ""

End If

Set Conn = New ADODB.Connection

Conn.Open (constr)

MsgBox "Buka"

Else

Set Conn = New ADODB.Connection

Conn.Open (constr)

MsgBox "Buka"

End If

Else

If Not Conn Is Nothing Then

If Conn.State = adStateOpen Then

Conn.Close

MsgBox "Tutup"

End If

Conn = ""



End If

End If





buat_koneksi_Error:

MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server" '

End

End Sub











itu udah ane buat coding nya gan,, kira2 ada yang salah gak

ko malahan Error trs yah gan....???



para master bantu ane donk...

</div>