[belajar-access] Connection String Untuk Mengakses MySQL Online

 

Sedikit share dari saya mudah-mudahan bisa bermanfaat..

Sebelum mencoba kode di bawah, Anda harus mendaftar terlebih dahulu pada hosting yang membuka port defaultnya 3306 untuk diakses secara public. Anda bisa coba di http://www.db4free.net. Setelah mendaftar sekarang Anda memiliki UserName dan Password yang digunakan untuk mengakses MySQL online. Selanjutnya cobalah untuk membuat database sederhana dengan satu table, dan satu field (kelak Anda dapat membuat database, dan memperbanyak table dengan cara mengeksekusi syntax-syntax SQL).

 

Pada event Form Load ketik kode berikut :

 

Option Explicit
 
Dim conn As New ADODB.Connection
 
Private Sub Form_Load()
    If ConnectToServer Then
        Debug.Print "Sukses terkoneksi dengan server"
    Else
        Docmd.Close
    End If
End Sub

 

Buat fungsi untuk koneksi ke database mysql-nya :

 

Private Function ConnectToServer() As Boolean 
 
On Error GoTo ErrHandler 
 
    Dim server As String, port As String, database As String 
    Dim username As String, password As String 
     
    '----------------------------------------------------------------- 
    'Sesuaikan! 
    server = <your server> 'nama server 
    port = "3306" 'default port 
    Database = <your database> 'database yang telah Anda buat 
    username = <your username> 'username pada saat Anda mendaftar 
    password = <your password> 'password pada saat Anda mendaftar 
    '----------------------------------------------------------------- 
     
    Set conn = New ADODB.Connection 
    conn.CursorLocation = adUseClient 
    conn.Mode = adModeReadWrite 
 
    conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=" & server _ 
    & ";Port=" & port & ";Database=" & database & ";User=" & username & ";Password=" _ 
    & password & ";Option=3;default command timeout =20;writetimeout=300" 
 
    conn.Open 
     
    ConnectToServer = True 
    Exit Function 
 
ErrHandler: 
 
    MsgBox Err.Description, vbCritical, "Error" 
 
End Function 

Dan tempatkan kode di event Form Unload utk menutup koneksi ketika form akan di tutup :

Private Sub Form_Unload(Cancel As Integer) 
    If conn.State <> adStateClosed Then 
        conn.Close 
    End If 
    Set conn = Nothing 
End Sub 

Semoga bermanfaat… J

 

Terima Kasih

Kuncara Arief

 

 

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 4
• New Photos 1

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___